Wie kann ich Textausgabe um 90° drehen ?

[madina]

Hallo,

wie kann ich bei TCanvas.TextOut(x, y, 'Hallo'); den Text z.B. "Hallo" um 90° in uhrzeigersinn oder umgekehrt gedreht ausgeben?

mfg

[hanspeter]

Zitat von madina:

Hallo,

wie kann ich bei TCanvas.TextOut(x, y, 'Hallo'); den Text z.B. "Hallo" um 90° in uhrzeigersinn oder umgekehrt gedreht ausgeben?

mfg

Winkel := 90; // Senkrechter Text

GetObject(TCanvas(Canvas).Font.Handle, SizeOf(LogRec), @LogRec);
LogRec.lfEscapement := Winkel * 10;
LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;
LogRec.lfWeight:=Widht;
NewFont := CreateFontIndirect(LogRec);
OldFont := SelectObject(TCanvas(Canvas).Handle,NewFont);
TCanvas(Canvas).Brush.Style := bsSolid;
TCanvas(Canvas).Brush.Color:=Color;
TCanvas(Canvas).TextOut(SpaltePos+px0, ypos, buf);
NewFont := SelectObject(TCanvas(Canvas).Handle,OldFont);
DeleteObject(NewFont);

[Garfield]

Das müsste das richtige sein!?

http://www.delphi-fundgrube.de/faq14.htm#topic1405 bzw http://www.delphipraxis.net/internal...ct.php?t=17910

[madina]

Hallo,

ich habe eine einfache Lösung gefunden mit einer Zeile:

SelectObject(Canvas.Handle, CreateFont(40, 0, 2700, 0, fw_normal, 0, 0, 0, 1, oh_tt_precis, $10, 2, 4, 'Arial'));
Canvas.TextOut(x, y, 'Hallo');


nur dabei weiß ich nicht, ob nachdem drehen die Fonthöhe und Breite sich auch ändert dh HöheHoriz, BreiteHoriz sich drehen zu HöheVertikal und BreiteVertikal??

mfg

[Muetze1]

Aber gegenüber hanspeters Code hast du ein Resourcenleck. Du gibst den alten Font oder den neuen Font nicht wieder frei. Somit kann ich dir den Code von hanspeter ans Herz legen - den kannst du dann auch mehrfach aufrufen ohne das es später zu einem Absturz wegen Resourcenmangel kommt.