Farbe eines Tabsheet Reiters ändern (TPageControl)

[Andidreas]

aloha zusammen,

ich habe auf meiner form ein TPageControl... das hat die farbe weiß...
die reiter der tabsheets haben ein hässliches grau...

wie kann ich hier die farbe ändern?
im forum habe ich schon paar beispiele gefunden... diese funktioniern bei mir aber leider nicht...

hier mal meine prozedur:

Delphi-Quellcode:

procedure Tmain_form.pagectrl_scaleDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

  WITH Control.Canvas DO
  BEGIN

    tabsheet_scaletest.Brush.Color := clRed;

  END;

end;

ich hoffe ihr könnt mir ein paar tipps geben ;-)

[mkinzler]

Ruf mal die Standarddraw-Routine auf

[Andidreas]

und welches ist die standard draw routine? beim tabsheet find ich nur die "ondrawtab"

[toms]

Delphi-Quellcode:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  TabText: string;
  APoint: TPoint;
begin
  with TPageControl(Control).Canvas do
  begin
    Brush.Color := ClRed;
    FillRect(Rect);
    TabText := TPageControl(Control).Pages[TabIndex].Caption;
    with Control.Canvas do
    begin
      APoint.x := (Rect.Right - Rect.Left) div 2 - TextWidth(TabText) div 2;
      APoint.y := (Rect.Bottom - Rect.Top) div 2 - TextHeight(TabText) div 2;
      TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, TabText);
    end;
  end;
end;

' PageControl1.OwnerDraw auf True setzen

[Andidreas]

cool es funktioniert =) dankeschön :thumb: