Bonjour,

Je cherche à modifier la police de caractères des onglets d'un TTabControl.
Pour ça, le code classique :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm9.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control.Canvas do
  begin
    Font.Name := 'SEGOE UI';
    Font.Size := 12;
    FillRect(Rect);
    TextRect(Rect, Rect.Left, Rect.Top, TTabControl(Control).Tabs[TabIndex]);
  end;
end;
Problème : En augmentant la taille de la police, ça "mange" le début et la fin du texte.
Le Rect étant en const, impossible de le modifier.

Une idée pour agrandir la taille de l'onglet modifié ??