StatusMsg: Help

[buttignol]

It would be possible to place Status Msg: at StatusLabel I do not use WizardForm.StatusLabel

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

use
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;

I tried

StatusLabel := TLabel.Create(WizardForm);
With StatusLabel do begin
Parent := WizardForm;
Caption := WizardForm.StatusLabel.Caption;
Font.Size := 10;
Font.Style := [fsBold];
Transparent := true;
SetBounds(90,120,300,30);
end;

does not work

there is a way to put StatusMSG in StatusLabel?
without creating WizardForm.StatusLabel
Thanks

[JRD!]

Just change the position of the WizardForm.StatusLabel on CurStepChanged event,
and hide the StatusLabel in ssPostInstall

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

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;

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?

[JRD!]

Check your mp

[buttignol]

Thank you friend but could not make it work you can check my script thanks

[JRD!]

Try this:

[JRD!]

procedure CurStepChanged(CurStep: TSetupStep);
begin
#ifdef Soft1
if (CurStep = ssInstall) and not ISDoneError and (Soft1 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft1}...';
end;
#endif
#ifdef Soft2
if (CurStep = ssInstall) and not ISDoneError and (Soft2 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft2}...';
end;
#endif
#ifdef Soft3
if (CurStep = ssInstall) and not ISDoneError and (Soft3 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft3}...';
end;
#endif
#ifdef Soft4
if (CurStep = ssInstall) and not ISDoneError and (Soft4 = true) then
begin
StatusLabel.Caption:='Instalando {#Soft4}...';
end;
#endif
end;

[buttignol]

Solved thanks "JRD" that's what I wanted
a big hug!

[JRD!]

No prob bro

[JRD!]

This post is not personal, just to help buttignol.

-Just Add or Remove redist:

[Redist]
#define DirectX "{src}\Support\DirectX\Jun2010\DXSETUP.exe"
#define VC2005 "{src}\Support\VCRedist\2005\vcredist"
;#define VC2008 "{src}\Support\VCRedist\2008\vcredist" 
;#define VC2010 "{src}\Support\VCRedist\2010\vcredist" 
;#define VC2012 "{src}\Support\VCRedist\2012\vcredist"
;#define VC2013 "{src}\Support\VCRedist\2013\vcredist"

-Custom messages:

[CustomMessages]
cmDirectX=Instalando Microsoft(R) Directx(R)...
cmVC2005x86=Instalando Microsoft(R) VisualC++ 2005 (x86)...
cmVC2005x64=Instalando Microsoft(R) VisualC++ 2005 (x64)...
cmVC2008x86=Instalando Microsoft(R) VisualC++ 2008 (x86)...
cmVC2008x64=Instalando Microsoft(R) VisualC++ 2008 (x64)...
cmVC2010x86=Instalando Microsoft(R) VisualC++ 2010 (x86)...
cmVC2010x64=Instalando Microsoft(R) VisualC++ 2010 (x64)...
cmVC2012x86=Instalando Microsoft(R) VisualC++ 2012 (x86)...
cmVC2012x64=Instalando Microsoft(R) VisualC++ 2012 (x64)...
cmVC2013x86=Instalando Microsoft(R) VisualC++ 2013 (x86)...
cmVC2013x64=Instalando Microsoft(R) VisualC++ 2013 (x64)...
cmInstallDirectX=Instalar: Microsoft(R) Directx(R)
cmInstallVC2005=Instalar: Microsoft(R) VisualC++ 2005
cmInstallVC2008=Instalar: Microsoft(R) VisualC++ 2008
cmInstallVC2010=Instalar: Microsoft(R) VisualC++ 2010
cmInstallVC2012=Instalar: Microsoft(R) VisualC++ 2012
cmInstallVC2013=Instalar: Microsoft(R) VisualC++ 2013

-Detect x86/x64 redist:





Changes:
-CancelButton is disabled on install redist
-Hand cursor on checkbox redist

[buttignol]

Our My friend very good congratulations
I thank for their work
It is perfect