INNO TROUBLESHOOT - Questions Here

[Logrim]

Work fine,, but i need the two messages OnEnter. I need something similar to your new EI demo altef,, for example when mouse down on option button, display two text.. one with "options text title" and one with "options text description". ohh,, i forget,, and when not button on mouse down, i like the text dissapears.. sorry for the disturb

[altef_4]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

end;
end;

procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:='';
MessageLabel.Caption:='';
end;

end;
end;

[Logrim]

Thanks man,, work perfectly.. i look newbie on this... BEGIN, END... ains.. thanks a lot again man.

[Logrim]

Altef,, the MessageOnEnter procedure works fine, but how change the finish button caption? i mean when finish, the caption is the StartTittle but i need to change to FinishTittle..

[Razor12911]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
if WizardForm.CurPageID = wpFinished then
begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('Whateve r, blah, write here');
MessageLabel.Caption:=ExpandConstant('Whatever, blah, write here');
end;
end else begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
end;
end;

[Logrim]

Thanks razor,, work like a charm :d.. i forgot to include wizardform in curpageid... ains..

Another problem... i hope,, really i hope is the last.. when i cancel the installation (external compression) even in 1% or 2%, the correct message of rollingback appears, but the setup dont quit.. i dont know why.. this is my cancel procedure:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Razor12911]

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
Cancel:=True;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Logrim]

i have a little problem.. i want the destock shorcut checked in the setup, but i dont find a way to work..

this is my shorcut procedures:

procedure DesktopClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'), $0001);
if BtnGetChecked(hBtn) then CreateDLabel.Font.Color:=$20A5DA else CreateDLabel.Font.Color:=$008CFF;
end;

procedure DesktopLabelClick(Sender:TObject);
begin
BtnSetChecked(DesktopCheck, not BtnGetChecked(DesktopCheck));
DesktopClick(DesktopCheck);
end;

Thanks

P.D. Problem solved,, was easy... ains.. only adding " BtnSetChecked(DesktopCheck,True)" to wpwelcome in CurPageChanged..

[Logrim]

i need to know how see the installer in the taskbar please thanks for your help.

[Logrim]

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

[y_thelastknight]

Originally Posted by Logrim

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

use this dll bro.

WinTB 1.0.0.8 by David.D.Rocco

[Logrim]

Thanks y_thelastknight... the problem with wintb is that when i mousedown in taskbar setup icon, dont show the buttons and text, only de png that i set in background. My installer have a bmp mask.

[Logrim]

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..

//BtnSetVisibility(DirectXCheck,False);
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';

Help please.. Thanks

[y_thelastknight]

@logrim Contact me in fb.. i have to confirm something.

[y_thelastknight]

Originally Posted by Logrim

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..



Help please.. Thanks

BtnSetVisibility(DirectXCheck,ExpandConstant('{cod e:Redist 1Name}') <> '');
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';