Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-06-2013, 17:20
Kurutucu Kurutucu is offline
Registered User
 
Join Date: Aug 2012
Location: Somewhere in the world
Posts: 159
Thanks: 78
Thanked 209 Times in 48 Posts
Kurutucu is on a distinguished road
Question

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?

Code:
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;
Code:
  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
Code:
      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

Last edited by Kurutucu; 15-06-2013 at 19:22.
Reply With Quote
Sponsored Links
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup REV0 Conversion Tutorials 129 21-05-2021 06:51
INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup REV0 Conversion Tutorials 51 26-03-2015 07:57
Frequently Asked Questions Joe Forster/STA PC Games - Frequently Asked Questions 0 29-11-2005 10:48



All times are GMT -7. The time now is 23:21.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com