Aus unserer Implementierung einer abgeleiteten Komponente:
Delphi-Quellcode:
procedure DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean); override;
...
procedure T...PageControl.DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
inherited;
...
Canvas.Brush.Style := bsSolid;
Canvas.Font.Color := clBtnHighlight;
Canvas.FillRect(Rect);
Canvas.TextOut(CaptionLeft, CaptionTop, StripHotKey(Pages[PageArrayIndex].Caption));
Wir benutzen dort aus der
Unit Menus die Funktion StripHotKey um das Zeichen vor dem Zeichnen zu entfernen. Natürlich passiert das auch bei der Berechnung der Textposition schon, ich habe es jetzt nur zur Illustration dorthin gepackt.