Utilisation d'une liste d'images avec un TTabControl

Version imprimable

19/09/2023, 11h17
Jon Shannow

Utilisation d'une liste d'images avec un TTabControl

Bonjour à toutes et tous,

Dans une de mes fiches, j'ai un TPageControl auquel j'ai attribué un TImageList. Chaque onglet ayant une image différente. Je n'ai pas mis de Caption dans les Pages, et c'est donc les images qui apparaissent. Parfait.
Dans une autre fiche, j'ai voulu utiliser TTabControl, en effet, les champs ne changent pas en fonction de l'onglet, c'est le filtre de la table sous-jacente qui change en fonction de l'onglet sélectionné. Tout cela marche parfaitement.
J'ai vu que le composant TTabControl avait une propriété "Images" que l'on pouvait lié à un TImageList. J'ai supposé que le fonctionnement devait être similaire au TPageControl. Hélas, il n'en est rien.

Le TTabControl n'affiche pas les images du TImagesList associé. Et je ne vois pas comment faire.

Est-ce que quelqu'un a déjà utilisé cette fonctionnalité et si oui, comment est-il/elle parvenu-e à afficher les images en lieu et place des éléments de la liste Items ?

Merci d'avance à vous toutes et tous

JS

Salut

Moi j'essaierais un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Type
  THackTabControl = class (ComCtrls.TTabControl)
  end;
 
procedure TForm1.TabsDrawTab(Control: TCustomTabControl;  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  OutRect : TRect;
  P: TTabControl;
  TabText: string;
  ImgIdx : Integer;
begin
  OutRect:= Rect;
  p :=   (Control as TTabControl) ;
  TabText := THackTabControl(P).Tabs[TabIndex];
  if Active Then
  begin
    Control.Canvas.brush.color := clblue;
    Control.Canvas.FrameRect(rect);
    Control.Canvas.brush.color := clBtnFace;
    Control.Canvas.Font.Color := clred
  end
  else
  begin
    Control.Canvas.Brush.Color := clBtnFace;
    Control.Canvas.fillrect( rect );
    Control.Canvas.Font.Color := clBlack;
  end;
 
  InflateRect (OutRect, -3, -3);
  ImgIdx := THackTabControl(P).GetImageIndex(TabIndex);
  THackTabControl(P).Images.Draw(Control.Canvas, OutRect.Left, OutRect.Top,ImgIdx);
  OutRect.Left := OutRect.Left+THackTabControl(P).Images.Width;
  DrawText (Control.Canvas.Handle, PChar (ExtractFileName (TabText)), Length (ExtractFileName (TabText)),   OutRect, dt_Left or dt_SingleLine or dt_VCenter);
end;

PS : le code n'a pas été testé

21/09/2023, 15h35
Jon Shannow

Bonjour,

Merci de ta réponse.
Le problème c'est que TTabControl n'a pas d'évènement "OnDraw" ou "OnDrawTabs". :aie:

J'ai trouvé mon bonheur dans la JVCL qui possède un TJvclTabControl qui permet d'utiliser des images.

Encore merci de t'être penché sur mon problème

JS
21/09/2023, 17h52
anapurna

Salut

au fait tu avais essayé avec d'autre style que tstab ?
22/09/2023, 08h25
Jon Shannow

Oui, j'avais fait tous les ttabcontrol que j'avais sous la main, jusqu'à tomber sur celui de la jvcl.:D