Inno Setup Help

[RamiroCruzo]

Hola mi amigos....

I was making [basically trying] to make a new Inno Setup Script but am encountering the following problems:

1. HOw to add two slideshows on a same page...I've tried renaming the isslideshow dll into two dlls but the only problem is that only one runs while the other one is stagnant....

2. Also, where is tio Gozarck???

[rinaldo]

ImgSetVisibility(YourImg, false);
ImgSetVisibility(YourImg, true);

[RamiroCruzo]

Originally Posted by rinaldo

ImgSetVisibility(YourImg, false);
ImgSetVisibility(YourImg, true);

I need to replace that form image in every wizard page not hide of show...Also, I've already tried it & it say internal error for more than 2 of the images....

[rinaldo]

wizardform.caption:="";

[RamiroCruzo]

Originally Posted by rinaldo

wizardform.caption:="";

Thanks mi hermano...But the rest questions

[RamiroCruzo]

Amigos....Please take a look.....

[Razor12911]

var
Img1, Img2: Longint;....

under initializewizard
Img1:=ImgLoad(WizardForm.Handle,ExpandConstant('{t mp}')+'\frame1.png',0,0,900,540,True,True);
Img2:=ImgLoad(WizardForm.Handle,ExpandConstant('{t mp}')+'\frame2.png',0,0,900,540,True,True);
....


under curpagechange
ImgSetVisibility(Img1, false);
ImgSetVisibility(Img2, false);
case CurPageID of
wpWelcome:
begin
ImgSetVisibility(Img1, true);
....
end;
wpSelectDir:
begin
ImgSetVisibility(Img2, true);
....
end;

[RamiroCruzo]

Originally Posted by Razor12911

var
Img1, Img2: Longint;....

under initializewizard
Img1:=ImgLoad(WizardForm.Handle,ExpandConstant('{t mp}')+'\frame1.png',0,0,900,540,True,True);
Img2:=ImgLoad(WizardForm.Handle,ExpandConstant('{t mp}')+'\frame2.png',0,0,900,540,True,True);
....


under curpagechange
ImgSetVisibility(Img1, false);
ImgSetVisibility(Img2, false);
case CurPageID of
wpWelcome:
begin
ImgSetVisibility(Img1, true);
....
end;
wpSelectDir:
begin
ImgSetVisibility(Img2, true);
....
end;

Thanks mi hermano...Now, only one problem remains....Like I've told you too..... Those slideshows on wpWelcome Page....

[rinaldo]

#Define SlideShow
#Define Time = "3000"

#define GameName "Slides"
#define Publisher "Publisher"
#define GameExe "GameExe.exe"

[Setup]
AppName={#GameName}
AppVerName={#GameName}
AppPublisher={#Publisher}
DefaultDirName={pf}\{#GameName}
DefaultGroupName={#GameName}


[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Icons]
Name: "{commondesktop}\{#GameName}"; Filename: "{app}\{#GameExe}";

[UninstallDelete]
Type: filesandordirs; Name: {app}

[Files]
#ifdef SlideShow
Source: Slides\isSlideShow.dll; DestDir: {tmp}; Flags: dontcopy
Source: Slides\*.jpg; DestDir: {tmp}; Flags: dontcopy
#endif

[ Code]
#ifdef SlideShow
var
TimerID: LongWord;
CurrentPicture:integer;
PicList: TStringlist;
#endif

#ifdef SlideShow
Type
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
#endif

#ifdef SlideShow
function WrapTimeCallback(Callback:TProc; NumParam:integer): longword; external 'WrapCallback@files:isslideshow.dll stdcall';
function GetSystemMetrics(nIndex:Integer):Integer; external '[email protected] stdcall';
procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer); external 'InitializeSlideShow@files:isslideshow.dll stdcall';
procedure DeinitializeSlideShow; external 'DeinitializeSlideShow@files:isslideshow.dll stdcall';
procedure ShowImage(ipath:PAnsiChar; Effect:integer; SpeedTransition: integer); external 'ShowImage@files:isslideshow.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external '[email protected] stdcall';
#endif

#ifdef SlideShow
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
CurrentPicture:=CurrentPicture+1;
if CurrentPicture=piclist.count+1 then CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture - 1], 2, 1000);
end;
#endif

procedure InitializeWizard();
begin
  #ifdef SlideShow
    PicList:=tstringlist.Create;
    ExtractTemporaryFile('1.jpg');
    ExtractTemporaryFile('2.jpg');
    ExtractTemporaryFile('3.jpg');
    ExtractTemporaryFile('4.jpg');
    ExtractTemporaryFile('5.jpg');
    piclist.add(ExpandConstant('{tmp}') + '\1.jpg');
    piclist.add(ExpandConstant('{tmp}') + '\2.jpg');
    piclist.add(ExpandConstant('{tmp}') + '\3.jpg');
    piclist.add(ExpandConstant('{tmp}') + '\4.jpg');
    piclist.add(ExpandConstant('{tmp}') + '\5.jpg');
  #endif
end;


procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
#ifdef SlideShow
InitializeSlideShow(WizardForm.Handle, 0, 0, WizardForm.ClientWidth, WizardForm.ClientHeight, true, 2);
CurrentPicture:=1;
ShowImage(piclist.strings[CurrentPicture-1], 1, 1000);
TimerID:=SetTimer(0, 0, {#Time}, WrapTimeCallback(@OnTimer, 4));
#endif
end;
wpFinished:
begin
#ifdef SlideShow
KillTimer(0, TimerID);
DeinitializeSlideShow;
#endif
end;
end;
end;

procedure DeinitializeSetup();
begin
#ifdef SlideShow
DeinitializeSlideShow;
KillTimer(0, TimerID);
#endif
end;

procedure CancelButtonClick(CurPageID: Integer;
var Cancel, Confirm: Boolean);
begin
Confirm:=False;
#ifdef SlideShow
DeinitializeSlideShow;
KillTimer(0, TimerID);
#endif
end;

[RamiroCruzo]

Thanks Rinaldo hermano....But the ode you gave me is for a single slideshow...I'm trying to add two on the same page....

[rinaldo]

use double panel

[RamiroCruzo]

Originally Posted by rinaldo

use double panel

You talking about adding two of

InitializeSlideShow(WizardForm.Handle, 0, 356, scaleX(200), ScaleY(112), true, 2);

I did that....But one goes on while other just sits idle....