Gnom3
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
#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;
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,WizardForm.ClientWidth,WizardForm.ClientHeight);
imgApplyChanges(WizardForm.Handle);
end;
procedure InitializeWizard;
var
i:integer;
begin
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(WizardForm.Handle,ExpandConstant('{tmp}')+'\5.jpg',0,0,WizardForm.ClientWidth,WizardForm.ClientHeight,True,False);
ClientWidth := ScaleX(480); // потом задаем нужный нам размер формы
ClientHeight := ScaleY(200);
end;
imgApplyChanges(WizardForm.Handle);
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end; |
