Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

снова Image

Mate_ru © (2004-12-21 10:04:00)
Как написать текст под углом на 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');

//....

icWasya (2004-12-21 16:12:00) [1]
может так
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'); //....

Mate_ru (2004-12-21 14:13:00) [2]

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

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

ламер (2004-12-21 13:25:00) [3]
не любой шрифт можно "вращать". попробуй вручную задавать имя шрифта.

Mate_ru (2004-12-21 10:42:00) [4]
я уже попробовал

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

pipll (2004-12-21 10:29:00) [5]
А ты рисуй на битмапе, а потом лепи его на имейдж

Mate_ru (2004-12-21 10:24:00) [6]
не form1.Image1.Picture.Bitmap.Canvas тоже не помогло, а Image.Bitmap.Canvas - такого нет ;)

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

Квэнди (2004-12-21 10:14:00) [7]
http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=1217148720&PageNum=1&g=15&d=0&q0=1316171904&p=1

Семен Сорокин (2004-12-21 10:12:00) [8]
может Image.Bitmap.Canvas?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »