| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Наложение текста на рисунок [D7, 2000]
XTD © (2007-01-31 11:11:00)Нужно наложить текст на рисунок .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;
XTD (2007-01-31 11:37:00) [1]Нашел: bmp.Canvas.Font
XTD (2007-01-31 11:25:00) [2]Что не найду где выставить цвет,фон,размер,шрифр текста.
Подскажите пожалуйста.
XTD (2007-01-31 11:15:00) [3]Спасибо!
TUser (2007-01-31 11:13:00) [4]Canvas.TextOut ()
| |
