ZVSRus1957
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application} DefaultGroupName=My Application OutputDir=. UsePreviousAppDir=no UsePreviousGroup=no [Code_] var Label1 : TLabel; DesktopIcon : TNewCheckBox; StartMenuIcon : TNewCheckBox; procedure InitializeWizard(); begin { Label1 } Label1 := TLabel.Create(WizardForm); with Label1 do begin Parent := WizardForm.SelectDirPage; Caption := 'Дополнительные значки:'; Transparent := True; Left := ScaleX(5); Top := ScaleY(120); Width := ScaleX(130); Height := ScaleY(13); end; { DesktopIcon } DesktopIcon := TNewCheckBox.Create(WizardForm); with DesktopIcon do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(10); Top := ScaleY(140); Width := ScaleX(200); Height := ScaleY(17); Caption := 'Создать значек на Рабочем столе'; Checked := True end; { StartMenuIcon } StartMenuIcon := TNewCheckBox.Create(WizardForm); with StartMenuIcon do begin Parent := WizardForm.SelectDirPage; Left := ScaleX(10); Top := ScaleY(165); Width := ScaleX(200); Height := ScaleY(17); Caption := 'Создать значек в меню Пуск'; end; end; | | Всего записей: 43 | Зарегистр. 14-05-2015 | Отправлено: 10:26 16-12-2016 | Исправлено: ZVSRus1957, 11:56 16-12-2016 |
|