| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

вывести текст на image сожержащий jpeg?

Ezorcist ©   (2007-03-07 21:47:00) 

Image1.Canvas.TextOut(10,10,'22222');

error "can only modify an image if it contains a bitmap"

---

Джо   (2007-03-07 21:57:00) [1]

Примерно так.
var
 Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 try
   Bmp.Width := Image1.Picture.Width;
   Bmp.Height := Image1.Picture.Height;
   Bmp.Canvas.Draw(0,0,Image1.Picture.Graphic);
   Bmp.Canvas.TextOut(0,0,'Text');

   Image1.Picture.Bitmap.Assign(Bmp);
 finally
   Bmp.Free
 end;
end;


---

Наверх