снова Image

← →
Mate_ru (2004-12-21 10:04) [0]

Как написать текст под углом на Image? Пишу процедуру - просто для form.canvas всё работает, для image.canvas - нет. В чем дело?

procedure CanvasSetAngle(C: TCanvas; A: Single);
var
LogRec: TLOGFONT; {Font informationen}
begin
GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
LogRec.lfEscapement := Trunc(A*10);
C.Font.Handle := CreateFontIndirect(LogRec);
end;
//....

CanvasSetAngle(form1.Image1.Canvas, 225);
form1.Image1.Canvas.TextOut(100, 100, "01/01/04");

//....

← →
Семен Сорокин © (2004-12-21 10:12) [1]

может Image.Bitmap.Canvas?

← →
Квэнди © (2004-12-21 10:14) [2]

http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=1217148720&PageNum=1&g=15&d=0&q0=13161719 04&p=1

← →
Mate_ru (2004-12-21 10:24) [3]

не form1.Image1.Picture.Bitmap.Canvas тоже не помогло, а Image.Bitmap.Canvas - такого нет ;)

Квэнди ©
мне не надо выводить текст на картинке, я её не загружаю, а просто рисую на канве, вот только с текстом косяк.

← →
pipll © (2004-12-21 10:29) [4]

А ты рисуй на битмапе, а потом лепи его на имейдж

← →
Mate_ru (2004-12-21 10:42) [5]

я уже попробовал

Mate_ru (21.12.04 10:24) [3]
не form1.Image1.Picture.Bitmap.Canvas тоже не помогло

не любой шрифт можно "вращать". попробуй вручную задавать имя шрифта.

← →
Mate_ru (2004-12-21 14:13) [7]

> ламер © (21.12.04 13:25) [6]
> не любой шрифт можно "вращать". попробуй вручную задавать
> имя шрифта.

почему-то один и тот же шрифт на самой форме вращается, а на image нет.

может так
procedure FontSetAngle(F: TFont; A: Single); var LogRec: TLOGFONT; {Font informationen} begin GetObject(F.Handle,SizeOf(LogRec),Addr(LogRec)); LogRec.lfEscapement := Trunc(A*10); F.Handle := CreateFontIndirect(LogRec); end; //.... var F:TFont; /// F:=TFont.Create; F.Assign(Form1.Image1.Canvas.Font); // FontSetAngle(F, 225); Form1.Image1.Canvas.Font:=F; Form1.Image1.Canvas.TextOut(100, 100, "01/01/04"); //....

снова Image Найти похожие ветки