Alex1985
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
var
CheckListBox: TNewCheckListBox;
function MyConst(Param: String): String;
begin
if CheckListBox.Checked[1] then
Result := ExpandConstant('{commonprograms}')
else
Result := ExpandConstant('{userprograms}');
end;
procedure InitializeWizard();
begin
CheckListBox := TNewCheckListBox.Create(WizardForm);
CheckListBox.Top := WizardForm.GroupEdit.Top + WizardForm.GroupEdit.Height + ScaleY(28);
CheckListBox.Width := WizardForm.GroupEdit.Width;
CheckListBox.Height := ScaleY(97);
CheckListBox.BorderStyle := bsNone;
CheckListBox.ParentColor := True;
CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight;
CheckListBox.ShowLines := False;
CheckListBox.WantTabs := True;
CheckListBox.Parent := WizardForm.SelectProgramGroupPage;
CheckListBox.AddGroup('Create shortcuts', '', 0, nil);
CheckListBox.AddRadioButton('For All Users', '', 0, True, True, nil);
CheckListBox.AddRadioButton('For Current User Only', '', 0, False, True, nil);
end; |
Всего записей: 814 | Зарегистр. 07-05-2004 | Отправлено: 00:55 22-01-2010 | Исправлено: Alex1985, 01:01 22-01-2010 |
|
