Discussion :

[Jon Shannow]

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

[anapurna]

Salut

Moi j'essaierais un truc du genre :

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
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é

[Jon Shannow]

Bonjour,

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

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

[anapurna]

Salut


au fait tu avais essayé avec d'autre style que tstab ?

[Jon Shannow]

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