INNO TROUBLESHOOT - Questions Here

[nicola16]

I want to do something like this

[nicola16]

I did it now and perfect.

[nicola16]

WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;

these hidden

you have to create your page readme

I have the same problem.

[Newbie]

Hi.

Question about this line, e.g.:

arc a -ep1 -r -ed -w.\ .\Disk1\list.bin [email protected] -msrep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8

What is the difference between "-ep" and "-ep1".

When to use ep and when ep1...

What is "-ed" and when to use it.

Also, if I want to compress folder with files how to do it....

I mean if I later want to extract it to some folder it should be e.g. Some folder - my compressed folder with files inside.

Not Some folder - files from compressed folder.

I hope you understand my question.

I apologize if these was asked already before....

Thank You

EDIT: Thank You Joe Forster/STA for coding my line.

[Razor12911]

Answer

[y_thelastknight]

what is the best compression script for internal

[Smurf Stomper]

I have a question, posted in as part of a conversation w/ Peter, but if anyone has an answer they're welcome to post it

http://fileforums.com/showpost.php?p...9&postcount=56

[y_thelastknight]

Originally Posted by Smurf Stomper

I have a question, posted in as part of a conversation w/ Peter, but if anyone has an answer they're welcome to post it

http://fileforums.com/showpost.php?p...9&postcount=56

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[files]
Source: Img2.bmp; DestDir: {tmp}; Flags: dontcopy

[ code ]
var
WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;

procedure InitializeWizard();
begin
ExtractTemporaryFile('img2.bmp');

WizardForm.WizardBitmapImage.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\img2.bmp'));

WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
WelcomeLabel1.SetBounds(Left, Top, Width, Height);
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clWhite;
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= WizardForm.WelcomePage

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
WelcomeLabel2.SetBounds(Left, Top, Width, Height);
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clWhite;
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= WizardForm.WelcomePage

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clWhite;
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;
FinishedHeadingLabel.Parent:= WizardForm.FinishedPage

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clWhite;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedLabel.Parent:= WizardForm.FinishedPage

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
end;

@Smurf Stomper Try this script

@other members what is the best compression script for internal

[Smurf Stomper]

interesting - yours displays the text on the finished page just fine.

As for compression, I think lzma2/ultra64 is the tightest that inno can offer, without having to resort to using .arc files like some scripts around the forums.

EDIT: I messed with my original script I had pasted - turns out if I change this

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

to this:

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

mine works just fine. ::sigh::

[y_thelastknight]

Originally Posted by Smurf Stomper

EDIT: I messed with my original script I had pasted - turns out if I change this

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

to this:

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

mine works just fine. ::sigh::

i think it wont works..try it..i just tried it and it didn't works

[Smurf Stomper]

Full code section:

var
  bgImage : TBitmapImage;
  WelcomeLbl1,WelcomeLbl2,FinishedLbl1,FinishedLbl2: TLabel; 
  WelcomeLabel1,WelcomeLabel2,FinishedHeadingLabel,FinishedLabel: TLabel;

procedure InitializeWizard();  
begin
with wizardform do begin

  bgImage:= TBitmapImage.Create(MainForm);
  bgImage.Align:= alClient;
  bgImage.Stretch:= False;
  bgImage.Parent:= MainForm;
  bgImage.Center:= True;
  bgImage.BackColor:= $000000;

  WelcomeLabel1.Visible:= False
  WelcomeLabel2.Visible:= False
  FinishedLabel.Visible:= False
  FinishedHeadingLabel.Visible:= False

  WizardBitmapImage.Parent := WelcomePage;
  // the wizard.bmp images' dimensions specified here
  WizardBitmapImage.Width:= 497;
  WizardBitmapImage.height:= 313;
  WizardBitmapImage2.Width:= 497;
  WizardBitmapImage2.Height:= 313;
  
  WizardSmallBitmapImage.visible:=true;
  WizardSmallBitmapImage.Width:=220;
  WizardSmallBitmapImage.Height:=58;
  //use value of 0 for leftmost alignment
  WizardSmallBitmapImage.Left:=+0;
  
  //manipulate the small unbolded top text on wizard pages. 495 is the total width 
  //(subtract out the smallbitmapimage's width for the max text box width)
  
  PageDescriptionLabel.Visible:=true;
  PageDescriptionLabel.Width:=250;
  PageDescriptionLabel.Left:=+240;
  
  //manipulate the bold description text position
  PageNameLabel.Width:=275;
  PageNameLabel.Left:=+230;


//Manipulate text on welcome page - this is the top bold "Welcome..." text
  
WelcomeLbl1 := TLabel.Create(WizardForm);
  with WelcomeLbl1 do
  begin
    Parent := WizardForm.WelcomePage;
    WordWrap := True;
    AutoSize := False;
    Caption := WizardForm.WelcomeLabel1.Caption;
    Transparent:= True;
    Left := WelcomeLabel1.Left+50;
    Top := WelcomeLabel1.Top-10;
    Width:= 350;   
    Height := WelcomeLabel1.Height;
    Font.Color := ClBlack;
    Font.Size := 12;
    Font.Style := [fsBold];
  end;

WelcomeLbl2 := TLabel.Create(WizardForm);
  with WelcomeLbl2 do
  begin
    Parent := WizardForm.WelcomePage;
    WordWrap:= True;
    AutoSize:=False;
    Caption := WizardForm.WelcomeLabel2.Caption;
    Left := WelcomeLabel2.Left+90;
    Top := WelcomeLabel2.Top-10;
    Width := 230;    //this is the width of the text 'box'
    Height := WelcomeLabel2.Height;
    Transparent:= True;
    Font.Color:= ClBlack;

  end;

  //Manipulate text on finished page - this is the top bold "Completing..." text

FinishedLbl1 := TLabel.Create(WizardForm);
  with FinishedLbl1 do
  begin
    Parent := WizardForm.FinishedPage;
    WordWrap := True;
    AutoSize:=False;
    Caption := WizardForm.FinishedHeadingLabel.Caption;
    Transparent:=True;
    Left := WelcomeLbl1.Left;
    Top := WelcomeLbl1.Top;
    Width := WelcomeLbl1.Width;
    Height := WelcomeLbl1.Height;
    Transparent := True;
    Font.Color := ClBlack;
    Font.Size := 12;
    Font.Style := [fsBold];

  end;

FinishedLbl2 := TLabel.Create(WizardForm);
  with FinishedLbl2 do
  begin
    Parent := WizardForm.FinishedPage;
    WordWrap := True;
    AutoSize:=False;
    Caption := WizardForm.FinishedLabel.Caption ;
    Transparent := True;
    Left := WelcomeLbl2.Left;
    Top := WelcomeLbl2.Top;
    Width := WelcomeLbl2.Width ;
    Height := WelcomeLbl2.Height;
    Transparent := True;
    Font.Color := ClBlack;
  end;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

[pakrat2k2]

depends on they types of files trying to compress. some compress better then others. look at any of the scripts posted that use peter's method ( bat file ).

[Compiler]

If I compress few parts of a game with Srep only and rest with Srep and Precomp,then how to use ISDONE[i.e; srep for one files and srep+precomp for other] ?

[Razor12911]

@compiler
leave it as is, the arc.ini will solve your little problem.

[danswano]

Hello,
I have an issue with ISDone, let's say i have 2 arc archives
one to unpack to {app}\ and the second to {userdocs}\
When i uninstall the game it will remove the {app}\ data and leaves the docs.

Is there a solution so the files that copied to docs folder gets removed too?