Class TBiancoLock (unit T_BIANCOLOCK)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

*****************************************************************************


Functions

Destructor Destroy;

RANDOMIZE; IF RANDOM(5)=0 THEN SHOWMESSAGE('Bianchini Marco'+#13+'E-Mail bianco@arcanet.

FUNCTION EXECUTE:BOOLEAN;

METHODS

FUNCTION FILLCIRCLE(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;


FUNCTION FILLRECT(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;

FUNCTION CIRCLE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;

FUNCTION TBIANCOLOCK.


FUNCTION LINE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;

DRAWING METHODS

DRAWING METHODS


FUNCTION PSET(X,Y:INTEGER):BOOLEAN;


FUNCTION RECT(X1,Y1,X2,Y2:INTEGER):BOOLEAN;


PROCEDURE UNEXECUTE;

NOTHING TO DO

FUNCTION Write(X1,Y1:INTEGER;S:String):BOOLEAN;


FUNCTION CAPTUREIMAGE:TBITMAP;

PROCEDURE CAPTUREIMAGE(IMAGE1:TIMAGE);

INTERNAL PROCEDURES


PROCEDURE DO_CI;

FILL WITH RECTANGLES

PROCEDURE DO_HL;

FILL WITH VERTICAAL GRID

PROCEDURE DO_P;

...

PROCEDURE DO_RE;

FILL WITH VERTICAAL LINES

Procedure DO_te;

FILL WITH PIXELS

PROCEDURE DO_VG;

Nothing to do FILL WITH Text

PROCEDURE DO_VL;

FILL WITH HORIZONTAL LINES

Properties

property Color : TCOLOR


property DeltaX : INTEGER


property DeltaY : INTEGER


property Font : TFont


property Style : TFILLSTYLE


property Text : String


Events

Variables

COL : TCOLOR;


DX : INTEGER;


DY : INTEGER;


F : TFORM;


fnt : TFont;


GS : TFILLSTYLE;


I : TIMAGE;


ScreenDC : HDC;


Stri : String;



Constructors


constructor Create(AOwner: TComponent);

*****************************************************************************


Functions


Destructor Destroy;

RANDOMIZE; IF RANDOM(5)=0 THEN SHOWMESSAGE('Bianchini Marco'+#13+'E-Mail bianco@arcanet.it');


FUNCTION EXECUTE:BOOLEAN;

METHODS


FUNCTION FILLCIRCLE(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;


FUNCTION FILLRECT(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;

FUNCTION CIRCLE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;

FUNCTION TBIANCOLOCK.CIRCLE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;


FUNCTION LINE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;

DRAWING METHODS

DRAWING METHODS


FUNCTION PSET(X,Y:INTEGER):BOOLEAN;


FUNCTION RECT(X1,Y1,X2,Y2:INTEGER):BOOLEAN;


PROCEDURE UNEXECUTE;

NOTHING TO DO


FUNCTION Write(X1,Y1:INTEGER;S:String):BOOLEAN;


FUNCTION CAPTUREIMAGE:TBITMAP;

PROCEDURE CAPTUREIMAGE(IMAGE1:TIMAGE);

INTERNAL PROCEDURES


PROCEDURE DO_CI;

FILL WITH RECTANGLES


PROCEDURE DO_HL;

FILL WITH VERTICAAL GRID


PROCEDURE DO_P;

...


PROCEDURE DO_RE;

FILL WITH VERTICAAL LINES


Procedure DO_te;

FILL WITH PIXELS


PROCEDURE DO_VG;

Nothing to do FILL WITH Text


PROCEDURE DO_VL;

FILL WITH HORIZONTAL LINES


Properties


property Color : TCOLOR


property DeltaX : INTEGER


property DeltaY : INTEGER


property Font : TFont


property Style : TFILLSTYLE


property Text : String


Events


Variables


COL : TCOLOR;


DX : INTEGER;


DY : INTEGER;


F : TFORM;


fnt : TFont;


GS : TFILLSTYLE;


I : TIMAGE;


ScreenDC : HDC;


Stri : String;