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: 20:41:34 12/11/01 Tue
Author: Michel
Subject: Re: how to apply Tfont to Tlistview component in customed component?
In reply to: samuelzhu 's message, "how to apply Tfont to Tlistview component in customed component?" on 19:50:44 12/11/01 Tue


Hi,

This forum is for the Envision image library. You will have better answers on the Borland Delphi newsgroups.

Best regards,

Michel

>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 ]
[ 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.