Показать сообщение отдельно
  #2  
Старый 03.11.2006, 22:18
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Вот. Правда сначала придется загрузить рисунок в Image.
Код:

// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
var  
  OldBkMode: integer;
begin
   Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
   OldBkMode := SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT );
   Image1.Picture.Bitmap.Canvas.TextOut( 10, 10, 'Hello' );
   SetBkMode( Image1.Picture.Bitmap.Canvas.Handle, OldBkMode );
end;  

// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
begin
   Image1.Canvas.Brush.Style := bsClear;
   Image1.Canvas.TextOut( 10, 10, 'Hello' );
end;
А после добавления текста сохранить Image обратно в графический файл. Способа проще я не знаю...

P.S.
Хотя можешь попробовать проделать это непосредственно над TBitmap.
Ответить с цитированием