| Class TILB (unit Ilb) |
TListBox
| Constructors |
constructor Create(owner:tcomponent);----------------------------------------------------------------------------
| Functions |
destructor Destroy;
Procedure DrawItem(Index:integer;R:trect;State:TownerDrawState);
Procedure MeasureItem(Index:integer;var altura:integer);
Function GetFi:integer;
Function GetIndent:TEnumType;
Procedure SetFi(i:integer);
Procedure SetFont2(value:tfont);
Procedure SetIndent(i:TEnumType);| Properties |
property DrawLineColor : TColor
property DrawLines : boolean
property FontHeader : tfont
property Indent : TenumType
property PosIndent : integer| Events |
| Variables |
alto : integer;
DoDrawLines : boolean;
FFont2 : TFont;
Fi : integer;
Findent : TEnumType;
LineColor : TColor;
lista : tstringlist;| Constructors |
constructor Create(owner:tcomponent);-- Callback to calculate each item height in the list--
----------------------------------------------------------------------------
| Functions |
destructor Destroy;
Procedure DrawItem(Index:integer;R:trect;State:TownerDrawState);--retrieves Fi--
Procedure MeasureItem(Index:integer;var altura:integer);-- Custom drawing of items in the list---
Function GetFi:integer;--sets Fi--
Function GetIndent:TEnumType;-- sets Findent---
Procedure SetFi(i:integer);-- retrieves Findent--
Procedure SetFont2(value:tfont);
Procedure SetIndent(i:TEnumType);| Properties |
property DrawLineColor : TColor
property DrawLines : boolean
property FontHeader : tfont
property Indent : TenumType
property PosIndent : integer| Events |
| Variables |
alto : integer;--- working list----
DoDrawLines : boolean;
FFont2 : TFont;-- wether draw lines or not--
Fi : integer;--- indent option---
Findent : TEnumType;
LineColor : TColor;--default char height--
lista : tstringlist;--- indent position--