Discussion :

[Mimie37]

Bonjour,

Je dois réaliser un programme pour mettre à jour un nouveau logiciel, en copiant un fichier venant de leur ancien logiciel (choix entre 2 logiciels) vers le nouveau.
Dans ce programme j'ai plusieurs étapes :
- Demander le chemin du nouveau progr
- Une liste de 3 checkbox : Logiciel1, Logiciel2 et Aucun
- Si c'est la checkbox de logiciel1 ou Logiciel2 qui est cochée, alors à la fenêtre suivante je dois leur demander le chemin de leur ancien logiciel.

J'ai déjà commencé un script pour les checkbox :

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
18
19
20
21
22
23
procedure CreateTheWizardPages;
begin
  Page := CreateCustomPage(wpSelectDir, 'Ancien Logiciel', 'Choisissez ');
 
  CheckListBox := TNewCheckListBox.Create(Page);
  CheckListBox.Width := Page.SurfaceWidth;
  CheckListBox.Height := ScaleY(97);
  CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight;
  CheckListBox.Flat := True;
  CheckListBox.Parent := Page.Surface;
  CheckListBox.ShowLines := False;
  CheckListBox.WantTabs := True;
  CheckListBox.BorderStyle := bsNone;
  CheckListBox.ParentColor := True;
  CheckListBox.AddRadioButton('Logiciel1', '', 0, True, True, nil);
  CheckListBox.AddRadioButton('Logiciel2', '', 0, False, True, nil);
  CheckListBox.AddRadioButton('Aucun', '', 0, False, True, nil);
end;
 
procedure InitializeWizard();
begin
  CreateTheWizardPages;
end;

J'ai également créé un code pour la demande du chemin d'installation de l'ancien logiciel :

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
18
19
20
var
  UserPage: TInputDirWizardPage;
procedure InitializeWizard;
begin
UserPage := CreateInputDirPage(wpWelcome,
    'Configuration', 'Chemin ancien logiciel ',
    'Merci de renseigner le chemin d installation du logiciel 1. Puis appuyer sur suivant.',False, 'New Folder');
  UserPage.Add('Chemin d installation Logiciel 1:');
  UserPage.values[0] := 'C:\MyOldProgr'
end;
 
function AuthForm_NextButtonClick(Page: TWizardPage): Boolean;
begin
  Result := True;
end;
 
function GetUserLog(Param: String): string;
begin
result := UserPage.Values[0];
end;

Je n'arrive pas à faire le lien entre mes 2 codes. Si la box de "Logiciel 1" alors je voudrais pouvoir lancer mon 2ème code.

J'espère que c'est clair, c'est un peu compliqué à expliquer.

Merci d'avance pour l'aide

[ouiouioui]

Si tu donnais le script entier tout du moins la partie code sa serait plus façile. Tu devra peut-être ajuster tes déclarations de variable.

dans function ShouldSkipPage(PageID: Integer): Boolean; tu test ta checkbox et tu passe ou non ta page.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
case PageID of
  UserPage.ID:
  begin
    if CheckListBox.ItemEnabled[1] then
      Result := True
    else
      Result := False;
  end;
  else
    Result := True;
end;

[Mimie37]

Pour l'instant je n'ai que ça comme code :

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
18
19
20
21
22
23
procedure CreateTheWizardPages;
begin
  Page := CreateCustomPage(wpSelectDir, 'Ancien Logiciel', 'Choisissez ');
 
  CheckListBox := TNewCheckListBox.Create(Page);
  CheckListBox.Width := Page.SurfaceWidth;
  CheckListBox.Height := ScaleY(97);
  CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight;
  CheckListBox.Flat := True;
  CheckListBox.Parent := Page.Surface;
  CheckListBox.ShowLines := False;
  CheckListBox.WantTabs := True;
  CheckListBox.BorderStyle := bsNone;
  CheckListBox.ParentColor := True;
  CheckListBox.AddRadioButton('Logiciel 1', '', 0, True, True, nil);
  CheckListBox.AddRadioButton('Logiciel 2', '', 0, False, True, nil);
  CheckListBox.AddRadioButton('Aucun', '', 0, False, True, nil);
end;
 
procedure InitializeWizard();
begin
  CreateTheWizardPages;
end;

Donc j'ai bien les 3 boutons qui s'affichent dans ma fenêtre. Mais je ne sais pas comment récupérer quel bouton est coché.
Et si c'est le bouton Logiciel 1 ou Logiciel 2 qui est coché alors dans la fenêtre suivante je dois avoir un textbox avec un bouton parcourir pour que l'utilisateur renseigne le chemin.

J'espère que c'est plus clair

[ouiouioui]

Le code que j'ai mis permet sa.
Tu change sa, si checkbox 0 coché on passe fenêtre sélection chemin sinon elle est affiché

Code :

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

1
2
3
4
    if CheckListBox.ItemEnabled[2] then
      Result := False
    else
      Result := True;

sinon pour ta page chemin tu la crée après l'autre
UserPage := CreateInputDirPage(Page.ID,

[ThierryAIM]

ouiouioui, ca serait pas plutôt

Code :

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

    if CheckListBox.Checked[2] then

[ouiouioui]

Effectivement j'ai corrigé.