Zitat von
Aike:
Huch, die Eigenschaft TabPosition hab ich gar nicht gesehen. Allerdings ist eine vertikale Schrift alles andere als der Übersichtlichkeit dienlich. Darum ist meine Lösung doch die richtige, solange es keine Lösung gibt, die meine Buttons (o.ä.) in einer vertikalen Anordnung aber mit horizontaler Schrift bietet.
Hi,
man könnte die Schrift jedoch selber zeichnen,
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TabControl1.OwnerDraw := true;
TabControl1.TabPosition := tpLeft;
TabControl1.TabWidth := 25;
TabControl1.TabHeight := 75;
end;
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Control is TTabControl then
TTabControl(Control).Canvas.TextOut((Rect.Right - Rect.Left -
TTabControl(Control).Canvas.TextWidth(TTabControl(Control).Tabs[TabIndex])) div 2,
Rect.Top + (Rect.Bottom- Rect.Top -
TTabControl(Control).Canvas.TextHeight(TTabControl(Control).Tabs[TabIndex])) div 2,
TTabControl(Control).Tabs[TabIndex]);
end;
ob das ein zufriedenstellendes Ergebnis ist, ist natürlich Ansichtssache.
EDIT: Der Fehler wurde behoben, dass alle Taps die selbe Caption haben.