for iIndex := 0
to 1
do
begin
iString := lowercase(Ini.ReadString(Menu,'
List' + IntToStr(iIndex) + '
Function','
0'));
If iString = '
0'
then Goto ListEnde;
SkinList := TListView.create(SkinForm);
with SkinList
do
begin
Parent := SkinForm;
Name := iString;
Doublebuffered := True;
HelpKeyword := iString;
SetBounds(Ini.ReadInteger(Menu,'
List' + IntToStr(iIndex) + '
X',0),Ini.ReadInteger(Menu,'
List' + IntToStr(iIndex) + '
Y',0),Ini.ReadInteger(Menu,'
List' + IntToStr(iIndex) + '
Width',0),Ini.ReadInteger(Menu,'
List' + IntToStr(iIndex) + '
Height',0));
ViewStyle := vsSmallIcon;
SmallImages :=
IL;
BorderStyle := bsnone;
OwnerData := true;
Color := HTMLColorToColor(Ini.ReadString(Menu,'
List' + IntToStr(iIndex) + '
BackColor','
&HFFFFFF'));
Font.Color := HTMLColorToColor(Ini.ReadString(Menu,'
List' + IntToStr(iIndex) + '
FontColor','
&H000000'));
Font.
Name := Ini.ReadString(Menu,'
List' + IntToStr(iIndex) + '
Font','
Arial');
Font.Size := Ini.ReadInteger(Menu,'
List' + IntToStr(iIndex) + '
FontSize',0);
OnClick := Form1.SkinListClick;
OnDblClick := Form1.SkinListDblClick;
end;
if SkinList.
Name = '
media'
then ListMedia := SkinList;
end;