TPageCotnrol -> selber zeichnen -> Schrift bei Tabs hochkant

[HolgerCW]

ICh denke das Problem liegt ncoh woanders.

Denn auch wenn ich mit:

Delphi-Quellcode:

If PageControl.TabPosition = tpRight then 
begin

abfrage, das er nur bei PageControls mit Rechtsausrichtung die Drehung machen soll, wirken sich die Änderungen auch auf die anderen PageControls aus. Bei andere PageControls wiederrum funktioniert sogar die Drehung mit Verschiebung um +26. Das heisst das in der Zeile:

canvas.TextOut(rect.left+26,rect.top+5,Pages[Der_Tabindex].Caption); irgendwie die Drehung auch Auswirkung zeigt. Irgendwie muss ich das Globale da raus kriegen ?

Ich rufe ja auch von jedem PageControl über das Draw Ereignis diese Procedure auf ...

Bin ratlos ?

...