TPageCotnrol -> selber zeichnen -> Schrift bei Tabs hochkant

[HolgerCW]

Hallo zusammen,

wie kann ich den Text bei den Tabs hochkannt darstellen, wenn ich das PageControl selber zeichne.

Mach das so:

Delphi-Quellcode:

canvas.TextOut(rect.left,rect.top,Pages[Der_Tabindex].Caption);

Nur zeichnet er mir den Text nun von links nach rechts und nicht von oben nach unten. Wie bekomme ich as hin ?

Gruss

Holger

[PeterPain]

Soweit ich weis garnicht.
Du könntest dir natürlich selber was schreiben, wie :

Delphi-Quellcode:

  Y := 0;
  X := WhatEver;
  for i := 1 to Length(Text) do
  begin
   MyCanvas.TextOut(X, Y, Text[I]);
   Inc(Y, MyCanvas.TextHeight(Text[i]) + 1);
  end;

gruss

[Die Muhkuh]

Hi,

hier ist ein Beispiel, wie man einen Text drehen kann.

[edit]Komische Interpunktion entfernt :tongue: [/edit]

[HolgerCW]

Vielen dank erstmal, werde es morgen ausprobieren ...und geben dann mein Feedback ...

Gruss

Holger

[HolgerCW]

Hallo nochmal,

also bei dem ersten Beispiel kommt ein Fehler bei:

Delphi-Quellcode:

Inc(Y, MyCanvas.TextHeight(Text[i]) + 1);

Fehlermeldung: Der linken Seite kann ncihts zugewiesen werden !!!

Das verlinkte Beispiel beeinflusst irgendwie auch die Schriftgrösse und Fett-Schrift. Komme damit nciht klar.

Für weitere Anrgungen wäre ich sehr dankbar.

Gruss

Holger

[DeddyH]

Ist Y denn als Variable definiert?

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

[DeddyH]

0 ist eine Konstante.

[HolgerCW]

Alles klar.

Das haut nun schon mal hin. Nur schreibt er die Buchstaben jetzt so:

T
e
s
t

Dann ist der Text für das Tab zu lang. Die Buchstaben müssen jetzt nochmal um 90° gedreht werden. Wie bekomme ich das hin ?

Gruss

Holger

[DeddyH]

Bei mir funktioniert das Beispiel. Hast Du denn auch einen Truetype-Font verwendet?