Class THole (unit Hole)

Inherits from

TGraphicControl

Constructors


constructor Create(Aowner: TComponent);

---------------------------------


Functions

destructor Destroy;


procedure ClippingOff;


procedure ClippingOn;

--------------------------------------

procedure Paint;

--------------------------------------

procedure CreateData;

------------------------------------} { Create the point set } {------------------------------------

function gRand(lbound, hbound: integer):integer;

if

procedure SetBackColor(c: TColor);

if

procedure SetEdgeColor(c: TColor);

if

procedure SetEdgeDirection(e: TEdgeDirection);

draw outlines around regions } { have to use API as opposed to TCanvas methods here because } { TCanvas methods don't let us speicfy # of points

procedure SetEdgeWidth(i: integer);

if

procedure SetHoleColor(c: TColor);

if

procedure SetHoleShape(e: THoleShape);

if

procedure SetOutlineColor(c: TColor);

if

procedure SetPoints(i: integer);

if

procedure WndProc(var aMessage: TMessage);

trap for resize

Properties

property BackColor : TColor


property EdgeColor : TColor


property EdgeDirection : TEdgeDirection


property EdgeWidth : integer


property HoleColor : TColor


property HoleShape : THoleShape


property OutlineColor : TColor


property Points : integer


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

aBox : array[0..MAXPoints-1] of TPoint;


aClip : array[0..MAXPoints-1] of TPoint;


FBackColor : TColor;


FEdgeColor : TColor;


FEdgeDirection : TEdgeDirection;


FEdgeWidth : integer;


FHoleColor : TColor;


FHoleShape : THoleShape;


FOutlineColor : TColor;


FPoints : integer;


hRgnBox : hRgn;


hRgnClip : hRgn;


hRgnComb : hRgn;



Constructors


constructor Create(Aowner: TComponent);

---------------------------------


Functions


destructor Destroy;


procedure ClippingOff;


procedure ClippingOn;

--------------------------------------


procedure Paint;

--------------------------------------


procedure CreateData;

------------------------------------} { Create the point set } {------------------------------------


function gRand(lbound, hbound: integer):integer;

if


procedure SetBackColor(c: TColor);

if


procedure SetEdgeColor(c: TColor);

if


procedure SetEdgeDirection(e: TEdgeDirection);

draw outlines around regions } { have to use API as opposed to TCanvas methods here because } { TCanvas methods don't let us speicfy # of points


procedure SetEdgeWidth(i: integer);

if


procedure SetHoleColor(c: TColor);

if


procedure SetHoleShape(e: THoleShape);

if


procedure SetOutlineColor(c: TColor);

if


procedure SetPoints(i: integer);

if


procedure WndProc(var aMessage: TMessage);

trap for resize


Properties


property BackColor : TColor


property EdgeColor : TColor


property EdgeDirection : TEdgeDirection


property EdgeWidth : integer


property HoleColor : TColor


property HoleShape : THoleShape


property OutlineColor : TColor


property Points : integer


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


aBox : array[0..MAXPoints-1] of TPoint;


aClip : array[0..MAXPoints-1] of TPoint;


FBackColor : TColor;


FEdgeColor : TColor;


FEdgeDirection : TEdgeDirection;


FEdgeWidth : integer;


FHoleColor : TColor;


FHoleShape : THoleShape;


FOutlineColor : TColor;


FPoints : integer;


hRgnBox : hRgn;


hRgnClip : hRgn;


hRgnComb : hRgn;