| Class TBiancoLock (unit T_BIANCOLOCK) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
Destructor Destroy;
FUNCTION EXECUTE:BOOLEAN;
FUNCTION FILLCIRCLE(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;
FUNCTION FILLRECT(X1,Y1,X2,Y2:INTEGER;FC:TCOLOR):BOOLEAN;FUNCTION TBIANCOLOCK.
FUNCTION LINE(X1,Y1,X2,Y2:INTEGER):BOOLEAN;DRAWING METHODS
FUNCTION PSET(X,Y:INTEGER):BOOLEAN;
FUNCTION RECT(X1,Y1,X2,Y2:INTEGER):BOOLEAN;
PROCEDURE UNEXECUTE;
FUNCTION Write(X1,Y1:INTEGER;S:String):BOOLEAN;
FUNCTION CAPTUREIMAGE:TBITMAP;INTERNAL PROCEDURES
PROCEDURE DO_CI;
PROCEDURE DO_HL;
PROCEDURE DO_P;
PROCEDURE DO_RE;
Procedure DO_te;
PROCEDURE DO_VG;
PROCEDURE DO_VL;| 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;