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