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

[Setup]
AppName=Test
AppVerName=Test Script
DefaultDirName={pf}\Test

[code]
var
TestNote: TNewNotebook;
TestPage: TNewNotebookPage;

procedure InitializeWizard();
begin
TestNote := TNewNotebook.Create(WizardForm);
with TestNote do
begin
Name := 'TestNote';
Parent := WizardForm;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(497);
Height := ScaleY(313);
end;

TestPage := TNewNotebookPage.Create(WizardForm);
with TestPage do
begin
Name := 'TestPage';
Notebook := TestNote;
end;

with WizardForm.FilenameLabel do
begin
Parent := TestPage;
Left := ScaleX(16);
Top := ScaleY(40);
end;

with WizardForm.StatusLabel do
begin
Parent := TestPage;
Left := ScaleX(16);
Top := ScaleY(16);
end;

with WizardForm.ProgressGauge do
begin
Left := ScaleX(16);
Top := ScaleY(58);
Parent := TestPage;
end;

WizardForm.FilenameLabel.TabOrder := 0;
WizardForm.StatusLabel.TabOrder := 1;
WizardForm.ProgressGauge.TabOrder := 2;

TestNote.TabOrder := 5;
TestNote.ActivePage := TestPage;

WizardForm.OuterNotebook.Hide;
end;

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