mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 20:13:50 +02:00
29 lines
584 B
ObjectPascal
29 lines
584 B
ObjectPascal
unit fpvtocanvas;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$ifndef Windows}
|
|
{.$define FPVECTORIAL_TOCANVAS_DEBUG}
|
|
{$endif}
|
|
|
|
uses
|
|
fpcanvas, fpvectorial;
|
|
|
|
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.
|
|
|