Class TBiancoRect (unit T_BiancoRect) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- *****************************************************************************
PROCEDURE CAPTUREIMAGE(IMAGE1:TIMAGE);
BOOL BitBlt( HDC hdcDest, // handle of destination device context int nXDest, // x-coordinate of destination rectangle's upper-left corner int nYDest, // x-coordinate of destination rectangle's upper-left corner int nWidth, // width of destination rectangle int nHeight, // height of destination rectangle HDC hdcSrc, // handle of source device context int nXSrc, // x-coordinate of source rectangle's upper-left corner int nYSrc, // y-coordinate of source rectangle's upper-left corner DWORD dwRop // raster operation code );
procedure Delay(msecs:WORD);
destructor Destroy; virtual;
PROCEDURE DESTROYRECT;
CHANGE THE POSITION
FUNCTION EXECUTE:BOOLEAN;
DELAY MSECS MILLISECONDS THE METHOD FOR THE AUTOMATIC RECTSET THE FROM* AND TO* PROPERTY
FUNCTION MOVECONTROL(C:TCONTROL;X,Y:INTEGER):BOOLEAN;
HERE IT IS THE METHOD FOR THE AUTOMATIC RECT
PROCEDURE MOVERECT(_LEFT,_TOP:INTEGER);
Alwais TForm
PROCEDURE SHOWRECT(_LEFT,_TOP:INTEGER);
3 METHODS FOR THE MANUAL RECT THIS IS 3 METHODS TO SHOW, MOVE AND HIDE THE MANUAL RECT
PROCEDURE EXECUTE_DIRECT;
DELTAXY TRANSLATION AND CURRENT RECT INTERNAL PROCEDURESTHE OTHER RECT CANNOT BE VISIBLE
PROCEDURE EXECUTE_XY;
DELETE THE RECT
PROCEDURE EXECUTE_YX;
DOPPIO DELTA PERCHE' META' LOOP
PROCEDURE SET_ERRORE(VALUE:INTEGER);
IT DOESN'T DO ANITHING.
PROCEDURE SET_H(VALUE:INTEGER);
SET THE WIDTH
PROCEDURE SET_SCREEN(VALUE:TSCREENRIFERIMENT);
NOTHING TO DO.
PROCEDURE SET_W(VALUE:INTEGER);
SET WIDTH AND HEIGHTSETTING THE PROPERTIES.
property AutomationStyle : TAutomationType
property FromBottom : INTEGER
property FromLeft : INTEGER
property FromRight : INTEGER
property FromTop : INTEGER
PROPERTY PER AUTOMATIC RECT
property Interval : WORD
property LastError : INTEGER
ALWAIS ACTIVE
property ManualRectHeight : INTEGER
property ManualRectWidth : INTEGER
PROPERTY PER MANUAL RECT
property NumberOfRect : INTEGER
property ScreenRiferiment : TScreenRiferiment
property ShowTrail : BOOLEAN
property ToBottom : INTEGER
property ToLeft : INTEGER
property ToRight : INTEGER
property ToTop : INTEGER
Auto : TAutomationType;
DELTA : ARRAY[1..4] OF DOUBLE;
NUMERO DI RECT.
ERRORE : INTEGER;
TOP,LEFT,BOTTOM,RIGHT DI PARTENZA E ARRIVO
FT : ARRAY[1..2,1..4] OF INTEGER;
INTERV : WORD;
LASTLEFT : INTEGER;
LASTTOP : INTEGER;
NUM_T : INTEGER;
VEDI LA SCIA
POSIT : ARRAY[1..4] OF DOUBLE;
REC : TRECT;
Rife : TScreenRiferiment;
ScreenDC : HDC;
TRAIL : BOOLEAN;
VIS : BOOLEAN;
WIDTH,HEIGHT OF THE RECT
_H : INTEGER;
_W : INTEGER;
constructor Create(AOwner: TComponent);
*****************************************************************************
PROCEDURE CAPTUREIMAGE(IMAGE1:TIMAGE);
BOOL BitBlt( HDC hdcDest, // handle of destination device context int nXDest, // x-coordinate of destination rectangle's upper-left corner int nYDest, // x-coordinate of destination rectangle's upper-left corner int nWidth, // width of destination rectangle int nHeight, // height of destination rectangle HDC hdcSrc, // handle of source device context int nXSrc, // x-coordinate of source rectangle's upper-left corner int nYSrc, // y-coordinate of source rectangle's upper-left corner DWORD dwRop // raster operation code );
procedure Delay(msecs:WORD);
destructor Destroy; virtual;
PROCEDURE DESTROYRECT;
CHANGE THE POSITION
FUNCTION EXECUTE:BOOLEAN;
DELAY MSECS MILLISECONDS THE METHOD FOR THE AUTOMATIC RECT
SET THE FROM* AND TO* PROPERTY
FUNCTION MOVECONTROL(C:TCONTROL;X,Y:INTEGER):BOOLEAN;
HERE IT IS THE METHOD FOR THE AUTOMATIC RECT
PROCEDURE MOVERECT(_LEFT,_TOP:INTEGER);
Alwais TForm
PROCEDURE SHOWRECT(_LEFT,_TOP:INTEGER);
3 METHODS FOR THE MANUAL RECT
THIS IS 3 METHODS TO SHOW, MOVE AND HIDE THE MANUAL RECT
PROCEDURE EXECUTE_DIRECT;
DELTAXY TRANSLATION AND CURRENT RECT INTERNAL PROCEDURES
THE OTHER RECT CANNOT BE VISIBLE
PROCEDURE EXECUTE_XY;
DELETE THE RECT
PROCEDURE EXECUTE_YX;
DOPPIO DELTA PERCHE' META' LOOP
PROCEDURE SET_ERRORE(VALUE:INTEGER);
IT DOESN'T DO ANITHING...
...
PROCEDURE SET_H(VALUE:INTEGER);
SET THE WIDTH
PROCEDURE SET_SCREEN(VALUE:TSCREENRIFERIMENT);
NOTHING TO DO...
CODE DESCRIPTION
0 ALL RIGHT.
1 THE MANUAL RECT IS ALREDY VISIBLE.
2 THE MANUAL RECT IS NOT VISIBLE.
3 YOU CAN NOT CHANGE THE SCREEN RIFERIMENT WHILE MANUAL RECT IS VISIBLE
PROCEDURE SET_W(VALUE:INTEGER);
SET WIDTH AND HEIGHT
SETTING THE PROPERTIES...
property AutomationStyle : TAutomationType
property FromBottom : INTEGER
property FromLeft : INTEGER
property FromRight : INTEGER
property FromTop : INTEGER
PROPERTY PER AUTOMATIC RECT
property Interval : WORD
property LastError : INTEGER
ALWAIS ACTIVE
property ManualRectHeight : INTEGER
property ManualRectWidth : INTEGER
PROPERTY PER MANUAL RECT
property NumberOfRect : INTEGER
property ScreenRiferiment : TScreenRiferiment
property ShowTrail : BOOLEAN
property ToBottom : INTEGER
property ToLeft : INTEGER
property ToRight : INTEGER
property ToTop : INTEGER
Auto : TAutomationType;
DELTA : ARRAY[1..4] OF DOUBLE;
NUMERO DI RECT.
ERRORE : INTEGER;
TOP,LEFT,BOTTOM,RIGHT DI PARTENZA E ARRIVO
FT : ARRAY[1..2,1..4] OF INTEGER;
INTERV : WORD;
LASTLEFT : INTEGER;
LASTTOP : INTEGER;
NUM_T : INTEGER;
VEDI LA SCIA
POSIT : ARRAY[1..4] OF DOUBLE;
REC : TRECT;
Rife : TScreenRiferiment;
ScreenDC : HDC;
TRAIL : BOOLEAN;
VIS : BOOLEAN;
WIDTH,HEIGHT OF THE RECT
_H : INTEGER;
_W : INTEGER;