Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
#include "Modules\botva2.iss"
#include "Modules\TrackBar.iss"
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: Files\*; DestDir: "{tmp}"; Flags: dontcopy sortfilesbyextension
Source: compiler:Dll Pack\botva2.dll; Flags: dontcopy
Source: compiler:Dll Pack\CallbackCtrl.dll; Flags: dontcopy
[Code]
var
imgimg : Longint;
Form: TSetupForm;
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;
procedure FormResize(Sender:TObject);
begin
//Для ресайза изображения, лучше исподьзовать imgSetPosition
imgSetPosition(imgimg,0,0,Form.ClientWidth,Form.ClientHeight);
imgApplyChanges(Form.Handle);
end;
procedure InitializeWizard;
var
i:integer;
begin
Form := CreateCustomForm();
// Form.ClientWidth := ScaleX(480);
// Form.ClientHeight := ScaleY(200);
Form.Caption := 'Image';
Form.BorderIcons := [biSystemMenu];
Form.BorderStyle := bsSizeable;
Form.Hide;
Form.OnResize:=@FormResize;
Form.Show;
WizardForm.InnerPage.ParentShowHint := False;
with WizardForm do begin
ClientWidth:=GetSystemMetrics(16); // Сперва делаем размер формы во весь экран
ClientHeight:=GetSystemMetrics(17); // иначе изображение будет обрезаться по первоначальному размеру.
OnResize:=@FormResize;
Bevel.Hide;
InnerPage.Hide;
OuterNotebook.Hide;
BorderStyle := bsSizeable;
// загрузка изображения и окончательные размеры формы - в конце.
ExtractTemporaryFile('5.jpg'); // потом грузим изображение
imgimg:=imgLoad(Form.Handle,ExpandConstant('{tmp}')+'\5.jpg',0,0,Form.ClientWidth,Form.ClientHeight,True,False);
ClientWidth := ScaleX(480); // потом задаем нужный нам размер формы
ClientHeight := ScaleY(200);
end;
imgApplyChanges(Form.Handle);
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end;
|
