mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-03 19:43:53 +02:00
32 lines
634 B
ObjectPascal
32 lines
634 B
ObjectPascal
unit fpvtocanvas;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$ifndef Windows}
|
|
{.$define FPVECTORIAL_TOCANVAS_DEBUG}
|
|
{$endif}
|
|
|
|
uses
|
|
Classes, SysUtils, Math,
|
|
fpcanvas,
|
|
fpimage,
|
|
fpvectorial, fpvutils;
|
|
|
|
procedure DrawFPVectorialToCanvas(ASource: TvVectorialPage;
|
|
ADest: TFPCustomCanvas;
|
|
ADestX: Integer = 0; ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0);
|
|
|
|
implementation
|
|
|
|
procedure DrawFPVectorialToCanvas(ASource: TvVectorialPage;
|
|
ADest: TFPCustomCanvas;
|
|
ADestX: Integer = 0; ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0);
|
|
begin
|
|
ASource.Render(ADest, ADestX, ADestY, AMulX, AMulY);
|
|
end;
|
|
|
|
end.
|
|
|