Class TPolygon (unit Poly16)

Inherits from

TGraphicControl

Constructors


Constructor Create(AOwner:TComponent);



Functions

Destructor Destroy;

/Startvärden

Procedure Paint;


Procedure ChangeState(State:Boolean);


Procedure PaintBackground;


Procedure SetBackColor(BackColor:TColor);


Procedure SetInterval(WaitTime:Integer);


Procedure SetLineColor(SetColor:TColor);


Procedure TimesUp(Sender:TObject);


Properties

property BackColor : TColor


property Enabled : Boolean


property Interval : Integer


property LineColor : TColor


Events

Variables

FBackColor : TColor;


FEnabled : Boolean;


FImage : TBitmap;


FInterval : Integer;


FLineColor : TColor;


FPoints : Array[1..5] Of TPoint;


FStep : Array[1..4] Of TPoint;


FTimer : TTimer;



Constructors


Constructor Create(AOwner:TComponent);


Functions


Destructor Destroy;

/Startvärden


Procedure Paint;


Procedure ChangeState(State:Boolean);


Procedure PaintBackground;


Procedure SetBackColor(BackColor:TColor);


Procedure SetInterval(WaitTime:Integer);


Procedure SetLineColor(SetColor:TColor);


Procedure TimesUp(Sender:TObject);


Properties


property BackColor : TColor


property Enabled : Boolean


property Interval : Integer


property LineColor : TColor


Events


Variables


FBackColor : TColor;


FEnabled : Boolean;


FImage : TBitmap;


FInterval : Integer;


FLineColor : TColor;


FPoints : Array[1..5] Of TPoint;


FStep : Array[1..4] Of TPoint;


FTimer : TTimer;