| Class TScale (unit RRScales) |
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;
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;
FMinScaleLineDistance : TMinScaleLineDistance;
FMinTextDistance : Integer;
FOnChange : TNotifyEvent;
FShowAxis : Boolean;
FStartPoint : TPoint;
FStartValue : Extended;
FTextHeight : Integer;
FTextPos : TScaleTextPos;
FUpdateCount : Integer;
FValueStep : Extended;
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;