Class TMyCanvas (unit new_canv)

Inherits from

TPanel

Constructors


Constructor Create( AOwner: TComponent );



Functions

Procedure Clear_Canvas;

-------------------------------------------------------

Destructor Destroy;


Procedure DrawEllipse( x1, y1, R1, R2: integer );


Procedure DrawLine( x1, y1, x2, y2: integer );


Procedure DrawPixel( x1, y1: integer );


procedure Paint;


Procedure Set_color( R, G, B: integer );


Procedure TextOut( x1, y1: integer; s: ShortString );


Properties

Events

Variables

MAX_X : integer;


MAX_Y : integer;


X_TOP : integer;


Y_TOP : integer;



Constructors


Constructor Create( AOwner: TComponent );


Functions


Procedure Clear_Canvas;

-------------------------------------------------------


Destructor Destroy;


Procedure DrawEllipse( x1, y1, R1, R2: integer );


Procedure DrawLine( x1, y1, x2, y2: integer );


Procedure DrawPixel( x1, y1: integer );


procedure Paint;


Procedure Set_color( R, G, B: integer );


Procedure TextOut( x1, y1: integer; s: ShortString );


Properties


Events


Variables


MAX_X : integer;


MAX_Y : integer;


X_TOP : integer;


Y_TOP : integer;