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

[Navovvol]

Как вывести текст на изображение так, чтобы его можно было сохранить в .jpg формате.

P.S. Нет метода TextOut у Image.

[Navovvol]

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

[xenon54]

  image1.bitmap.Canvas.BeginScene();
  Image1.bitmap.Canvas.FillText(TRectF.Create(0,0,1000,1000),'1234567890',True,1,[],TTextAlign.Leading);
  Image1.bitmap.Canvas.EndScene();

[Brovin Yaroslav]

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

 

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

[Navovvol]

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

 

 

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

 

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

 

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

 

 

[Brovin Yaroslav]

  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;