Показать сообщение отдельно
  #2  
Старый 10.08.2025, 00:31
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,105
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Copilot дает вот такой ответ:
Код:
var
  VCLBitmap: Vcl.Graphics.TBitmap;
  DestRect: TRectF;
begin
  VCLBitmap := Vcl.Graphics.TBitmap.Create;
  try
    // Load or create your VCL Bitmap
    VCLBitmap.LoadFromFile('example.bmp');

    // Define the destination rectangle
    DestRect := RectF(10, 10, 200, 200);

    // Draw on FMX Canvas (e.g., inside a TPaintBox.OnPaint event)
    DrawVCLBitmapOnFMXCanvas(VCLBitmap, Canvas, DestRect);
  finally
    VCLBitmap.Free;
  end;
end;

Еще вот тут посмотреть можно: https://stackoverflow.com/questions/...napi-functions
Ответить с цитированием