Un canvas récalcitrant

Version imprimable

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:

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:

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

Bonjour,

Et pourquoi pas comment ça :

Code:

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;

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

j'ai fait cela

Code:

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.

09/09/2008, 16h26
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) ?
09/09/2008, 18h22
Franck SORIANO

Citation:

Envoyé par 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) ?

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