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;
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 :=GetSystemMetrics(16); // Сперва делаем размер формы во весь экран
Form.ClientHeight :=GetSystemMetrics(17); // Сперва делаем размер формы во весь экран
Form.Caption := 'Image';
Form.BorderIcons := [biSystemMenu];
Form.BorderStyle := bsSizeable;
Form.Hide;
Form.OnResize:=@FormResize;
ExtractTemporaryFile('5.jpg'); // потом грузим изображение
imgimg:=imgLoad(Form.Handle,ExpandConstant('{tmp}')+'\5.jpg',0,0,Form.ClientWidth,Form.ClientHeight,True,False);
// сперва Применяем изображение
imgApplyChanges(Form.Handle);
// теперь задаем нужные размеры.
Form.ClientWidth := ScaleX(480);
Form.ClientHeight := ScaleY(200);
Form.Show;
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end; |
