Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

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

← →
Ezorcist   (2007-03-07 21:47) [0]

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

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

---

← →
Джо ©   (2007-03-07 21:57) [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;


---

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

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх

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