Caption-Text eines TabSheet-Reiters farbig ausgeben

[mz23]

Zitat von Bummi:

ich weiß nicht wie es unter Turbodelphi aussieht

OwnerDraw:=true;

Delphi-Quellcode:

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   PageControl1.Canvas.Brush.Color := clWhite;
   PageControl1.Canvas.FillRect(Rect);
   if Tabindex=1 then
      begin
        if PageControl1.ActivePageindex=TabIndex then  PageControl1.Canvas.Font.Color := clRed else PageControl1.Canvas.Font.Color := clblue;
        PageControl1.Canvas.Font.Style := [fsBold,fsUnderline]
      end;
    PageControl1.Canvas.Textout(rect.Left + 2,rect.Top + 2,PageControl1.Pages[Tabindex].Caption)

end

Danke Bummi
Schöne Grüße aus -1° Nürnberg (06:32),
Manfred