n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/GraphABCHelper2.pas

34 строки640 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

unit GraphABCHelper2;

//#apptype windows
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}

interface

uses System.Drawing;

type Color = System.Drawing.Color;

procedure FillRoundRect(x1,y1,x2,y2,w,h: integer; gr: Graphics);
procedure FillRoundRect(x1,y1,x2,y2,w,h: integer; c: Color; gr: Graphics);
implementation

procedure FillRoundRect(x1,y1,x2,y2,w,h: integer; gr: Graphics);
begin

end;

procedure FillRoundRect(x1,y1,x2,y2,w,h: integer; c: Color; gr: Graphics);
begin

end;

procedure RoundRect(x1,y1,x2,y2,w,h: integer; gr: Graphics);
begin
    FillRoundRect(x1,y1,x2,y2,w,h,gr);
end;


initialization
end.