Discussion :

[NejNej]

Bonjour à tous!

J'utilise inno setup afin de regrouper deux setup et de les lancer après vérification de clés!

Le problème c'est qu'entre le déploiement des setup et le lancement de ceux-ci il y a la page de fin d'inno setup qui fait part à l'utilisateur de la "fin", or je voudrais pouvoir modifier le texte de fin (mais je crois que c'est faisable par le wizard ça!), mais aussi modifier le texte du bouton "Terminer" par "Etape suivante"!

Il me semble que la fonction 'CurPageChanged' semble être celle à utiliser mais je n'ai point trouver de quelle manière si quelqu'un a une idée!

[sjrd]

As-tu consulté les exemples fournis avec IS sur l'utilisation des composants ? Si non, commence par ça.

[NejNej]

As-tu consulté les exemples fournis avec IS sur l'utilisation des composants ? Si non, commence par ça.

Aaaaah que oui! ça et l'aide!

c'est d'ailleurs ce que j'ai recommencé ce matin en me disant "la tête fraîche tu trouveras mieux"!

et je suis tombé sur ce truc qui m'a l'air intéressant:

Example:

Code :

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

1
2
3
4
5
6
var
  Page: TWizardPage;
begin
  Page := PageFromID(wpWelcome);
  Page.Surface.Color := clBlue;
end;

possible de changer le text d'un bouton de la page avec ça non?
en passant en argument l'id de la page de fin(que je ne trouve pas)!

bref de multiple piste mais j'ai du mal à concrétisé le truc, je retourne à ma recherche mais si quelqu'un à une piste...merci ^^

edit:

Je viens de tester cela mais apperment ce n'est pas la bonne fenêtre parent:

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
 
procedure CreateAboutButtonAndURLLabel(ParentForm: ExitSetupMsgBox; TerminatedButton: TNewButton);
var
  AboutButton: TNewButton;
 
begin
  AboutButton := TNewButton.Create(ParentForm);
  AboutButton.Left := ParentForm.ClientWidth - TerminatedButton.Left - Terminated.Width;
  AboutButton.Top := TerminatedButton.Top;
  AboutButton.Width := TerminatedButton.Width;
  AboutButton.Height := TerminatedButton.Height;
  AboutButton.Caption := 'Etape Suivante';
  AboutButton.OnClick := @TerminatedButtonOnClick;
  AboutButton.Parent := ParentForm;
 
end;

à mon avis la méthode ci-dessus n'est pas le bon chemin à prendre, créer un bouton ne doit pas amener à la modification c'est pourquoi j'ai repris le premier exemple de ce message ce qui me donne:

Code :

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

1
2
3
4
5
6
7
 
var
  Page: TWizardPage;
begin
  Page := PageFromID(wpFinished);
  Page.FinishButton.Caption := 'Etape suivante';
end;

Le problème vient du 'FinishButton' j'ai essayé plusieurs nom à base de 'Finich' et 'Terminate' mais sans succès pour le moment!

rererere....edit:

et il continu encore et encore, another method:

Code :

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

1
2
3
4
5
6
7
8
 
function ShouldSkipPage(PageID: Integer): Boolean;
begin
  { Skip pages that shouldn't be shown }
  if (PageID = wpFinished.ID) then
    Result := True
 
end;

mais visiblement à la ligne du if j'ai une erreur de 'close round expected' ???

[NejNej]

Bon bah c'est fait ^^ :

je fait un nouveau poste pour démarquer ma soluce des tâtonnements

le fait est que encore mieux que de modifier la page de fin je l'ai carrément zappée de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
 
function ShouldSkipPage(PageID: Integer): Boolean;
begin
  { Skip pages that shouldn't be shown }
  if (PageID = wpFinished) then
    Result := True
  else
    Result := False;
end;