Class TScale (unit RRScales)

Inherits from

TPersistent

Constructors


constructor Create;



Functions

procedure Draw(ACanvas: TCanvas);


function GetMaxTextExtent: TSize;


procedure SetSection(NewStartValue, NewEndValue: Extended);


procedure Assign(Source: TPersistent);


procedure BeginUpdate;


procedure Changed;


destructor Destroy;


procedure EndUpdate;


procedure FontChange(Sender: TObject);


procedure SetVisible(Value: Boolean);


procedure Calc;


procedure ComputeValueStep;


function GetFirstGradValue: Extended;

log10(5)

function GetHeight: Integer;


function GetLastGradValue: Extended;


function GetTextExtent(S: string): TSize;


function GetWidth: Integer;


function LastGraduation(FirstGradValue: Extended): Integer;


procedure SetEndPoint(Value: TPoint);


procedure SetEndPointX(Value: Longint);


procedure SetEndPointY(Value: Longint);


procedure SetEndValue(Value: Extended);


procedure SetFirstGradValue(Value: Extended);


procedure SetFont(Value: TFont);


procedure SetMinScaleLineDistance(Value: TMinScaleLineDistance);


procedure SetStartPoint(Value: TPoint);


procedure SetStartPointX(Value: Longint);


procedure SetStartPointY(Value: Longint);


procedure SetStartValue(Value: Extended);


Properties

property EndPoint : TPoint


property EndValue : Extended


property Height : Integer


property ShowAxis : Boolean


property StartPoint : TPoint


property StartValue : Extended


property TextPosition : TScaleTextPos


property Width : Integer


property EndPointX : Longint


property EndPointY : Longint


property Font : TFont


property MinScaleLineDistance : TMinScaleLineDistance


property StartPointX : Longint


property StartPointY : Longint


property Visible : Boolean


Events

event OnChange : TNotifyEvent


Variables

FEndPoint : TPoint;


FEndValue : Extended;


FFirstGradValue : Extended;


FFirstGradX : TFixed;


FFirstGradY : TFixed;


FFont : TFont;


FFormatStr : string;


FHorzTextOffset : Integer;

in space char.

FMinScaleLineDistance : TMinScaleLineDistance;


FMinTextDistance : Integer;


FOnChange : TNotifyEvent;


FShowAxis : Boolean;


FStartPoint : TPoint;


FStartValue : Extended;


FTextHeight : Integer;


FTextPos : TScaleTextPos;


FUpdateCount : Integer;


FValueStep : Extended;

scale line to be excluded from drawing; -1: none; 0: first and so forth

FVisible : Boolean;


StepX : TFixed;


StepY : TFixed;


Vertical : boolean;


Xcept : Integer;



Constructors


constructor Create;


Functions


procedure Draw(ACanvas: TCanvas);


function GetMaxTextExtent: TSize;


procedure SetSection(NewStartValue, NewEndValue: Extended);


procedure Assign(Source: TPersistent);


procedure BeginUpdate;


procedure Changed;


destructor Destroy;


procedure EndUpdate;


procedure FontChange(Sender: TObject);


procedure SetVisible(Value: Boolean);


procedure Calc;


procedure ComputeValueStep;


function GetFirstGradValue: Extended;

log10(5)


function GetHeight: Integer;


function GetLastGradValue: Extended;


function GetTextExtent(S: string): TSize;


function GetWidth: Integer;


function LastGraduation(FirstGradValue: Extended): Integer;


procedure SetEndPoint(Value: TPoint);


procedure SetEndPointX(Value: Longint);


procedure SetEndPointY(Value: Longint);


procedure SetEndValue(Value: Extended);


procedure SetFirstGradValue(Value: Extended);


procedure SetFont(Value: TFont);


procedure SetMinScaleLineDistance(Value: TMinScaleLineDistance);


procedure SetStartPoint(Value: TPoint);


procedure SetStartPointX(Value: Longint);


procedure SetStartPointY(Value: Longint);


procedure SetStartValue(Value: Extended);


Properties


property EndPoint : TPoint


property EndValue : Extended


property Height : Integer


property ShowAxis : Boolean


property StartPoint : TPoint


property StartValue : Extended


property TextPosition : TScaleTextPos


property Width : Integer


property EndPointX : Longint


property EndPointY : Longint


property Font : TFont


property MinScaleLineDistance : TMinScaleLineDistance


property StartPointX : Longint


property StartPointY : Longint


property Visible : Boolean


Events


event OnChange : TNotifyEvent


Variables


FEndPoint : TPoint;


FEndValue : Extended;


FFirstGradValue : Extended;


FFirstGradX : TFixed;


FFirstGradY : TFixed;


FFont : TFont;


FFormatStr : string;


FHorzTextOffset : Integer;

in space char. width units


FMinScaleLineDistance : TMinScaleLineDistance;


FMinTextDistance : Integer;


FOnChange : TNotifyEvent;


FShowAxis : Boolean;


FStartPoint : TPoint;


FStartValue : Extended;


FTextHeight : Integer;


FTextPos : TScaleTextPos;


FUpdateCount : Integer;


FValueStep : Extended;

scale line to be excluded from drawing; -1: none; 0: first and so forth


FVisible : Boolean;


StepX : TFixed;


StepY : TFixed;


Vertical : boolean;


Xcept : Integer;