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

Вниз

снова 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 тоже не помогло

---

← →
ламер ©   (2004-12-21 13:25) [6]

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

---

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

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


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

---

← →
icWasya ©   (2004-12-21 16:12) [8]

может так

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");

//....



---

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

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

Наверх

Память: 0.46 MB
Время: 0.048 c