TPageCotnrol -> selber zeichnen -> Schrift bei Tabs hochkant

[HolgerCW]

Habe es so gemacht:

Delphi-Quellcode:

for I := 1 to Length(Pages[Der_Tabindex].Caption) do
begin
 Canvas.TextOut(rect.left+1, 0, Pages[Der_Tabindex].Caption[I]);
 Inc(0, Canvas.TextHeight(Pages[Der_Tabindex].Caption[I]) + 1);
end;