Форум: "Начинающим";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Внизвывести текст на 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.055 c