DrawText вверх ногами... Не понимаю...

← →
BlackTiger © (2004-05-24 14:45) [0]

Пытаюсь вывести многострочно некий текст вверх ногами. Получается полный бред. Может кто подскажет? Вот мой тестовый код:

var lf: LOGFONT; c: TCanvas; R: TRect; s: string; begin Image1.Picture.Bitmap.Width := 300; Image1.Picture.Bitmap.Height := 300; c := Image1.Picture.Bitmap.Canvas; GetObject(c.Font.Handle, SizeOf(lf), @lf); lf.lfHeight := 20; lf.lfClipPrecision lf.lfEscapement := 10 * 180; // degrees to rotate lf.lfOrientation := 10 * 180; lf.lfCharSet := DEFAULT_CHARSET; StrCopy(lf.lfFaceName, "Tahoma"); c.Font.Handle := CreateFontIndirect(lf); //c.TextOut(100, 100, "Rotated text"); R := Rect(100, 200, 150, 100); c.Font.Color := clBlack; s := "Rotated Text Rotated Text"; Windows.DrawText(c.Handle, PCHAR(s), StrLen(PCHAR(s)), R, DT_WORDBREAK + DT_NOCLIP); c.Brush.Color := clBlack; c.Pen.Color := clBlack; c.Pen.Width := 2; c.FrameRect(R); end;

Текст-то вверх ногами выводится, но совсем не с того места, с какого мне нужно, да и строки получаются не в том порядке, в каком нужно. Короче, фигня какая-то...

← →
BlackTiger © (2004-05-24 14:55) [1]

Строка с lf.lfClipPrecision - это лишнее.

← →
NAlexey © (2004-05-24 15:12) [2]

А что не так? Вроде все честно. Текст перевернутый.

А ты порядок слов посмотри...

DrawText вверх ногами... Не понимаю... Найти похожие ветки