INNO TROUBLESHOOT - Questions Here

[Logrim]

Hi,, i need help.. again.. how can i put this code in a custom label?

(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;

Thanks for your help.

[altef_4]

Originally Posted by Logrim

Hi,, i need help.. again.. how can i put this code in a custom label?



Thanks for your help.

YourCustomLabel.Caption := ExpandConstant('{cm:ChangeDisk} ') + Arc1[2];

[Logrim]

Thanks Altef,, but dont work,, is not a label, sorry is a tnewstatictext, i create a form, and i want to skin my "insert disc 1" msgbox like i made with the custom exit, but i have problem inserting that code

I'll show you the code of the custom form, and the part where i want to put it,, if you can help me with that i'm very thankful to you.

The change disc custom form:

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;

procedure MyChangeDiscMessage();
begin
MyChangeDisc := CreateCustomForm();
with MyChangeDisc do
begin
BorderStyle:= bsNone;
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height div 2;
Color := clBlack;

with TNewStaticText.Create(MyChangeDisc) do
begin
Left := ScaleX(110);
Top := ScaleY(20);
Width := MyChangeDisc .Width - ScaleX(115);
Height := MyChangeDisc .Height div 2;
AutoSize := False;
WordWrap := True;
Caption := ExpandConstant('{cm:ChangeDisk} ') + Arc1[2];
Parent := MyChangeDisc ;
Font.Color := clWhite;
end;
end;

CDYesBtn:=BtnCreate(MyChangeDisc .Handle,572,5,15,15,ExpandConstant('{tmp}\ExitBtn. png'),0,False);
BtnSetEvent(CDYesBtn,BtnClickEventID,WrapBtnCallba ck(@ButtonOnClick,1));
BtnSetEvent(CDYesBtn,BtnMouseEnterEventID,WrapBtnC allback(@BtnEnter,1));
BtnSetCursor(CDYesBtn,GetSysCursorHandle(32649));

CDNoBtn:=BtnCreate(MyChangeDisc .Handle,560,5,15,15,ExpandConstant('{tmp}\OkBtn.pn g'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallbac k(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));
end;
////////////////////////////////////////////////////////////////////////////////////////////////

And in this part of the code is where i want to skin the msgbox:

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;
i:= i + 1;
end;
end;

[y_thelastknight]

If im correct delete this line

if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;

It would be like this

MyChangeDiscMessage;
MyChangeDisc.showmodel;
If modelresult=mrno then ISDoneError := True;

procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;

What is that?? Is that fine??

Correct me if im wrong

[Logrim]

Thanks y_thelastnight, work fine, the form show correctly, but there is two little problems :d.. the buttons ok and cancel, not work well, and i cant show one part of the message..
this code part

+ Arc1[2]

dont work,, "unknow identifier Arc1[2]" error.

And the buttons how i say dont work .. but thanks man, i have problems calling custom forms .. Still on vacations, by the way? :P

[y_thelastknight]

Originally Posted by Logrim

the buttons ok and cancel, not work well, and i cant show one part of the message..
this code part dont work,, "unknow identifier Arc1[2]" error.

I know button wont work like this situation.we did with another method create tbutton and made them as mrok and mrno and call them with botva2 button.

unknow identifier Arc1[2]

Set the var and try. I guess this is the problem. But im not pro you know

Still on vacations, by the way? :P

Yup

[Logrim]

I forget to set the var.. ains.. sorry for the silly cuestion y_thelasknight.. but the buttons still doesnt work,, i test in some ways and nothing work.

[y_thelastknight]

Did you try with only tbutton??did it works??

[Logrim]

I try with invisible tbuttons like in my other forms, you know the others .. but nothing,, i try with botva buttons and nothing,, and i try making a form like my detect installation form in that way:

function ShowOptionsForm: TModalResult;
var
OptionsLabel, RepairButtonLabel, UninstallButtonLabel, OptionsCancelLabel: TLabel;
RepairButton, UninstallButton, OptionsCancelButton: TNewButton;
begin
Result := mrNone;
OptionsForm := CreateCustomForm;
try
etc
etc

But nothing seems to work.

The botva butons showing correctly but seems not to aply mrCancel and mrOk.

[y_thelastknight]

Originally Posted by Logrim

I try with invisible tbuttons like in my other forms, you know the others .. but nothing,, i try with botva buttons and nothing,, and i try making a form like my detect installation form in that way:

function ShowOptionsForm: TModalResult;
var
OptionsLabel, RepairButtonLabel, UninstallButtonLabel, OptionsCancelLabel: TLabel;
RepairButton, UninstallButton, OptionsCancelButton: TNewButton;
begin
Result := mrNone;
OptionsForm := CreateCustomForm;
try
etc
etc

But nothing seems to work.

The botva butons showing correctly but seems not to aply mrCancel and mrOk.

Change the invisible button to visible and try click it. If it works set the botva2 button click tbutton

Eg ( botva2 button name.onclick=tbutton name.click )

Hope you understand what iam saying

[Logrim]

not work.. aggg,,, nah, y_thelasknight, thanks,, dont worry,, i'll try make the work later,, i need a beer :P..

[y_thelastknight]

Originally Posted by Logrim

not work.. aggg,,, nah, y_thelasknight, thanks,, dont worry,, i'll try make the work later,, i need a beer :P..

Rofl

[Logrim]

Problems solved y_thelastknight,, all work ok now.

[y_thelastknight]

Originally Posted by Logrim

Problems solved y_thelastknight,, all work ok now.

Beer fix it

[Alfons]

Hello all!
Im new in this thingy aaaaand i dont really have some expirience in Inno or Issi or Isskin and so on and on aaaaaaaand my question might be dumb but i wasted 2 days of thinking how to solve the problem aaaaand i cant.Im working with INNO, ISSI, and ISSkin

So i have some codes with InitializeWizard and InitializaSetup i know that in _issi.isi has the same lines aaaaaaand i tryed with making #define ISSI_useMyInitializeWizard and ISSI_useMyInitializeSetup and add it the same in the [CODE] Line but then the code dont work.

I tryed to make the line liiiike InitializeWizard() and InitializeWizard(1/2/3/4 and so on) aaand the codes dont respawn again. I even tryed to change the lines in .isi file (that idea was retard i know) aaand nothing again xD

I guess there is solution but i dont have the point of view to see it (if you know what i mean) so please i will be really happy if someone has some ideas how to work that out.