FileForums - StatusMsg: Help

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - StatusMsg: Help (https://fileforums.com/showthread.php?t=97363)

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

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?

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

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;

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

This post is not personal, just to help buttignol.

-Just Add or Remove redist:

Code:

[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:

Code:

[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

http://img11.hostingpics.net/pics/367129971.jpg
http://img11.hostingpics.net/pics/195477772.jpg
http://img11.hostingpics.net/pics/636382353.jpg
http://img11.hostingpics.net/pics/893472884.jpg
http://img11.hostingpics.net/pics/969471345.jpg

-Detect x86/x64 redist:

http://img11.hostingpics.net/pics/744065266.jpg
http://img11.hostingpics.net/pics/180039867.jpg
http://img11.hostingpics.net/pics/448760368.jpg

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

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