Discussion :

[BuzzLeclaire]

Bonjour,

voici le probleme que je n'arrive pas à résoudre
Je créer un TPageControl avec 2 Tabsheet
je mets true dans OwnerDraw, ce qui me permet de redessiner le TpageControl et plus particulierement les etiquettes des tabsheet.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFormPrincipal.PageControlPrincipalDrawTab(
  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
begin
  Degrader(PageControlPrincipal.Canvas,Rect,clcream,$0084DAFF);
  Brush.Style := bsClear;
  DrawText(PageControlPrincipal.Handle, Pchar(PageControlPrincipal.Pages[Tabindex].caption),-1, Rect, DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE);
 
end;

Mais la j'ai une erreur :Constant Objet cannot be passed as var parameter au niveau du Rect de Drawtext
Alors j'ai essayé cela

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
procedure TFormPrincipal.PageControlPrincipalDrawTab(
  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
Var
  Etiquette: Trect;
begin
  Degrader(PageControlPrincipal.Canvas,Rect,clcream,$0084DAFF);
  PageControlPrincipal.Canvas.Brush.Style := bsClear;
 
  Etiquette.Left := PageControlPrincipal.Pages[Tabindex].Left;
  Etiquette.Top := PageControlPrincipal.Pages[Tabindex].Top;
 
  DrawText(PageControlPrincipal.Handle, Pchar(PageControlPrincipal.Pages[Tabindex].caption),-1, Etiquette, DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE);
end;
end;

Alors j'ai plus d'erreur mais il ne m'écris pas mon caption, j'ai que le dégradé.

Ou je fais l'erreur ? pouvez-vous m'aider

[Aka Guymelef]

Bonjour,

Et pourquoi pas comment ça :

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
procedure TFormPrincipal.PageControlPrincipalDrawTab(
  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
Var
  Etiquette: Trect;
begin
  Etiquette := Rect;
  Degrader(PageControlPrincipal.Canvas, Etiquette, clcream, $0084DAFF);
  PageControlPrincipal.Canvas.Brush.Style := bsClear;
 
  Etiquette.Left := PageControlPrincipal.Pages[Tabindex].Left;
  Etiquette.Top := PageControlPrincipal.Pages[Tabindex].Top;
 
  DrawText(PageControlPrincipal.Handle, Pchar(PageControlPrincipal.Pages[Tabindex].caption),-1, Etiquette, DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE);
end;

[BuzzLeclaire]

Désolé mais cela ne change pas. Le text ne s'écrit pas. aucun caption n'apparaît.

j'ai fait cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormPrincipal.PageControlPrincipalDrawTab(
  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
Var
  Etiquette: Trect;
begin
  Degrader(PageControlPrincipal.Canvas,Rect,clcream,$0084DAFF);
  PageControlPrincipal.Canvas.Brush.Style := bsClear;
  PageControlPrincipal.Canvas.Font.Color:=clBlack;
 
  PageControlPrincipal.Canvas.TextOut(Rect.Left+5,Rect.Top+5,PageControlPrincipal.Pages[Tabindex].caption);
 
end;

Qui fonctionne trés bien, mais je peux pas centrer le text, drawtext lui le permet.

[tourlourou]

n'est-il pas gênant que Etiquette ait un angle supérieur gauche défini, mais pas d'angle inférieur droit attribué (0,0) ?

[Franck SORIANO]

n'est-il pas gênant que Etiquette ait un angle supérieur gauche défini, mais pas d'angle inférieur droit attribué (0,0) ?

C'est ce que j'allais dire. Il faudrait initialiser Etiquette complètement.