Перейти к содержанию
Fire Monkey от А до Я
  • 0

[TImage] Как нарисовать текст на изображение в TImage, чтобы его потом можно было сохранить?


Navovvol

Вопрос

Рекомендуемые сообщения

  • 0
  • Администраторы

Если использовать TTextLayout  и метод RenderLayout, то текст рисуется поверх картинки и не сохраняется через Bitmap->SaveToFile.

 

Надо в этом случае брать канву битмапа (Image1.Bitmap.Canvas), а не контрола.

Ссылка на комментарий
  • 0

xenon54, спасибо. Помогло.

 

 

Если использовать TTextLayout  и метод RenderLayout, то текст рисуется поверх картинки и не сохраняется через Bitmap->SaveToFile.

 

Надо в этом случае брать канву битмапа (Image1.Bitmap.Canvas), а не контрола.

 

Не понял. Всяко перепробывал  - не получается так.

 

 

Ссылка на комментарий
  • 0
  • Администраторы
  with Image1.Bitmap.Canvas do
  if BeginScene then
    try
      Fill.Color := TAlphaColorRec.Red;
      Fill.Kind := TBrushKind.Solid;
      FillText(TRectF.Create(0, 0, 1000, 100), '1234567890', True, 1, [], TTextAlign.Leading);
    finally
      EndScene;
    end;
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...