INNO TROUBLESHOOT - Questions Here

[buttignol]

To Razor12911 thanks for your help and patience is now "solved"
A hug even more.

[Kurutucu]

What is the problem? I used compact mode. Then finished resize installer and I see this. http://i41.tinypic.com/30lmnpv.png



It's extraction files... caption. How I disable it in Finished page?

procedure CompactCheckBoxClick(Sender: TObject);
begin
  if CompactCheckBox.Checked then
  begin
    with WizardForm do
    begin
      Status.SetBounds(150,90,125,15);
      WizardSmallBitmapImage.Hide;
      WizardForm.ClientWidth:=420;
      WizardForm.ClientHeight:=175;
      MainPanel.Hide;
      Bevel.Hide;
      Bevel1.top:=132
      CompactCheckBox.SetBounds(326,150,90,14);
      SoundCtrlButton.SetBounds(16,141,100,30);
      CancelButton.SetBounds(151,141,100,30);
      MyCancelButton.SetBounds(151,141,100,30);
      ISDoneProgressBar1.Width:= ScaleX(388);
      ISDoneProgressBar1.height:=20;
      ISDoneProgressBar1.Left:= ScaleX(16);
      ISDoneProgressBar1.Top:=50;
      LabelTime1.Left:=ISDoneProgressBar1.Left;
      LabelTime1.Top:=ISDoneProgressBar1.Top +25;;
      LabelTime2.Top:= LabelTime1.Top;
      LabelTime2.Left:= 227;
      LabelCurrFileName.Left:= ISDoneProgressBar1.Left;
      LabelCurrFileName.Top:= ISDoneProgressBar1.Top -20;
      LabelPct1.Font.Height:=-24;
      LabelPct1.Left:= ISDoneProgressBar1.Left -33 + ISDoneProgressBar1.Width div 2;
      LabelPct1.Top:= ISDoneProgressBar1.Top + ScaleY(43);
      ProgressGauge.Width:= ScaleX(388);
      ProgressGauge.height:=20;
      ProgressGauge.Left:= ScaleX(16);
      ProgressGauge.Top:=50;
      Filenamelabel.Parent:=WizardForm;
      Filenamelabel.Left:=WizardForm.ProgressGauge.Left
      Filenamelabel.Top:=WizardForm.ProgressGauge.Top -20
      Filenamelabel.Width:=WizardForm.ProgressGauge.Width
      StatusLabel.parent:=wizardform;
      StatusLabel.Left:=WizardForm.ProgressGauge.Left
      StatusLabel.Top:=WizardForm.Filenamelabel.Top -20
      Top:=GetScreenHeight-ClientHeight-45
      Left:=GetScreenWidth-ClientWidth-20
    end;
  end else begin
    with WizardForm do
    begin
      Status.SetBounds(265,250,125,30);
      WizardSmallBitmapImage.show;
      WizardForm.ClientWidth:=654;
      WizardForm.ClientHeight:=402;
      MainPanel.Show;
      Bevel.Show;
      Bevel1.top:=90
      CompactCheckBox.SetBounds(560,315,90,14);
      SoundCtrlButton.SetBounds(250,353,60,30);
      CancelButton.SetBounds(420,353,100,30);
      MyCancelButton.SetBounds(420,353,100,30);
      ISDoneProgressBar1.Width:= ScaleX(500);
      ISDoneProgressBar1.height:=30;
      ISDoneProgressBar1.Left:= ScaleX(77);
      ISDoneProgressBar1.Top:=170;
      LabelTime1.Left:=ISDoneProgressBar1.Left;
      LabelTime1.Top:=ISDoneProgressBar1.Top +35;;
      LabelTime2.Top:= LabelTime1.Top;
      LabelTime2.Left:= 400;
      LabelCurrFileName.Left:= ISDoneProgressBar1.Left;
      LabelCurrFileName.Top:= ISDoneProgressBar1.Top -20;
      LabelPct1.Font.Height:=-24;
      LabelPct1.Left:= ISDoneProgressBar1.Left -33 + ISDoneProgressBar1.Width div 2;
      LabelPct1.Top:= ISDoneProgressBar1.Top + ScaleY(70);
      ProgressGauge.Width:= ScaleX(500);
      ProgressGauge.height:=30;
      ProgressGauge.Left:= ScaleX(77);
      ProgressGauge.Top:=170;
      top:=GetScreenHeight-ClientHeight-45
      left:=GetScreenWidth-ClientWidth-20
    end;
  end;
end;

  if CurPageID=wpFinished then begin
    HideComponents;
    WizardForm.ProgressGauge.Hide;
    SoundCtrlButton.SetBounds(210,347,100,30);
    SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');
    WizardForm.Position:=poScreenCenter;
    WizardForm.ClientWidth:=654;
    WizardForm.ClientHeight:=402;
    WizardForm.Visible:=True;
    WizardForm.WizardBitmapImage.Show;
    WelcomeLbl.Show;
    WelcomeLbl.Left:=145;
    WizardForm.Caption:= 'Finish «{#AppName}» Setup Wizard';
    WelcomeLbl.Caption:='«{#AppName}» was successfully installed on your computer.' + #13#10#13#10 + 'Run the game from shortcut in "start" menu or Desktop shortcut.' + #13#10#13#10 + 'Click "Finish" to exit the installation program.';
  end;
//--------Game Fail To Install PAGE--------\\
  if (CurPageID = wpFinished) and ISDoneError then
  begin
    //LabelTime3.Hide;
    WizardForm.Caption:= 'Error! «{#AppName}»';
    WelcomeLbl.Font.Color:= clRed;
    WelcomeLbl.Caption:= 'Setup encountered an error while installing «{#AppName}»' + #13#10#13#10 + 'Changes were not saved , please re-run the setup again.';
    WelcomeLbl.Left:=163;
    WizardForm.ProgressGauge.Hide;
    WizardForm.Position:=poScreenCenter;
  end;

FIXED.

I deleted all

      Filenamelabel.Parent:=WizardForm;
      Filenamelabel.Left:=WizardForm.ProgressGauge.Left
      Filenamelabel.Top:=WizardForm.ProgressGauge.Top -20
      Filenamelabel.Width:=WizardForm.ProgressGauge.Width
      StatusLabel.parent:=wizardform;
      StatusLabel.Left:=WizardForm.ProgressGauge.Left
      StatusLabel.Top:=WizardForm.Filenamelabel.Top -20

[buttignol]

Help how do I show page is only wpSelectTasks and also add Surface

[CODE]

var
avisoLabel: TLabel;

procedure InitializeWizard();
begin

avisoLabel := TLabel.Create(WizardForm);
avisoLabel.Left := ScaleX(0);
avisoLabel.Top := ScaleY(190)
avisoLabel.Width := ScaleY(185)
avisoLabel.Height := ScaleY(13)
//avisoLabel.Parent := WizardForm;      //sempre desativado
avisoLabel.Parent:= WizardForm.SelectDirPage;
avisoLabel.Font.Name:='Verdana';
avisoLabel.Font.Size:= 8;
avisoLabel.Font.Color:=${#Color};
avisoLabel.Transparent:=true;
avisoLabel.Caption := 'Leia antes';
avisoLabel.Font.Style:= [fsBold];

end;

[danswano]

Hello,
Is it possible to set the compatibility mode of game .exe to Windows XP using inno automatically?

[pakrat2k2]

look in inno help> [Setup]: TerminalServicesAware

you can set that there for the games EXE

[Razor12911]

R.G.Catalyst Inno Setup Script

Preview

[Kurutucu]

Originally Posted by Razor12911

R.G.Catalyst Inno Setup Script

Sorry but it's old version

[danswano]

Is it the official one or it's a rip/your work?

[Razor12911]

the original one.

[danswano]

Do you have RG Mechanics script?

[Razor12911]

yep. I do have it.

[danswano]

Awesome, attach it please

[Razor12911]

Searched forum and found this
Link

[Razor12911]

Originally Posted by Razor12911

Searched forum and found this
Link

@danswano

There.

[y_thelastknight]

How do i transparent WizardForm.FilenameLabel
or how do i get WizardForm.FilenameLabel.Caption to another label?