Class TFontListBox (unit FontCtls)

Inherits from

TCustomListBox

Constructors


constructor Create(AOwner: TComponent);

Public declarations

Returns list of all installed screen fonts



Functions

destructor Destroy;


procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ReBuild;


procedure CreateWnd;

Protected declarations

procedure SetFilterOptions(Value : TFilterOptions);


procedure CMFontChanged(var Message: TMessage);

white is transparent in bitmap

Properties

property Align :

pusblish the TListBox properties

property BorderStyle :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property FilterOptions : TFilterOptions


property Font :


property IntegralHeight :


property ItemHeight :


property Items :


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabWidth :


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


event OnValidateFont : EValidateFont

pusblished the TListBox events

Variables

FBitmaps : TBitmapArray;


FFilterOptions : TFilterOptions;

Private declarations

FontStringList : TFontStrList;


FOnValidateFont : EValidateFont;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

Returns list of all installed screen fonts


Functions


destructor Destroy;


procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ReBuild;


procedure CreateWnd;

Protected declarations


procedure SetFilterOptions(Value : TFilterOptions);


procedure CMFontChanged(var Message: TMessage);

white is transparent in bitmap


Properties


property Align :

pusblish the TListBox properties


property BorderStyle :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property FilterOptions : TFilterOptions


property Font :


property IntegralHeight :


property ItemHeight :


property Items :


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabWidth :


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


event OnValidateFont : EValidateFont

pusblished the TListBox events


Variables


FBitmaps : TBitmapArray;


FFilterOptions : TFilterOptions;

Private declarations


FontStringList : TFontStrList;


FOnValidateFont : EValidateFont;