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

[Code]
var
img1: TBitmapImage;
Readme: TSetupForm;
CancelButton: TButton;

procedure ReadmeForm();
begin
Readme := CreateCustomForm();
with Readme do
begin
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height;
Caption := 'Readme';
BorderStyle:=bsNone;
end;
img1 := TBitmapImage.Create(Readme);
ExtractTemporaryFile('1.bmp');
with TBitmapImage.Create(Readme) do
begin
Left := ScaleX(0);
Top := ScaleY(0);
Width := WizardForm.Width;
Height := WizardForm.Height;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
Parent := Readme;
end;

CancelButton := TButton.Create(Readme);
with CancelButton do
begin
Width := WizardForm.CancelButton.Width;
Height := WizardForm.CancelButton.Height;
Left := Readme.Width - Width - ScaleX(15);
Top := Readme.Height - Height * 2 - ScaleY(15);
Caption := 'Закрыть';
ModalResult := mrCancel;
Parent := Readme;
end;
end;

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