boss911
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Code_]
var
Label1 : TLabel;
DesktopIcon : TNewCheckBox;
StartMenuIcon : TNewCheckBox;
function DesktopIconCheck: Boolean;
begin
Result:= DesktopIcon.Checked;
end;
function StartMenuIconCheck: Boolean;
begin
Result:= StartMenuIcon.Checked;
end;
procedure InitializeWizard();
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm.SelectDirPage;
Caption := CustomMessage('AdditionalIcons');
Transparent := True;
Left := ScaleX(0);
Top := ScaleY(120);
Width := ScaleX(320);
Height := ScaleY(15);
end;
{ DesktopIcon }
DesktopIcon := TNewCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(140);
Width := ScaleX(320);
Height := ScaleY(15);
Caption := CustomMessage('CreateDesktopIcon');
Checked := False
end;
{ StartMenuIcon }
StartMenuIcon := TNewCheckBox.Create(WizardForm);
with StartMenuIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(160);
Width := ScaleX(320);
Height := ScaleY(15);
Caption := CustomMessage('CreateStartMenuIcon');
Checked := True
end;
end;
|
|
Всего записей: 3704 | Зарегистр. 29-01-2005 | Отправлено: 14:56 16-12-2016 | Исправлено: boss911, 15:06 16-12-2016 |
|
