Class TFnpComboColor (unit FnpComboColor)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure AddColor(ColorText: String; Color: TColor);


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

Use a "Buble Sort".

function GetSelectedColor: TColor;


function GetSelectedColorText: String;


procedure SetColorWidth(Value: Integer);


procedure SetSelectedColor(Value: TColor);


procedure SetSelectedColorText(Value: String);


procedure SetSortBy(Value: TSortBy);


procedure SetVersion(Value: String);

clear the rectangle

Properties

property Color :

Published declarations

property ColorWidth : Integer


property Ctl3D :


property DragCursor :


property DragMode :


property DropDownCount :


property Enabled :


property Font :


property ItemHeight :


property Items :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property SortBy : TSortBy


property TabOrder :


property TabStop :


property Text :


property Version : String


property Visible :


property SelectedColor : TColor


property SelectedColorText : String


Events

event OnChange :


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

FColorWidth : Integer;

Private declarations

FSortBy : TSortBy;


FVersion : String;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure AddColor(ColorText: String; Color: TColor);


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

Use a "Buble Sort". Not the fastest algorithm, but it works fine here!


function GetSelectedColor: TColor;


function GetSelectedColorText: String;


procedure SetColorWidth(Value: Integer);


procedure SetSelectedColor(Value: TColor);


procedure SetSelectedColorText(Value: String);


procedure SetSortBy(Value: TSortBy);


procedure SetVersion(Value: String);

clear the rectangle


Properties


property Color :

Published declarations


property ColorWidth : Integer


property Ctl3D :


property DragCursor :


property DragMode :


property DropDownCount :


property Enabled :


property Font :


property ItemHeight :


property Items :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property SortBy : TSortBy


property TabOrder :


property TabStop :


property Text :


property Version : String


property Visible :


property SelectedColor : TColor


property SelectedColorText : String


Events


event OnChange :


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


FColorWidth : Integer;

Private declarations


FSortBy : TSortBy;


FVersion : String;