INNO TROUBLESHOOT - Questions Here

[Logrim]

hi, i need help.. again,.. i hope that is the last time ..

i have a custom change disc form.. all work,, but the image and the change disk label dont show together.. when i quit the image, the label show,, if i put the image the label not show.. i hope i explain well..

This is the form code:

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure MyChangeDiscMessage();
begin
MyChangeDisc := CreateCustomForm();
MyChangeDisc.BorderStyle:= bsNone;
MyChangeDisc.Position := poScreenCenter;
MyChangeDisc.BringToFront;
MyChangeDisc.ClientWidth := WizardForm.Width;
MyChangeDisc.ClientHeight := WizardForm.Height div 2;

MyChangeDiscLabel:= TLabel.Create(MyChangeDisc);
MyChangeDiscLabel.Parent:= MyChangeDisc;
MyChangeDiscLabel.SetBounds(40,7,600,15);
MyChangeDiscLabel.AutoSize:= False;
MyChangeDiscLabel.WordWrap:= True;
MyChangeDiscLabel.Transparent:= True;
MyChangeDiscLabel.Font.Name := 'Verdana';
MyChangeDiscLabel.Font.Color:= clGray;
MyChangeDiscLabel.Font.Size:= 8;

CDYesBtn:=BtnCreate(MyChangeDisc.Handle,560,6,15,1 5,ExpandConstant('{tmp}\OkBtn.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,572,6,15,15 ,ExpandConstant('{tmp}\ExitBtn.png'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallbac k(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));

img:=ImgLoad(MyChangeDisc.Handle,ExpandConstant('{ tmp}\Exit.png'),0,0,600,190,True,True);
ImgApplyChanges(MyChangeDisc.Handle);
end;

function ShowDiskChanger(Disk, Arc: String):Integer;
begin
MyChangeDiscMessage();
MyChangeDiscLabel.Caption:='Please insert disc ' + Disk + ' with ' + ExtractFileName(Arc);
Result:=MyChangeDisc.ShowModal;
end;
////////////////////////////////////////////////////////////////////////////////////////////////

and this part in curvestepchanged:

if Arc[0] = 'Freearc' then
begin
if not FileExists(Arc[1]) then begin
repeat
if ShowDiskChanger(Arc[3],Arc[1]) = mrNo then
ISDoneError := True;
until (FileExists(Arc[1]) = True) or (ISDoneError = True)
end;
if ISDoneError = False then
if not ISArcExtract ( 0, 0, Arc[1], Arc[2], '', false, Arc[7], ExpandConstant('{tmp}\arc.ini'), Arc[2], false) then ISDoneError := True;
end;

P.D. I try to put the imgload code in all sites in the form, but doesnt work.. The label is inside the "ShowDiscChanger" funtion, i think is for this, but i need the funtion for the correct operation of the script..

[y_thelastknight]

Originally Posted by danswano

My ISDone script is customized, i've tried to put every part of the code in it's place but i end up with each try with this error:

Check your code again danswano. Its calling for initilizewizard from initilizesetup. It cannot be done like that.

Originally Posted by Logrim

hi, i need help.. again,.. i hope that is the last time ..

i have a custom change disc form.. all work,, but the image and the change disk label dont show together.. when i quit the image, the label show,, if i put the image the label not show.. i hope i explain well..

This is the form code:



and this part in curvestepchanged:


P.D. I try to put the imgload code in all sites in the form, but doesnt work.. The label is inside the "ShowDiscChanger" funtion, i think is for this, but i need the funtion for the correct operation of the script..

Did you try with this??

MyChangeDiscLabel.bringtofront
I forget it search it in inno setup file

[altef_4]

Originally Posted by Logrim

hi, i need help.. again,.. i hope that is the last time ..

i have a custom change disc form.. all work,, but the image and the change disk label dont show together.. when i quit the image, the label show,, if i put the image the label not show.. i hope i explain well..

This is the form code:



and this part in curvestepchanged:


P.D. I try to put the imgload code in all sites in the form, but doesnt work.. The label is inside the "ShowDiscChanger" funtion, i think is for this, but i need the funtion for the correct operation of the script..

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure MyChangeDiscMessage(Disk, Arc: String);
begin
MyChangeDisc := CreateCustomForm();
MyChangeDisc.BorderStyle:= bsNone;
MyChangeDisc.Position := poScreenCenter;
MyChangeDisc.BringToFront;
MyChangeDisc.ClientWidth := WizardForm.Width;
MyChangeDisc.ClientHeight := WizardForm.Height div 2;

MyChangeDiscLabel:= TLabel.Create(MyChangeDisc);
MyChangeDiscLabel.Parent:= MyChangeDisc;
MyChangeDiscLabel.Caption:='Please insert disc ' + Disk + ' with ' + ExtractFileName(Arc);
MyChangeDiscLabel.SetBounds(40,7,600,15);
MyChangeDiscLabel.AutoSize:= False;
MyChangeDiscLabel.WordWrap:= True;
MyChangeDiscLabel.Transparent:= True;
MyChangeDiscLabel.Font.Name := 'Verdana';
MyChangeDiscLabel.Font.Color:= clGray;
MyChangeDiscLabel.Font.Size:= 8;

CDYesBtn:=BtnCreate(MyChangeDisc.Handle,560,6,15,1 5,ExpandConstant('{tmp}\OkBtn.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,572,6,15,15 ,ExpandConstant('{tmp}\ExitBtn.png'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallback(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));

img:=ImgLoad(MyChangeDisc.Handle,ExpandConstant('{ tmp}\Exit.png'),0,0,600,190,True,True);
ImgApplyChanges(MyChangeDisc.Handle);
end;

function ShowDiskChanger(Disk, Arc: String):Integer;
begin
MyChangeDiscMessage(Disk, Arc);
Result:=MyChangeDisc.ShowModal;
end;
////////////////////////////////////////////////////////////////////////////////////////////////