Главная страница
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.076 c
2-1172997048
mavrtuva
2007-03-04 11:30
2007.04.01
QuantumGrid


15-1173259369
Оззя
2007-03-07 12:22
2007.04.01
DelphiGFX умер?


2-1173102019
Ezorcist
2007-03-05 16:40
2007.04.01
Рекция на поворот колеса мыши?


2-1173449425
DelphiLexx
2007-03-09 17:10
2007.04.01
Как создать глобальную переменную


15-1173256037
Некто
2007-03-07 11:27
2007.04.01
Простые тосты к 8.03