INNO TROUBLESHOOT - Questions Here

[Logrim]

I need an expert help here .. i know that in msgboxes i cant insert a image, because of that, i make a custom form, and it work well, but i need to know how to to insert the "insert disc" message that i have in the original msgbox, into the custom form.

This is the code:

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
ChangeDiscForm.ShowModal;
//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;

The part with // (the msgbox) its the part i need to include inside the custom form.

[altef_4]

Originally Posted by Logrim

I need an expert help here .. i know that in msgboxes i cant insert a image, because of that, i make a custom form, and it work well, but i need to know how to to insert the "insert disc" message that i have in the original msgbox, into the custom form.

This is the code:


The part with // (the msgbox) its the part i need to include inside the custom form.

you must create new label, button for dir browse dialog and edit in your custom form

[Logrim]

Thanks for your help altef 4.. i have the custom form, an ok and cancel button and a label. The code only ask for next disc, dont have browse dialog, i think the problem is in this part:

IDCANCEL then ISDoneError := True

i dont know how to insert in the custom form code.. the complete code for the custom form is this:

///////////////////////////////////////////////////////////CHANGE DISC CUSTOM FORM PROCEDURES
procedure ChangeDiscNoClick(Sender: TObject);
begin
ChangeDiscForm.ModalResult:=mrCancel;
end;

procedure ChangeDiscOkClick(Sender: TObject);
begin
ChangeDiscForm.ModalResult:=mrOk;
end;

procedure ChangeDiscFormOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(ChangeDiscForm.Handle,$0112,$F012,0);
end;
////////////////////////////////////////////////////////////////////////////////////////////////
procedure FormCloseBtnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
DirBrowseCancel.onclick(nil);
TaskCancel.onclick(nil);
ChangeDiscCancel.onclick(nil);
end;

procedure FormOkBtnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
DirBrowseOk.onclick(nil);
TaskOk.onclick(nil);
ChangeDiscOk.onclick(nil);
end;
////////////////////////////////////////////////////////////////////////////////////////////////

and this is the custom form perse:

///////////////////////////////////////////////////////////CHANGE DISC CUSTOM FORM
procedure CreateChangeDiscForm;
begin
ChangeDiscForm:= CreateCustomForm();
ChangeDiscForm.BorderStyle:=bsNone;
ChangeDiscForm.ClientWidth := ScaleX(400);
ChangeDiscForm.ClientHeight := ScaleY(300);
ChangeDiscForm.FormStyle:= fsStayOnTop;
ChangeDiscForm.OnMouseDown:=@ChangeDiscFormOnMouse Down;
ChangeDiscForm.Center;
ChangeDiscForm.BringToFront;

ChangeDiscLabel:= TLabel.Create(ChangeDiscForm);
ChangeDiscLabel.Parent:= ChangeDiscForm;
ChangeDiscLabel.SetBounds(40,13,600,30);
ChangeDiscLabel.AutoSize:= False;
ChangeDiscLabel.WordWrap:= True;
ChangeDiscLabel.Transparent:= True;
ChangeDiscLabel.Font.Name := 'Verdana';
ChangeDiscLabel.Font.Color:= clGray;
ChangeDiscLabel.Font.Style:=[fsBold];
ChangeDiscLabel.Font.Size:= 8;
ChangeDiscLabel.Caption:=ExpandConstant('{cm:Chang eDiscLabel}');

ChangeDiscCancel:= TButton.Create(ChangeDiscForm);
ChangeDiscCancel.SetBounds(0,0,0,0);
ChangeDiscCancel.OnClick:=@ChangeDiscNoClick;
ChangeDiscCancel.Cursor := crHand;
ChangeDiscCancel.Parent:=ChangeDiscForm;

ChangeDiscOk:= TButton.Create(ChangeDiscForm);
ChangeDiscOk.Parent:=ChangeDiscForm;
ChangeDiscOk.SetBounds(0,0,0,0);
ChangeDiscOk.OnClick:=@ChangeDiscOkClick;
ChangeDiscOk.Cursor := crHand;

hChangeDiscCancelBtn:=BtnCreate(ChangeDiscForm.Han dle,375,13,15,15,ExpandConstant('{tmp}\ExitBtn.png '), 0, false);
BtnSetEvent(hChangeDiscCancelBtn, BtnClickEventID,WrapBtnCallback(@FormCloseBtnClick ,1));
BtnSetEvent(hChangeDiscCancelBtn,BtnMouseEnterEven tID,WrapBtnCallback(@BtnEnter,1));
BtnSetCursor(hChangeDiscCancelBtn,GetSysCursorHand le(32649));

hChangeDiscOkBtn:=BtnCreate(ChangeDiscForm.Handle, 362,13,15,15,ExpandConstant('{tmp}\OkBtn.png'), 0, false);
BtnSetEvent(hChangeDiscOkBtn, BtnClickEventID,WrapBtnCallback(@FormOkBtnClick,1) );
BtnSetEvent(hChangeDiscOkBtn,BtnMouseEnterEventID, WrapBtnCallback(@BtnEnter,1));
BtnSetCursor(hChangeDiscOkBtn,GetSysCursorHandle(3 2649));

img:=ImgLoad(ChangeDiscForm.Handle,ExpandConstant( '{tmp}\ChangeDisc.png'),0,0,400,300,True,True);
ImgApplyChanges(ChangeDiscForm.Handle);
end;
////////////////////////////////////////////////////////////////////////////////////////////////

And thanks for the code of priority Altef,, i have problem with cpu usage even with -m0, cant open a single web page .

[altef_4]

Originally Posted by Logrim

Thanks for your help altef 4.. i have the custom form, an ok and cancel button and a label. The code only ask for next disc, dont have browse dialog, i think the problem is in this part:

IDCANCEL then ISDoneError := True

i dont know how to insert in the custom form code.. the complete code for the custom form is this:



and this is the custom form perse:



And thanks for the code of priority Altef,, i have problem with cpu usage even with -m0, cant open a single web page .

here is example of custom form for next disk for ISDone

[Setup]
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
AppPublisher=Winst@n, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"


[Files]
Source: {win}\help\*; DestDir: {app}\files1\; Flags: external recursesubdirs;
Source: {win}\help\*; DestDir: {app}\files2\; Flags: external recursesubdirs;
Source: {win}\help\*; DestDir: {app}\files3\; Flags: external recursesubdirs;
Source: {win}\help\*; DestDir: {app}\files4\; Flags: external recursesubdirs;

[code]
var
  TNewDiskForm :TSetupForm;
  DiskBitmapImage: TBitmapImage;
  SelectDiskLabel,PathLabel: TLabel;
  PathEdit: TEdit;
  BrowseButton: TButton;
  OKButton: TButton;
  CancelButton: TButton;
  Filename: String;
  Path: String;
  Dir: String;
  ModalResult: Longint;


//path for searching file
function GetSanitizedPath: String;
begin
 Result := Trim(PathEdit.Text);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
 Cancel:=True;
 Confirm:=False;
end;

//browse button procedure
procedure BrowseButtonClick(Sender: TObject);
begin
  Dir := GetSanitizedPath;
  if BrowseForFolder(SetupMessage (msgSelectDirectoryLabel), Dir, False) then
  PathEdit.Text := Dir + '\';
  TNewDiskForm.show;
end;

// close form (based on mrOK)
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Path := PathEdit.Text;
Filename:= ExpandConstant ('data_2.arc');
case TNewDiskForm.ModalResult of mrOK: begin
if (Path = '') or not FileExists(Path + Filename) then begin CanClose := false
MsgBox(FmtMessage(SetupMessage(msgFileNotInDir2), [Filename, Path]), mbError, MB_OK);
end;
end;
mrCancel:
begin
CanClose := True;
end;
end;
end;

// ask for next disk
procedure SelectDisk(const DiskNumber: Integer; const Filename, Path: String);
var ExitFlag:Boolean;
begin
  repeat
    TNewDiskForm:= CreateCustomForm();
    TNewDiskForm.SetBounds(ScaleX(0), ScaleY(0), ScaleX(377), ScaleY(200));
    TNewDiskForm.CenterInsideControl(WizardForm, False);
    TNewDiskForm.Caption:=SetupMessage(msgChangeDiskTitle);
    TNewDiskForm.Font.Color:= clWindowText
    TNewDiskForm.Font.Height:= -11
    TNewDiskForm.Font.Name:= 'MS Sans Serif'
    TNewDiskForm.Font.Style:= []
    TNewDiskForm.OnCloseQuery:=@FormCloseQuery;

    SelectDiskLabel:=TLabel.Create(TNewDiskForm)
    SelectDiskLabel.SetBounds(ScaleX(72),ScaleY(8), ScaleX(297), ScaleY(72));
    SelectDiskLabel.AutoSize:=False
    SelectDiskLabel.WordWrap:=True
    SelectDiskLabel.Transparent:=True
    SelectDiskLabel.Font.Color:=clBlack
    SelectDiskLabel.Font.Size:=8
    SelectDiskLabel.Caption:=FmtMessage(SetupMessage(msgSelectDiskLabel2), [IntToStr(DiskNumber)]);
    SelectDiskLabel.Parent:=TNewDiskForm
    SelectDiskLabel.ShowAccelChar:= False

    PathEdit:=TEdit.Create(TNewDiskForm)
    PathEdit.SetBounds(ScaleX(8), ScaleY(96), ScaleX(281), ScaleY(21));
    PathEdit.TabOrder:=2
    PathEdit.Text := ExpandConstant('{src}\');
    PathEdit.Parent := TNewDiskForm;

    PathLabel:= TLabel.Create(TNewDiskForm);
    PathLabel.SetBounds(ScaleX(8),ScaleY(80), ScaleX(5), ScaleY(14));
    PathLabel.Font.Color:=clBlack
    PathLabel.FocusControl:= PathEdit
    PathLabel.Caption := SetupMessage(msgPathLabel);
    PathLabel.Parent:=TNewDiskForm

    BrowseButton := TNewButton.Create(TNewDiskForm);
    BrowseButton.SetBounds(ScaleX(296), ScaleY(95), ScaleX(73), ScaleY(23));
    BrowseButton.Parent := TNewDiskForm;
    BrowseButton.OnClick:=@BrowseButtonClick;
    BrowseButton.Caption := SetupMessage(msgButtonBrowse);

    CancelButton := TNewButton.Create(TNewDiskForm);
    CancelButton.SetBounds(ScaleX(296), ScaleY(137), ScaleX(73), ScaleY(23));
    CancelButton.ModalResult := mrCancel;
    CancelButton.Parent := TNewDiskForm;
    CancelButton.Caption := SetupMessage (msgButtonCancel);

    OkButton := TNewButton.Create(TNewDiskForm);
    OkButton.SetBounds(ScaleX(216), ScaleY(137), ScaleX(73), ScaleY(23));
    OkButton.ModalResult := mrOk;
    OkButton.Parent := TNewDiskForm;
    OKButton.Caption := SetupMessage(msgButtonOK);

    TNewDiskForm.ShowModal;

//close form (based on mrCancel)
case TNewDiskForm.ModalResult of mrCancel:
begin
MsgBox('file not found or you just want to exit, setup now finished',mbError, MB_OK);
TNewDiskForm.free;
ExitFlag:= ExitSetupMsgBox;
Case ExitFlag of True:WizardForm.Close;
False:SelectDisk (DiskNumber,Filename,Path);
True:TNewDiskForm.free;
end;
end;
end;
until ((TNewDiskForm.ModalResult=mrOk)or(TNewDiskForm.ModalResult=mrCancel));
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
// Unpacking form start            disk №          search path
                                 //      |                 |
if CurStep = ssInstall then  SelectDisk (2, 'Filename','{src}');
end;                                //         |
//                                              searching file name

taken from this

[GloverK1911]

I'm use this script and it's not working when extract with precomp anybody can help me?

[Darkangel5]

Hello
how to install a skin for the window to Uninstall InnoSetup.

thank you

[danswano]

Hello everyone.
How can i group the tasks so i can check/uncheck them all at once in one click?

[y_thelastknight]

Originally Posted by GloverK1911

I'm use this script and it's not working when extract with precomp anybody can help me?

Check post #929
I didnt check your script

Originally Posted by Darkangel5

Hello
how to install a skin for the window to Uninstall InnoSetup.

thank you

Skin for uninstall wizardform???

Originally Posted by danswano

Hello everyone.
How can i group the tasks so i can check/uncheck them all at once in one click?

Did you create custom checkbox?

Then create a another check box and control them

Else check help file for it

Reply via mobile so cant do example

[Darkangel5]

Originally Posted by y_thelastknight

Skin for uninstall wizardform???

yes

[GloverK1911]

Originally Posted by y_thelastknight

Check post #929
I didnt check your script

I have copied but it still does not work

[y_thelastknight]

Originally Posted by Darkangel5

yes

Check this script
I cant do example dude im in mobile.
http://fileforums.com/showthread.php?t=95588

[Darkangel5]

Originally Posted by y_thelastknight

Check this script
I cant do example dude im in mobile.
http://fileforums.com/showthread.php?t=95588

thank you

[Logrim]

Thank for the change disc code Altef 4, work perfect.. this is how my change disk screen looks now thanks to you:

Nedd more fixers in the desing

[y_thelastknight]

Originally Posted by GloverK1911

I have copied but it still does not work

Then i have to check on pc
Right now i cant use pc

[Logrim]

One rapid question.. I see in the forum (i dont remember what conversion has that) a custom procedure that add custom exit msgbox with image (that is the importat part) , the procedure in cuestion was myexit.. anyone can help me to do a similar procedure? dont imagine how to do it.. thanks,, and sorry for so many questions.. its my first script with inno, and want to make a bit different.. i like to complicate my life, lol

P.D. i think, the conversion is made by fabio.. dont remember.

Edit: I found the answer for myself.. Thanks to Razor, y_thelastknight and Altef i'm learning a lot. In two days i post a preview, i hope you like it, thanks all three.

Edit2.. Found a new problem that i dont know how to resolve,, sorry.. the custom exit button work like a charm in normal exit, but in change disk exit, the button appears twice. One normal exit msgbox and one the custom exit. I know whats is the problem, but i dont know how to change things for it works.. I need help,,, again.. sorry..

The problem is here, (ExitFlag:= ExitSetupMsgBox; //this is normal exit message) this is the final part of change disk form:

case TNewDiskForm.ModalResult of mrCancel:
begin
TNewDiskForm.free;
ExitFlag:= ExitSetupMsgBox;
Case ExitFlag of True:WizardForm.Close;
False:SelectDisk (DiskNumber,Filename,Path);
True:TNewDiskForm.free;
end;
end;
end;
until ((TNewDiskForm.ModalResult=mrOk)or(TNewDiskForm.Mo dalResult=mrCancel));
end;

this the custo exit button:

///////////////////////////////////////////////////////////CUSTOM EXIT
procedure MyExitMessage();
var
Font: TFont;
begin
MyExit := CreateCustomForm();
with MyExit do
begin
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height div 2;
Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
Color := clBlack;

with TNewStaticText.Create(MyExit) do
begin
Left := ScaleX(110);
Top := ScaleY(20);
Width := MyExit.Width - ScaleX(115);
Height := MyExit.Height div 2;
AutoSize := False;
WordWrap := True;
Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));
Parent := MyExit;
Font.Color := clWhite;
end;
end;

Font := TFont.Create;
Font.Size := WizardForm.CancelButton.Font.Size;

NoBtn := BtnCreate(MyExit.Handle, MyExit.Width - 165,
MyExit.Height - 50 - ScaleY(25), 160, 50,
ExpandConstant('{tmp}\button2.png'), 18, True);
BtnSetEvent(NoBtn, BtnClickEventID, WrapBtnCallback(@ButtonOnClick, 1));
BtnSetText(NoBtn, 'Íåò');
BtnSetFontColor(NoBtn, clWhite, clWhite, clWhite, clWhite);
BtnSetFont(NoBtn, Font.Handle);

YesBtn := BtnCreate(MyExit.Handle, MyExit.Width - 323,
MyExit.Height - 50 - ScaleY(25), 160, 50,
ExpandConstant('{tmp}\button2.png'), 18, True);
BtnSetEvent(YesBtn, BtnClickEventID, WrapBtnCallback(@ButtonOnClick, 1));
BtnSetText(YesBtn, 'Äà');
BtnSetFontColor(YesBtn, clWhite, clWhite, clWhite, clWhite);
BtnSetFont(YesBtn, Font.Handle);

Font.Free;
end;
////////////////////////////////////////////////////////////////////////////////////////////////

and this the ancel button procedure:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
Confirm:=False;
if CurPageID=wpInstalling then begin;
if Cancel then begin
ISDoneError:=True;
ISDoneCancel:=1;
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
WizardForm.CancelButton.Enabled:=False;

MyExitMessage();

if MyExit.ShowModal() = mrNo then
Cancel := False;
end;
end;
end;