Class TBiancoRect (unit T_BiancoRect)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

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


Functions

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.

PROCEDURE SET_W(VALUE:INTEGER);

SET WIDTH AND HEIGHT

SETTING THE PROPERTIES.


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


Events

Variables

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;



Constructors


constructor Create(AOwner: TComponent);

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


Functions


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...


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


Events


Variables


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;