Farbige Schrift beim TPageControl Tab...

[madtom]

Hallo,

folgender Code sollte den Zweck erfüllen:
(Quelle: http://www.delphi-treff.de/)

Delphi-Quellcode:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  CaptionX: Integer; 
  CaptionY: Integer;
  TabCaption: string;
begin
  with Control.Canvas do begin
    case TabIndex of
      0: begin
           Brush.Color := clBtnFace;
           Font.Color := clWindowText;
         end; 
      1: begin
           Brush.Color := clMaroon;
           Font.Color := clWhite;
         end;
    end;
    TabCaption := PageControl1.Pages[TabIndex].Caption;
    CaptionX := Rect.Left + ((Rect.Right - Rect.Left - TextWidth(TabCaption)) div 2);
    CaptionY := Rect.Top + ((Rect.Bottom - Rect.Top - TextHeight('Gg')) div 2);
    FillRect(Rect);
    TextOut(CaptionX, CaptionY, TabCaption);
  end;
end;

Thomas

[Z4ppy]

Wie ich schon schrieb: das Problem ist nicht der Code des OnDrawTab, sondern dass diese Methode gar nicht ausgelöst wird ^^
Lesen soll in einigen Fällen Vorteile bieten

MfG Z4ppy

[madtom]

Hallo Z4ppy,

hast Du den Code mal ausprobiert? Ich habe es getestet und der Text wird in meinem Falle weiß auf Maroon ausgegeben. Warum Dein OnDrawTab Ereignis nicht ausgelöst
wird, kann ich aber auch nur mutmaßen.

[Z4ppy]

Was bringt mir der beste Code im OnDrawTab, wenn das Ereignis nicht kommt?
Ja, ich hab den Code eben ausprobiert... Er ist genau so erfolgreich wie meiner aus dem ersten Post

Zitat von madtom:

Warum Dein OnDrawTab Ereignis nicht ausgelöst wird, kann ich aber auch nur mutmaßen.

Auch Mutmassungen sind gerne gesehen

MfG Z4ppy

[madtom]

Hallo Z4ppy,

Hast Du die Eigenschaft "OwnerDraw" der Komponente auf True gesetzt? Sonst kann natürlich OnDrawTab nicht funtionieren.