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