Class TBiancoLock (unit T_BIANCOLOCK) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- *****************************************************************************
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 METHODSDRAWING 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
property Color : TCOLOR
property DeltaX : INTEGER
property DeltaY : INTEGER
property Font : TFont
property Style : TFILLSTYLE
property Text : String
COL : TCOLOR;
DX : INTEGER;
DY : INTEGER;
F : TFORM;
fnt : TFont;
GS : TFILLSTYLE;
I : TIMAGE;
ScreenDC : HDC;
Stri : String;
constructor Create(AOwner: TComponent);
*****************************************************************************
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
property Color : TCOLOR
property DeltaX : INTEGER
property DeltaY : INTEGER
property Font : TFont
property Style : TFILLSTYLE
property Text : String
COL : TCOLOR;
DX : INTEGER;
DY : INTEGER;
F : TFORM;
fnt : TFont;
GS : TFILLSTYLE;
I : TIMAGE;
ScreenDC : HDC;
Stri : String;