TpageControl Position und Rotation

[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;