Вывод текста под углом

← →
SAI © (2005-03-03 14:13) [0]

Подскажите в чем ошибка, делаю так:
function CreateRotatedFont(F : TFont; Angle : Integer) : hFont; {-create a rotated font based on the font object F} var LF : TLogFont; begin FillChar(LF, SizeOf(LF), #0); with LF do begin lfHeight := F.Height; lfWidth := 0; lfEscapement := Angle*10; lfOrientation := 0; if fsBold in F.Style then lfWeight := FW_BOLD else lfWeight := FW_NORMAL; lfItalic := Byte(fsItalic in F.Style); lfUnderline := Byte(fsUnderline in F.Style); lfStrikeOut := Byte(fsStrikeOut in F.Style); lfCharSet := DEFAULT_CHARSET; StrPCopy(lfFaceName, F.Name); lfQuality := DEFAULT_QUALITY; {everything else as default} lfOutPrecision := OUT_DEFAULT_PRECIS; lfClipPrecision := CLIP_DEFAULT_PRECIS; case F.Pitch of fpVariable : lfPitchAndFamily := VARIABLE_PITCH; fpFixed : lfPitchAndFamily := FIXED_PITCH; else lfPitchAndFamily := DEFAULT_PITCH; end; end; Result := CreateFontIndirect(LF); end; procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Font.Handle:=CreateRotatedFont(Form1.Canvas.Font,90); Form1.Canvas.TextOut(10,10,"sewr"); end;

← →
clickmaker © (2005-03-03 14:14) [1]

> SAI © (03.03.05 14:13)

а в чем проявляецца ошибка-то?

← →
SAI © (2005-03-03 14:19) [2]

Текс не поварачивается, а выводится как всегда...

← →
MBo © (2005-03-03 14:22) [3]

шрифт должен быть TTF (например, Arial)

и lfOrientation стоит выставить так же, как lfEscapement

Не та конференция.

MBo спасибо.

Вывод текста под углом Найти похожие ветки