Discussion :

[Benjamin GAGNEUX]

Bonjour,

Etant actuellement en train de "relooker" un TTabControl, je suis tombé sur un problème qui me laisse perplexe...

En effet, ayant redessiner chaque onglet, je m'apercois que je n'arrive pas à afficher le texte en transparence. Celui-ci dessine un rectangle de la taille du texte de la couleur ClBtnFace (je suppose que c'est la couleur parent).
Résultat, au milieu de chaque Tab, sous le texte, les effets visuels du canvas sont remplacés par un rectangle.



voici mon code (j'utilise le gestionnaire d'événement OnDraw):

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
35
36
37
procedure TFrmStd.TabAfficheDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  ColorBackup : TColor;
  S : string;
  R : TRect;
begin
  S := TTabControl(Control).Tabs[TabIndex];
  R := Rect;
 
  // Dessine le canvas de la tab(Background)
  with TTabControl(Control) do begin
    if Active then
      DrawGradientHalf(Canvas,R,True)
    else begin
      DrawGradientHalf(Canvas,R,False,2);
    end;
 
    // Ajout du libellé de la tab
    OffsetRect(R, 2, 4);
    DrawText(Canvas.Handle, PChar(S), Length(S), R, DT_CENTER or DT_VCENTER);// -> problème car pas transparent
 
    // dessine l'arrière plan du TabControl
    R := TabRect(Tabs.Count-1);
    R.Left := R.Right;
    R.Right := ClientWidth;
    DrawGradientHalf(Canvas,R,True);
 
    // recolore la barre sous les tabs
    with Canvas do begin
      Pen.Color := RGB(150,150,150);
      Pen.Width := 4;
      MoveTo(0,ClientHeight-3);
      LineTo(ClientWidth,ClientHeight-3);
 
    end;
  end;

Je ne vois vraiment pas comment résoudre ce problème (et ca fait pas très propre au niveau visuel).

Avez-vous une idée la dessus ?

merci,

[portu]

Je ne comprends pas trop ton code (pas tres complet) .
Mais pour mettre le fond en transparence, je pense qu'il faut viser sur la propriété Canvas.Brush?style := BsClear;

En espérant que cela puisse t'aide.

Bonsoir.

[Benjamin GAGNEUX]

Merci,

C'est vrai que mon code n'est pas très documenté... je vais arranger cela.