Наложение текста на рисунок

← →
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]

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

Нашел: bmp.Canvas.Font

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