Personnaliser un TPageControl sous delphi 6

Question

Comment redessiner le contr&#244;le TPagecontrol de fa&#231;on &#224; ce que les
contours des onglets aient une bordure de 1 pixel, d'une couleur au
choix, de plus je voudrais ins&#233;rer un bouton &#224; c&#244;t&#233; du caption de
l'onglet afin que lorsque l'on click sur celui-ci cela ferme l'onglet
correspondant, un peut comme le sytle de firefox.

jmp77 · Answer

Hello,



Pour commencer tu dois passer la propri&#233;t&#233; OwnerDraw &#224; True et ensuite
tu peux g&#233;rer le dessin de ton tpagecontrol dans l'evenement OnDrawTab.


Tiens j'ai un exemple pour toi : Il mets l'onglet actif en bleu et gras.

{------------------------------------------------------------------------------}

{                    
On redessine les onglets
principaux.                    
}

{------------------------------------------------------------------------------}

procedure TForm3.PageControl6DrawTab(Control: TCustomTabControl;

  TabIndex: Integer; const Rect: TRect; Active: Boolean);

begin

(Control As TPageControl).Canvas.FillRect(Rect);



   If Active then

   begin

   (Control As TPageControl).Canvas.Font.Style := [fsBold];

   (Control As TPageControl).Canvas.Font.Color := ClBlue;

   (Control As TPageControl).Canvas.TextOut(Rect.Left+5,Rect.Top+2,(Control As TPageControl).Pages[TabIndex].Caption);

   end

   else

   begin

   (Control As TPageControl).Canvas.Font.Style := [];

   (Control As TPageControl).Canvas.Font.Color := ClBlack;

   (Control As TPageControl).Canvas.TextOut(Rect.Left+8,Rect.Top+2,(Control As TPageControl).Pages[TabIndex].Caption);

   end;

end;
Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

yoco9 · Answer

Marche tr&#232;s bien merci

Personnaliser un TPageControl sous delphi 6

2 réponses

Votre réponse

Discussions similaires