Class TFontComboBox (unit RXCombos)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure BuildList;


procedure Click;


procedure CreateWnd;


procedure DoChange;


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


procedure CMFontChanged(var Message: TMessage);


function GetFontName: TFontName;

change selected item

function GetTrueTypeOnly: Boolean;


procedure Reset;


procedure ResetItemHeight;


procedure SetDevice(Value: TFontDevice);


procedure SetFontName(const NewFontName: TFontName);

skip any errors

procedure SetOptions(Value: TFontListOptions);


procedure SetTrueTypeOnly(Value: Boolean);


procedure WMFontChange(var Message: TMessage);

uses DrawText instead of TextOut in order to get clipping against the combo box button } {TextOut(Rect.

Properties

property Color :

obsolete, use Options instead

property Ctl3D :


property Device : TFontDevice


property DragCursor :


property DragMode :


property Enabled :


property Font :


property FontName : TFontName


property ImeMode :


property ImeName :


property Options : TFontListOptions


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TrueTypeOnly : Boolean


property Visible :


property Text :


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnStartDrag :


Variables

FDevice : TFontDevice;


FDeviceBMP : TBitmap;


FOnChange : TNotifyEvent;


FOptions : TFontListOptions;


FTrueTypeBMP : TBitmap;


FUpdate : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure BuildList;


procedure Click;


procedure CreateWnd;


procedure DoChange;


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


procedure CMFontChanged(var Message: TMessage);


function GetFontName: TFontName;

change selected item


function GetTrueTypeOnly: Boolean;


procedure Reset;


procedure ResetItemHeight;


procedure SetDevice(Value: TFontDevice);


procedure SetFontName(const NewFontName: TFontName);

skip any errors


procedure SetOptions(Value: TFontListOptions);


procedure SetTrueTypeOnly(Value: Boolean);


procedure WMFontChange(var Message: TMessage);

uses DrawText instead of TextOut in order to get clipping against the combo box button } {TextOut(Rect.Left + bmpWidth + 6, Rect.Top, Items[Index]


Properties


property Color :

obsolete, use Options instead


property Ctl3D :


property Device : TFontDevice


property DragCursor :


property DragMode :


property Enabled :


property Font :


property FontName : TFontName


property ImeMode :


property ImeName :


property Options : TFontListOptions


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TrueTypeOnly : Boolean


property Visible :


property Text :


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnStartDrag :


Variables


FDevice : TFontDevice;


FDeviceBMP : TBitmap;


FOnChange : TNotifyEvent;


FOptions : TFontListOptions;


FTrueTypeBMP : TBitmap;


FUpdate : Boolean;