Caption-Textfarbe eines PageControl TabSheets ändern

[Magnitudo]

Hallo zusammen,

ist es möglich den Caption-Texten der TabSheets in einem PageControl verschiedene Farben zuzuweisen ?
Ich habe in einem PageControl 4 TabSheets und möchte die TabSheets im Reiter-Text farblich differenzieren.
Im Objektinspektor kann einem TabSheet eine Farbe einzeln zugewiesen werden,
übernommen wird aber letzten Endes immer die Font-Farbe im PageControl.
Und die ist dann gültig für alle darin befindlichen TabSheets.

Grüße
Thomas

[himitsu]

TabSheet ist ausschließlich der Klientbereich im TabControl.
Die Buttons/Tabs gehören aber zum TabControl.

Standardmäßig gibt es das nicht, also müsstest du dich vermutlich selber um das Zeichnen der Tabs kümmern.

[Perlsau]

Zitat von Magnitudo:

Hallo zusammen, ist es möglich den Caption-Texten der TabSheets in einem PageControl verschiedene Farben zuzuweisen ?

Wie Himitsu schon sagte: Die Farbe des Tabulatoren-Textes wird in der Font-Eigenschaft von TPageControl festgelegt, daher hast du da immer dieselbe Farbe. Um eine farbliche Unterscheidung der einzelnen Tabulatoren zu ermöglichen, verwendet man das Property Images. Dort wird die TImageList festgelegt, welche die einzelnen Grafiken für die jeweiligen Tabulatoren enthält. Diese Grafiken kannst du nun farblich gestalten, wie es dir beliebt.

[hathor]

Im PageControl.OnDrawTab:

PC1 ist das PageControl

Delphi-Quellcode:

procedure TForm1.PC1DrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
var TabCaption: string;   CaptionX: Integer; CaptionY: Integer;
begin
if Active then
  begin
    Control.Canvas.Brush.Color := clLime;
    Control.Canvas.Font.Color:= clRed;
    Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
  end else
  begin
  Control.Canvas.Brush.Color := clBtnFace;
  Control.Canvas.Font.Color:= clBlack;
//hier kann man einen Block von Tabs anders färben, wenn man will
  if TabIndex in [25..30] 
   then Control.Canvas.Brush.Color := clSkyBlue;
    Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];
  end;
  Control.Canvas.FillRect(Rect);
//hier kann man die Tabs umbenennen, wenn man will
with Control.Canvas do
  begin
    TabCaption := INTTOSTR(TabIndex+1);
    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;

[Magnitudo]

Vielen Dank für eure Hilfe.
Klappt perfekt

Grüße
Thomas