TpageControl Position und Rotation

[LokutusvB]

Hallo,

mittels der Eigenschaft TabPosition kann ich mir die Tab-Reiter links anzeigen lassen. Dummerweise jedoch ist dann der Schriftzug der Reiter von unten nach oben. gibt es eine Möglichkeit, diesen Schriftzug um 90 Grad zu drehen sprich wie normal üblich von links nach rechts?

[Bummi]

Sowas ?

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  PageControl1.TabWidth := 30;
  PageControl1.TabHeight := 100;
  PageControl1.OwnerDraw := true;
end;

procedure TForm2.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.Font.Orientation := 0;
  Control.Canvas.TextOut(Rect.Left + 7,Rect.Top + 7,TPageControl(Control).Pages[TabIndex].Caption);
end;

[LokutusvB]

Vielen Dank, genau danach habe ich gesucht! :)