Inherits from
TGraphicControl
constructor Create(Aowner: TComponent);
- ---------------------------------
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
property BackColor : TColor
property EdgeColor : TColor
property EdgeDirection : TEdgeDirection
property EdgeWidth : integer
property HoleColor : TColor
property HoleShape : THoleShape
property OutlineColor : TColor
property Points : integer
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;
constructor Create(Aowner: TComponent);
---------------------------------
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
property BackColor : TColor
property EdgeColor : TColor
property EdgeDirection : TEdgeDirection
property EdgeWidth : integer
property HoleColor : TColor
property HoleShape : THoleShape
property OutlineColor : TColor
property Points : integer
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;