Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
1-1085074474
K@rt
2004-05-20 21:34
2004.06.06
Information for


14-1085224658
Ezik
2004-05-22 15:17
2004.06.06
Улыбнись....


14-1085216332
bender
2004-05-22 12:58
2004.06.06
Как сделать PopupMenu в RxRichEdite


1-1085325898
vajo
2004-05-23 19:24
2004.06.06
TreeView


1-1085072138
Nikoss
2004-05-20 20:55
2004.06.06
Как узнать порядковый номер объекта в динам. массиве ...