Inno Setup (создание инсталяционных пакетов) - [1328] :: Программы

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Files]
;Source: Network.txt; DestDir: {app}; Check: RadioButtonNetwork
;Source: local.txt; DestDir: {app}; Check: RadioButtonlocal

[CustomMessages]
Myver=Выбор Сети
Network=Сетевая
local=Локальная

[Code]
var
Label1: TLabel;
Network: TNewRadioButton;
local: TNewRadioButton;

function RadioButtonNetwork(): Boolean;
begin
Result:= Network.Checked;
end;

function RadioButtonlocal(): Boolean;
begin
Result:= local.Checked;
end;

procedure RedesignWizardForm;
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.SelectDirPage;
Caption := ExpandConstant('{cm:Myver}');
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(120);
Width := ScaleX(95);
Height := ScaleY(13);
end;

{ Network }
Network := TNewRadioButton.Create(WizardForm);
with Network do
begin
Name := 'Network';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(136);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:Network}');
Checked := True;
end;

{ local }
local := TNewRadioButton.Create(WizardForm);
with local do
begin
Name := 'local';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(160);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:local}');
end;

Network.TabOrder := 5;
local.TabOrder := 6;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;

Модерирует : gyra, Maz
articlebot (13-10-2013 23:33): продолжение темы - №15	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению