[Gugle]

Доброго времени суток!

Народ, пните меня в описание методов (процедур/функций) для разных объектов, таких как: TNewCheckListBox, TNewProgressBar, TNewStaticText и т.д.

И вопрос: Как обойти элементы добавленные в TNewCheckListBox?
Смог только найти функцию, с помощью которой можно обратиться в элементу и узнать выделен он или нет (

Код:

CheckListBox.Checked[1]:=True/False

). Но этого мало, надо еще как то вытащить количество элементов и их описание. Для простоты примера выложил заготовку, если кому не лень подскажите.

читать дальше »

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[code]

procedure InitializeWizard;
var
Page: TWizardPage;
CheckListBox: TNewCheckListBox;
RichEditViewer: TRichEditViewer;
i: Integer;
s: String;

begin
{ РАЗ }
Page := CreateCustomPage(wpWelcome, 'Тестовая панель', 'Тестовая панель номер РАЗ!.');

CheckListBox := TNewCheckListBox.Create(Page);
CheckListBox.Width := Page.SurfaceWidth;
CheckListBox.Height := ScaleY(100);
CheckListBox.Flat := True;
CheckListBox.Parent := Page.Surface;

for i := 0 to 15 do
CheckListBox.AddCheckBox('TNewCheckListBox_'+IntToStr(i), '', 0, True, True, False, True, nil);

{ ДВА }
Page := CreateCustomPage(Page.ID, 'Тестовая панель', 'Тестовая панель номер ДВА!');
RichEditViewer := TRichEditViewer.Create(Page);
RichEditViewer.Width := Page.SurfaceWidth;
RichEditViewer.Height := Page.SurfaceHeight;
RichEditViewer.Parent := Page.Surface;
RichEditViewer.ScrollBars := ssVertical;
RichEditViewer.UseRichEdit := True;

for i:=0 to CheckListBox.Count-1 do begin
s := s + '; ' + IntToStr(i) + '_' + CheckListBox.Checked[i] + '_' + CheckListBox.Item[i];
end;

RichEditViewer.RTFText := s;
RichEditViewer.ReadOnly := True;

end;