Добавление Надписи на Image

[program123]

Добрый день, столкнулся с такой проблемой. Загружаю картинку в Image, после этого кидаю Label сверху, пишу нужный текст и тут проблема..
как сохранить это всё в другую картинку с надписью(label).
помогите пожалуйста

[BARNEY]

фотошоп в помощь... там 1 плагином это делается.

[Stilet]

А не проще ли сразу писать текст на канву Image?
TextOutXY вроде еще не отменили, да и сохранить потом картинку измененную можно легко

[_SERGEYX_]

У Image есть свойство Canvas. А значит на нем можно что угодно писать, рисовать и даже кино показывать

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Brush.Color := clRed;
    Font.Color := clYellow;
    Font.Style := [fsBold];
    TextOut(5, 5, 'Надпись на image');
    Image1.Picture.Bitmap.SaveToFile('c:\Проба.bmp');
  end;
end;

[program123]

Мне нужно сначала загрузить в Image фотографию, а после этого на нее добавить текст, после этого пересохранить, а текст не добавиться...... на загруженный Image

[mihali4]

Все ясно.
ТС - читать литературу для начинающих.
Тема переезжает к студентам.

[program123]

mihali4, что ясно?... после загрузки в image картинки нельзя вывести в нее текст,и сохранить картинка+наложенный текст...

[mihali4]

Читаем еще раз п.4
Если непонятно - читаем еще раз, потом еще и еще, пока не дойдет...

[Stilet]

после загрузки в image картинки нельзя вывести в нее текст

А ты как загружаешь то? Если в дизайне то да, Делфи может ругаться, но ведь можно воспользоваться методом LoadFromFile в ходе работы программы.

 with Image1 do begin
   Picture.Bitmap.LoadFromFile('C:\1\Зима.bmp');
   Canvas.TextOut(10,10,'asdas');
 end;

Ферштейн?

[program123]

спасибо,текст получается вывести и сохранить, только вот выводится он как-то выделенно, можно както прозрачность поставить?