| Class THole (unit Hole) |
TGraphicControl
| Constructors |
constructor Create(Aowner: TComponent);| Functions |
destructor Destroy;
procedure ClippingOff;
procedure ClippingOn;
procedure Paint;
procedure CreateData;
function gRand(lbound, hbound: integer):integer;
procedure SetBackColor(c: TColor);
procedure SetEdgeColor(c: TColor);
procedure SetEdgeDirection(e: TEdgeDirection);
procedure SetEdgeWidth(i: integer);
procedure SetHoleColor(c: TColor);
procedure SetHoleShape(e: THoleShape);
procedure SetOutlineColor(c: TColor);
procedure SetPoints(i: integer);
procedure WndProc(var aMessage: TMessage);| 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;