Class TPointPanel (unit pntpanel)

Inherits from

TCustomPanel

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 : TBrush

Published 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;



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 : TBrush

Published 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;