Главная страница
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.027 c
15-1173425895
vajo
2007-03-09 10:38
2007.04.01
SD - MiniSD


11-1140886672
ECM
2006-02-25 19:57
2007.04.01
Новости сайта kolnmck.ru


11-1153760523
Alexei6021
2006-07-24 21:02
2007.04.01
Печать в KOL


2-1173238557
Expell
2007-03-07 06:35
2007.04.01
Перетащить картинку...


15-1173172002
ocean
2007-03-06 12:06
2007.04.01
Ретушь