Discussion :

[chourmo]

Bonjour,
je souhaiterais mettre en gras le caption d'un onglet d'un pagecontrol. les autres restant en normal.

Tabsheet[1].Font.Style :=[fsbold];

met tout le contenu de l'onglet en gras alors que je ne voudrais que le caption
merci pour toute aide
Seb

[Eric Boisvert]

associe ce code a OnDrawTab

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
 
//*** Ne pas oublier de mettre OwnerDraw a TRUE! ***
procedure TfrmMain.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
    with Control as TPageControl do
    begin
        if Active=TRUE then //TabIndex=PageControl1.ActivePageIndex then
        begin
            Canvas.Font.Style:=[fsBold];
        end
        else
        begin
            Font.Style:=[];
        end;
        Canvas.Font.Color := clBlack;
        Canvas.FillRect(Rect);
        Canvas.TextOut(Rect.Left+2,Rect.Top+2,Pages[TabIndex].Caption);
    end;
 
end;

Il ne Faut pas oublier de mettre OwnerDraw=TRUE de l'objet
PageControl1.....

il faudrait ajouter à ce code le support pour les images...

J'espère le tout conforme.

[chourmo]

mon composant pagecontrol se crée dynamiquement. peux tu m'indiquer comment associer cette procédure à ce composant ?

[Eric Boisvert]

après la creation, associe la procedure et met le OwnerDraw à true...

Code :

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

1
2
3
4
5
 
    // Associe le code pour dessiner les onglets
    PageControlDynamic.OnDrawTab:=PageControl1DrawTab;
    // Spécifie que c'est nous qui dessinons les onglets
    PageControlDynamic.OwnerDraw:=TRUE;

Voilà

[chourmo]

merci

[anapurna]

salut

attention si tu te sert du TabVisible tu risque d'avoir des surprise l'index ne pointera pas sur le bon caption

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
Type
  TMPageControl = class (TPageControl)
  end;
 
 
procedure TMaform.pagecontrol1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  TabText: string;
  P: TPageControl;
  OutRect : TRect;
begin
 p :=   Control as TPageControl ;
 TabText := TMPageControl(P).Tabs[TabIndex];
 OutRect := Rect;
 InflateRect (OutRect, -3, -3);
 OutRect.Left := OutRect.Left + 3;
 if Active Then
 begin
   P.Canvas.Font.Style:=[fsBold];
 end
 else
 begin
   P.Canvas.Font.Style:=[];
 end;
 DrawText (Control.Canvas.Handle,
    PChar (ExtractFileName (TabText)),
    Length (ExtractFileName (TabText)),
    OutRect, dt_Left or dt_SingleLine or dt_VCenter);
end;

@+ Phil