Скачать: CL | DM;

Наложение текста на рисунок   Найти похожие ветки 

← →
XTD ©   (2007-01-31 11:11) [0]

Нужно наложить текст на рисунок .jpg.
Есть процедура изменения размера .jpg:
var e,k:integer;
   bmp: TBItmap;
   jpg: TJpegImage;
   scale: Double;
begin
if StrToInt(Edit1.Text) > 0 then//размер указан
begin
 e:=ListBox1.Items.Count;
 if e+1 > 0 then
 begin
   for k:=1 to e do
   begin
     jpg:= TJpegImage.Create;
     jpg.Loadfromfile(ListBox1.Items[k-1]);
     scale := StrToInt(Edit1.text) / jpg.Height;
     bmp:= Tbitmap.Create;
     {Create thumbnail bitmap, keep pictures aspect ratio}
     bmp.Width := Round( jpg.Width * scale );
     bmp.Height:= Round( jpg.Height * scale );
     bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
     {Draw thumbnail as control}
     Self.Canvas.Draw( 100, 10, bmp );
     {Convert back to JPEG and save to file}
     jpg.Assign( bmp );
     jpg.SaveToFile(ListBox1.Items[k-1]);
     bmp.free;
     jpg.free;
   end;
 end;
end;

---

← →
TUser ©   (2007-01-31 11:13) [1]

Canvas.TextOut ()

---

← →
XTD ©   (2007-01-31 11:15) [2]

Спасибо!

---

← →
XTD ©   (2007-01-31 11:25) [3]

Что не найду где выставить цвет,фон,размер,шрифр текста.
Подскажите пожалуйста.

---

← →
XTD ©   (2007-01-31 11:37) [4]

Нашел: bmp.Canvas.Font

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c