Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

← →
BlackTiger ©   (2004-05-24 15:48) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c