Discussion :

[qi130]

Bonjour,
Dans l'aide du PageControl, il est mentionné:

Images spécifie les images dessinées dans les onglets. Si DisabledImages est définie, ces images sont utilisées pour les onglets désactivés ; sinon, une version grisée des images Images est utilisée.

Je ne trouve pas où/comment on spécifie ce DisabledImages malgré mes recherches dans le pagecontrol, le tabsheet et l'imagelist.

Comment avoir ce comportement : onglet actif: image colorée / onglet inactif: image grisée?

Merci d'avance.

[tourlourou]

Bonjour,
Je ne vois pas non plus, mais ce devrait être une propriété parallèle à Images.
Palliatif : dériver le PageControl en créant un accesseur pour Images qui renvoie vers une liste ou une autre selon le statut ?

[Mist2024]

Personnellement je utilise OnGetImageIndex pour changer l'icone de l'onglet actif et ça devrait fonctionner aussi pour toi
L'imagelist content les deux images

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 TForm1.CodePagesGetImageIndex(Sender: TObject; TabIndex: Integer;
  var ImageIndex: Integer);
begin
   if CodePages.ActivePage <> nil then
   begin
      if (CodePages.ActivePage.TabIndex = TabIndex) then
      begin
         ImageIndex := 1;
         if CodePages.ActivePage is TTabSheetMtch then
            StatusEdit.Text :=  TTabSheetMtch(CodePages.ActivePage).FPath;
      end else
      begin
         ImageIndex := 0;
      end;
   end;
end;

[qi130]

Merci pour vos réponses.

De mon coté, et en attendant l'explication objet de ce post, je me suis orienté vers les évènements du tabsheet:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmCatalogue.tbSitesHide(Sender: TObject);
begin
     (Sender as TTabSheet).ImageIndex:=0;
end;
 
procedure TfrmCatalogue.tbSitesShow(Sender: TObject);
begin
     (Sender as TTabSheet).ImageIndex:=1;
end;

Les évènements OnHide et OnShow de chaque tabsheet pointent ces mêmes procédures.

[SergioMaster]

Bonjour,

Je n'ai pas cette propriété pour un VCL.TPageControl (ni pour un FMX.TabControl) a contrario des TActionManager https://docwiki.embarcadero.com/Libr...DisabledImages.
Une erreur dans la doc ? Tu pourrais indiqué comment tu as eu cette "aide" ?

[qi130]

Bonjour Serge,

Depuis l'EDI, sélection d'un PageControl, puis clic sur sa propriété Images, puis [F1]


Bien qu'il soit explicitement fait mention du TCustomTabControl, celui-ci ne dispose pas davantage du DisabledImages, que ce soit dans l'aide ou via la complétion de code de l'EDI.

[SergioMaster]

Effectivement, et j'ai l'impression que personne n'a jamais signalé ce problème dans la doc.
J'ai beau chercher dans les sources de VCL.ComCtrls, la propriété Disabledimages ne se trouve que dans ToolBar