vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: "C:\Image2.bmp"; Flags: dontcopy solidbreak
[Code]
var
FinishedPage: TBitmapImage;
procedure InitializeWizard();
begin
WizardForm.WizardBitmapImage2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
FinishedPage := TBitmapImage.Create(WizardForm);
with FinishedPage do
begin
Parent := WizardForm.FinishedPage;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(497);
Height := ScaleY(313);
ExtractTemporaryFile('Image2.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image2.bmp'));
end;
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 12:16 23-12-2013 | Исправлено: vint56, 12:37 23-12-2013 |
|
