View Single Post
  #608  
Old 15-06-2013, 16: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 18:22.
Reply With Quote