type
TSkinListBox =
class
private
LStyle: DWORD;
FHOwner : HWND;
procedure SetCTLFont(hCtL: HWND; Font: hFont);
procedure SubClass(WinHandle: HWND);
procedure UnSubClass(WinHandle: HWND);
public
Handle: HWND;
procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
class procedure DrawItem(WinHandle: HWND;
Dc: Hdc;
Index: Integer;Rect: TRect; Selected: Bool);
procedure DrawItems(lP: Integer);
class procedure ListSetTopIndex(hList: HWND; nTopIndex: Integer);
class function ListGetTopIndex(hList: HWND): Integer;
class function ListGetSel(hList: HWND; nSelected: Integer): Bool;
class function GetItemHeight(hList: HWND; ItemHeigh: Integer): Integer;
constructor Create(hOwner: HWND; FullpathImageName:
string; x, y, xW, yH,
ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF);
destructor Destroy;
override;
end;
type
LBTYPE =
Record
AktForecolor : COLORREF;
InAktForecolor : COLORREF;
Backcolor : COLORREF;
Shadow : Boolean;
ShadowColor : COLORREF;
ShadowOffset : Integer;
ForeColorSelected : COLORREF;
BackColorSelected : COLORREF;
PointSize : Integer;
DrawStyle : Integer;
BorderStyle : Integer;
Icon :
string;
ItemHeight : Integer;
Handle : HWND;
Left : Integer;
Top : Integer;
Width : Integer;
Height : Integer;
Font : HFONT;
end;