WebeR13
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var
buttons: Array[1..100] of TNewButton;
pathes: Array[1..100] of String;
function GetPath(Param: String): String;
begin
Result := ExpandConstant(pathes[StrToInt(Param)]);
end;
procedure ComponentsListClick(Sender: TObject);
var
Index: Integer;
begin
For Index := 1 To TStrings(WizardForm.ComponentsList.Items).Count do begin
buttons[Index].Enabled := WizardForm.ComponentsList.Checked[Index - 1];
end;
end;
procedure SelectDirButtonClick(Sender: TObject);
var
Btn: TNewButton;
Str: String;
begin
Btn := TNewButton(Sender);
if BrowseForFolder('Âûáåðèòå ïàïêó äëÿ ' + WizardForm.ComponentsList.Items[Btn.Tag - 1], Str, true)
then pathes[Btn.Tag] := Str
//else pathes[Btn.Tag] := '{app}';
WizardForm.ComponentsList.ItemSubItem[Btn.Tag - 1] := GetPath(IntToStr(Btn.Tag));
end;
procedure InitializeWizard();
var
Index: Integer;
begin
with WizardForm do begin
ComponentsList.Width := ComponentsList.Width - 40;
ComponentsList.OnClickCheck := @ComponentsListClick;
For Index := 1 To TStrings(WizardForm.ComponentsList.Items).Count do begin
pathes[Index] := CustomMessage('path' + IntToStr(Index));
buttons[Index] := TNewButton.Create(WizardForm);
with buttons[Index] do begin
Name := 'SelDirBtn' + IntToStr(Index);
Parent := SelectComponentsPage;
Left := ComponentsList.Left + ComponentsList.Width + 5;
Top := ComponentsList.Top + (Index - 1) * 17;
Width := InnerNotebook.Width - Left;
Height := ScaleY(15);
Caption := '...';
TabOrder := Index + 3;
OnClick := @SelectDirButtonClick;
Tag := Index;
end;
end;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
Var
Index: Integer;
begin
if CurPageID = wpSelectComponents
then begin
ComponentsListClick(WizardForm.ComponentsList);
For Index := 1 To TStrings(WizardForm.ComponentsList.Items).Count do WizardForm.ComponentsList.ItemSubItem[Index - 1] := GetPath(IntToStr(Index));
end;
end; |
Всего записей: 9 | Зарегистр. 12-10-2010 | Отправлено: 19:46 22-11-2010 | Исправлено: WebeR13, 20:01 22-11-2010 |
|
