VoyForums

[ VoyUser Login optional ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, 5, 6, [7], 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 19:50:44 12/11/01 Tue
Author: samuelzhu
Subject: how to apply Tfont to Tlistview component in customed component?

It can do in IDE environment,but can't be effective when
application runs.

the source is below:

unit test;
interface
uses
Windows, Messages, Classes, Graphics, ComCtrls, Controls,
StdCtrls, ExtCtrls;
type
Ttest = class(TcustomControl)
private
ListView1: TListView;
//other component.
fFont:Tfont;
protected
procedure Paint; override;
procedure Setfont(value:Tfont);
public
Constructor Create(Aowner: Tcomponent); Override;
Destructor Destroy; Override;
published
property myFont:Tfont read fFont write Setfont;
end;

procedure Register;
implementation
Constructor Ttest.Create(Aowner: Tcomponent);
begin
Inherited Create(Aowner);
fFont:=Tfont.Create ;
ListView1:=Tlistview.Create(self);
with ListView1 do begin
Parent :=self;
height:=150;
Columns.Add;
end;
end;
procedure Ttest.Paint;
var ListItem: TListItem;
begin
inherited Paint;
with ListView1 do begin
ListItem := Items.Add;
Listitem.Caption :='test';
end;
end;
Destructor Ttest.Destroy;
Begin
ListView1.Free ;
ffont.Free;
Inherited Destroy;
End;
procedure Ttest.Setfont(value:Tfont);
begin
listview1.Font.assign(value);
end;
procedure Register;
begin
RegisterComponents('Samples', [Ttest]);
end;
end.

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 2.94, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2008 Voyager Info-Systems. All Rights Reserved.