Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.044 c
6-1161150230
Helen
2006-10-18 09:43
2007.04.01
Копирование файла из сети


10-1130305721
Mary
2005-10-26 09:48
2007.04.01
Подключение клиентов к com-серверу


4-1163658294
Out
2006-11-16 09:24
2007.04.01
Убийство процесса


9-1146394032
COMRAD_GREMLIN
2006-04-30 14:47
2007.04.01
проблема с поворотом 2d объекта с текстурой в Opengl


1-1170856465
Badhabit
2007-02-07 16:54
2007.04.01
DBGrid и поле DateTime