[Richter]

Всем доброго времени суток! Кто мог бы поделиться скриптами или сказать где можно найти скрипты (или закосы под них) R.G. Catalyst, Spieler ?

[insombia]

ntrx http://rghost.ru/private/20901171/f2...3a7c2702b4f666

Richter Spieler catalyst

[Dark_Delphin]

Подскажите как в этом скрипте сделать что-бы анимация была Transparent?

читать дальше »

[Setup]
AppName=gifctrl
AppVerName=gifctrl Ver 2.1
DefaultDirName={pf}\gifctrl
DefaultGroupName=gifctrl
OutputDir=.

[Files]
Source: gifctrl.dll; Flags: dontcopy solidbreak
Source: smile0.gif; Flags: dontcopy solidbreak

[code]
const
HALIGN_CENTER = 0;
HALIGN_LEFT = 1;
HALIGN_RIGHT = 2;

VALIGN_CENTER = 0;
VALIGN_TOP = 1;
VALIGN_BOTTOM = 2;

FIT_NONE = 0;
FIT_WIDTH = 1;
FIT_HEIGHT = 2;
FIT_BOTH = 3;

CLR_INVALID = $FFFFFFFF;


function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';

var
GIFHWND0: HWND;

function InitializeSetup(): Boolean;
begin
GIFHWND0 := 0;

Result := True;
end;

procedure DeinitializeSetup();
begin
FreeAllGifWnd();
end;


procedure InitializeWizard();
var
GifFileName: String;
Lbl: TNewStaticText;
begin
ExtractTemporaryFile('smile0.gif');


GIFHWND0 := NewGifbWnd(WizardForm.installingPage.Handle, ScaleX(5), ScaleY(120), 21, 21);
GifWndLoadFromFile(GIFHWND0, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\Smile0.gif'));


end;

[Vista-w]

ntrx, есть куча примеров скрипта, для наложения картинки на инсталл.
Поиском воспользуйся.
http://www.forum.oszone.ru/post-1242285-250.html

[insombia]

Vista-w в том примере что ты дал картинка не на всех страницах

[Dark_Delphin]

Я же дал скрипт и сказал что мне нужно.
Мне только на InstallingPage , только у меня не получается сделать транспарент.(

[Vista-w]

ntrx,
Я не пойму, как ты картинки хочешь сделать Transarent ?

[Dark_Delphin]

Vista-w, вот скрипт, и мне нужно что-бы эта анимация была как фон.

читать дальше »

[Setup]
AppName=gifctrl
AppVerName=gifctrl Ver 2.1
DefaultDirName={pf}\gifctrl
DefaultGroupName=gifctrl
OutputDir=.

[Files]
Source: gifctrl.dll; Flags: dontcopy solidbreak
Source: smile0.gif; Flags: dontcopy solidbreak

[code]
const
HALIGN_CENTER = 0;
HALIGN_LEFT = 1;
HALIGN_RIGHT = 2;

VALIGN_CENTER = 0;
VALIGN_TOP = 1;
VALIGN_BOTTOM = 2;

FIT_NONE = 0;
FIT_WIDTH = 1;
FIT_HEIGHT = 2;
FIT_BOTH = 3;

CLR_INVALID = $FFFFFFFF;


function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';

var
GIFHWND0: HWND;

function InitializeSetup(): Boolean;
begin
GIFHWND0 := 0;

Result := True;
end;

procedure DeinitializeSetup();
begin
FreeAllGifWnd();
end;


procedure InitializeWizard();
var
GifFileName: String;
Lbl: TNewStaticText;
begin
ExtractTemporaryFile('smile0.gif');


GIFHWND0 := NewGifbWnd(WizardForm.installingPage.Handle, ScaleX(5), ScaleY(120), 21, 21);
GifWndLoadFromFile(GIFHWND0, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\Smile0.gif'));


end;

[insombia]

ntrx так нельзя чтобы анимация была фоном нужно картинку в формате bmp вставлять

[Dark_Delphin]

insombia, аа.. я не знал. Спасибо за инфу.
Тогда как наложить БМП на странице установки?