Discussion :

[defluc]

Hello

Je galère sur un code Inno Setup qui, selon la doc, doit être programmé en Pascal.
Je voudrais pouvoir changer la hauteur d'un label pour y introduire un texte de plusieurs lignes.
J'ai pu déterminer que la fiche de Inno Setup est la 12 ème.
Mon code est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure CurPageChanged(CurPageID: Integer);
var
  FormPage : TWizardPage;
  MyLabel : TLabel;
  i : Integer;
begin
  if CurPageID = 12 then
  begin
    FormPage := PageFromId(12);
    For i := 0 to FormPage.ComponentCount - 1 do
    if FormPage.Components[i] is TLabel then MyLabel := FormPage.Components[i];

Ce code génère une erreur "Type Mismatch" sur l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyLabel := FormPage.Components[i];

Où réside l'erreur ?

Merci d'avance.

[M.Dlb]

Comme je n'y connais rien à Inno Setup, je répondrai avec prudence. Je pense qu'il faut faire pointer MyLabel sur FormPage.Components[i], donc une instruction du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if FormPage.Components[i] is TLabel then MyLabel := @FormPage.Components[i];

Mais pourquoi passer par une variable temporaire MyLabel ? Tu ne peux pas accéder aux propriétés de FormPage.Components[i] directement ?

[defluc]

Je voudrais bien mais quand je code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FormPage.Components[i].Height;

cela génère le message d'erreur «Unknown identifier 'HEIGHT'»

Quant au code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if FormPage.Components[i] is TLabel then MyLabel := @FormPage.Components[i];

il me renvoie «Unknown identifier 'FormPage'»

[ouiouioui]

je suppose que c'est pas toi qui l'a créé?

c'est sur quel page?
Car dans l'aide -> pascal scripting - support classes reference - twizardform
tu as pas mal d'element et tu aura le type de ton element exemple WelcomeLabel2 est de type TNewStaticText et sur cette même page tu verra:

TNewStaticText = class(TWinControl)
function AdjustHeight: Integer;
property AutoSize: Boolean; read write;
property Caption: String; read write;
property Color: TColor; read write;
property FocusControl: TWinControl; read write;
property Font: TFont; read write;
property ForceLTRReading: Boolean; read write;
property ShowAccelChar: Boolean; read write;
property WordWrap: Boolean; read write;
property OnClick: TNotifyEvent; read write;
property OnDblClick: TNotifyEvent; read write;
end;

donc la tu devrai y arriver avec exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WizardForm.WelcomeLabel2.Font.Size := 16;

et peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WizardForm.WelcomeLabel2.AutoSize := True;

la faut essayer, déjà identifie ce que tu veux modifier

sinon pour le TLabel même page tu verra:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
TLabel = class(TCustomLabel)
  property Alignment: TAlignment; read  write;
  property AutoSize: Boolean; read write;
  property Caption:  String; read write;
  property Color: TColor; read write;
  property  FocusControl: TWinControl; read write;
  property Font: TFont; read  write;
  property WordWrap: Boolean; read write;
  property OnClick:  TNotifyEvent; read write;
  property OnDblClick: TNotifyEvent; read  write;
end;

d'ou ton message d'erreur

[defluc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure CurPageChanged(CurPageID: Integer);
begin
   if CurPageID = 6 then
   begin
     WizardForm.WelcomeLabel2.AutoSize := True;
     WizardForm.WelcomeLabel2.Caption := 'Ceci est mon message' ;
     WizardForm.WelcomeLabel2.Refresh;
   end;
end;

se compile sans erreur mais à l'exécution, le contenu du Label n'est pas modifié.
Peut être est-ce dû au warning ci-après trouvé sur http://thierryaim.developpez.com/tut...osetup/iscode/

V-1. Les pages pré formatées de InnoSetup
InnoSetup permet de générer des pages pré formatées, c'est à dire prévues pour une acquisition d'informations bien précises :

Liste non exhaustive des type de pages préformatées de InnoSetup :

* TInputDirWizardPage : Page contenant des textboxs et des boutons "Parcourir" pour sélectionner des répertoires
* TInputFileWizardPage : Page contenant des textboxs et des boutons "Parcourir" pour sélectionner des fichiers
* TInputOptionWizardPage : Page contenant des "Checkboxs" ou de "Radio buttons"
* TInputQueryWizardPage : Page contenant des textboxs pour saisie d'informations textes
* TWizardPage : Page entièrement personnalisée

warning Vous ne pouvez pas modifier la forme de ces pages, uniquement ajouter des champs de saisie, correspondant au type d'information attendue sur chaque page.

[ouiouioui]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure CurPageChanged(CurPageID: Integer);
begin
   if CurPageID = wpWelcome then
   begin
     WizardForm.WelcomeLabel2.AutoSize := True;
     WizardForm.WelcomeLabel2.Caption := 'Ceci est mon message' ;
     WizardForm.WelcomeLabel2.Refresh;
   end;
end;

utilise les constantes des pages c'est mieux, le code ci-dessus fonctionne chez moi

[defluc]

Finalement, j'ai créé un nouveau label sur la page voulue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure CurPageChanged(CurPageID: Integer);
begin
   if CurPageID = 12 then
   begin
     Page := PageFromId(12);
     MyLabel := TNewStaticText.Create(Page);
     MyLabel.Parent := Page.Surface;
     MyLabel.Caption := 'Ceci est mon message';
     MyLabel.WordWrap := True
     MyLabel.Top := 80;
     MyLabel.Height := 128;
     MyLabel.Width := Page.Surface.Width;
     MyLabel.Font.Color := clRed;
     MyLabel.Font.Style := [fsBold];
     MyLabel.Font.Size := 10;
   end;
end;