Thread: StatusMsg: Help
View Single Post
  #2  
Old 27-11-2015, 03:10
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 274
Thanks: 225
Thanked 600 Times in 168 Posts
JRD! is on a distinguished road
Just change the position of the WizardForm.StatusLabel on CurStepChanged event,
and hide the StatusLabel in ssPostInstall

Code:
Filename: {src}\support\{#Soft2}\vcredist_x86.exe; Parameters: /q; StatusMsg: Aguarde: Instalando {#Soft2}...; Check: Soft2 and CheckError

Code:
StatusLabel := TLabel.Create(WizardForm);
With StatusLabel do 
begin
  Parent := WizardForm;  
  Caption := 'Extraindo arquivos...';
  Font.Size := 10;
  Font.Style := [fsBold];
  Transparent := true;
  SetBounds(90,120,300,30);
end;
Code:
procedure CurStepChanged(CurrentStep: TSetupStep);
var
  StatusLabel: TLabel;
begin
  if (CurrentStep = ssPostInstall) then
  begin
    WizardForm.StatusLabel.Setbounds(StatusLabel.Left, 
    StatusLabel.Top, StatusLabel.Width, StatusLabel.Height);
    StatusLabel.Hide;
  end else
    StatusLabel.Show;
end;
That answer your question?
Reply With Quote
The Following User Says Thank You to JRD! For This Useful Post:
buttignol (27-11-2015)