Scales

TScale= Class(TPersistent)

Public

Origin: Double;

myGraph:TSGraph;

Constructor Create(aGraph:TSGraph);

Destructor done;

Procedure CalcTicks;

Procedure SetScale(newMin,newMax:Double);

Procedure Equate(Source:TScale);

Published

Property AxisMin:Double read FAxisMin Write SetAxisMin;

Property AxisMax:Double read FAxisMax Write SetAxisMax;

Property TickSpace:Double read FTickSpace Write SetTickSpace;

Property Gutter:Integer read FGutter Write SetGutter;

Property ShowGrid:Boolean read FShowGrid Write SetShowGrid;

Property AutoScale:Boolean read FAutoscale Write SetAutoScale;

Property Title:String read FTitle Write FTitle;

end;

THorzScale= class(TScale)

Procedure Paint(Canvas:TCanvas);

Function PixFromX(x:Double):Double;

Function XFromPix(pix:Double):Double;

end;

TVertScale= class(TScale)

Function PixFromY(y:Double):Double;

Function YFromPix(pix:Double):Double;

procedure Paint(Canvas:TCanvas);

end;