| Class TPointPanel (unit pntpanel) |
TCustomPanel
| Constructors |
constructor Create(AnOwner: TComponent);| Functions |
procedure CtrlStyleChanged(Sender: TObject);
destructor Destroy;
function GetPoint(Index: Integer): TPoint;
procedure Paint;
procedure SetDataBrush(value : TBrush);
procedure SetDataPen(value : TPen);
procedure SetHorzUnit(AValue: Integer);
procedure SetPoint(Index: Integer;
APoint: TPoint);
procedure SetVertUnit(AValue: Integer);| Properties |
property BevelInner :
property BevelOuter :
property Borderstyle :
property Borderwidth :
property Color :
property DataBrush : TBrush
property DataPen : TPen
property Parentcolor :
property UnitHorizontal : Integer
property UnitVertical : Integer
property Points : TPoint| Events |
| Variables |
FDataBrush : TBrush;
FDataPen : TPen;
FHorzUnit : Integer;
FPoints : array[0..MaxTPoints-1] of TPoint;
FVertUnit : Integer;| Constructors |
constructor Create(AnOwner: TComponent);Public declarations
| Functions |
procedure CtrlStyleChanged(Sender: TObject);
destructor Destroy;create
function GetPoint(Index: Integer): TPoint;Protected declarations
procedure Paint;SetVertUnit
procedure SetDataBrush(value : TBrush);force to repaint so soon as possible
procedure SetDataPen(value : TPen);
procedure SetHorzUnit(AValue: Integer);SetPoint
procedure SetPoint(Index: Integer;
APoint: TPoint);GetPoint
procedure SetVertUnit(AValue: Integer);SetHorzUnit
| Properties |
property BevelInner : enherited properties
property BevelOuter :
property Borderstyle :
property Borderwidth :
property Color :
property DataBrush : TBrushPublished declarations } { own properties
property DataPen : TPen
property Parentcolor :
property UnitHorizontal : Integer
property UnitVertical : Integer
property Points : TPoint| Events |
| Variables |
FDataBrush : TBrush;
FDataPen : TPen;Private declarations
FHorzUnit : Integer;
FPoints : array[0..MaxTPoints-1] of TPoint;
FVertUnit : Integer;