Author  Bianchini Marco (bianco@arcanet.it)
Date    20/09/97
Version 1.0

TBiancoLock is a invisible component that can lock the Win95 DeskTop.
While it is locked, you can draw on it.

Properties:

 Property Style:TFillStyle;
  The fille style property may be: fsNone,fsPixel,
   fsGrid,fsHorizontaalLine,fsVerticaalLine,fsRectangle,fsEllipse.

 Property DeltaX and DeltaY:Integer;
  The distance beetween two pixels,or 2 lines

 Property Color:TColor;
  The color used to draw;

Methods:

 Function Execute:Boolean;
  This is the main method to call.
  It lock the desktop and automatically fill it.
  It return False if the Desktop is already locked.
  After calling this method, you can manually draw on the desktop
  calling these methods:
 
   Function Line(X1,Y1,X2,Y2:Integer):Boolean;
    Draw a line from [X1,Y1] to [X2,Y2] on the desktop.

   Function PSet(X,Y:Integer):Boolean;
    Set the color of the [X,Y] pixel in the desktop.
   
   Function Rect(X1,Y1,X2,Y2:Integer):Boolean;
    Draw a rectangle on the desktop with its upper left corner at the point 
    [X1, Y1] and its lower right corner at the point [X2, Y2]. 
    It use the brush.color property=trasparent and pen.color = Color Property.

   Function FillRect(X1,Y1,X2,Y2:Integer;FC:TColor):Boolean;
    Like the Rect Method, but the brush.color property =FC.

   Function FillCircle(X1,Y1,X2,Y2:Integer;FC:TColor):Boolean;
    This method draws an ellipse defined by a bounding rectangle on the desktop. 
    The top left point of the bounding rectangle is at pixel coordinates [X1, Y1]
    and the bottom right point is at [X2, Y2]. 
    If the points of the rectangle form a square, a circle is drawn.
    It use the brush.color property=FC and pen.color = Color Property.

   Note:
    These 5 Methods return true if the desktop is locked, else False and they do not draw.

 Procedure UnExecute;
  After calling the execute method, you must call this method
  do free memory and unlock the desktop.


