Class TRuler (unit Ruler)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TickAlign = taTopRight

procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetCaption(ACaption: String);


procedure SetCaptionAlign(AnAlign: TCaptionAlign);


procedure SetCaptionIndent1(AnIndent: Integer);


procedure SetCaptionIndent2(AnIndent: Integer);


procedure SetColor(AColor: TColor);


procedure SetFont(AFont: TFont);


procedure SetFontRotation(AFontRot: TFontRotation);


procedure SetNumberAlign(ANumAlign: TNumberAlign);


procedure SetNumberIndent(AnIndent: Integer);


procedure SetOrientation(AnOrientation: TOrientation);


procedure SetStartValue(AStartVal: Double);

do nothing if the same

procedure SetSzBig(ASize: Integer);

do nothing if the same

procedure SetSzMiddle(ASize: Integer);


procedure SetSzSmall(ASize: Integer);


procedure SetTickAlign(ATickAlign: TTickAlign);


procedure SetUnitPrecision(APrecision: Integer);


procedure SetUnitPrice(AUnitPrice: Double);


procedure SetUnitSize(AUnitSize: Double);


Properties

property Align :


property Caption : String


property CaptionAlign : TCaptionAlign


property CaptionIndent1 : Integer


property CaptionIndent2 : Integer


property Color : TColor


property Enabled :


property EnableRepaint : Boolean


property Font : TFont


property FontRotation : TFontRotation


property Hint :


property NumberAlign : TNumberAlign


property NumberIndent : Integer


property Orientation : TOrientation


property ParentShowHint :


property RollEnabled : Boolean


property RollLimits : TValRange


property StartValue : Double


property TickAlign : TTickAlign


property TickColor : TColor


property TickSizeBig : Integer


property TickSizeMiddle : Integer


property TickSizeSmall : Integer


property UnitPrecision : Integer


property UnitPrice : Double


property UnitSize : Double


Events

event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FCaption : String;


FCaptionAlign : TCaptionAlign;


FCaptionIndent1 : Integer;


FCaptionIndent2 : Integer;


FColor : TColor;


FEnableRepaint : Boolean;


FFont : TFont;


FFontRotation : TFontRotation;


FNumberAlign : TNumberAlign;


FNumberIndent : Integer;


FOrientation : TOrientation;


FRollEnabled : Boolean;


FRollLimits : TValRange;


FStartValue : Double;


FSzBig : Integer;


FSzMiddle : Integer;


FSzSmall : Integer;


FTickAlign : TTickAlign;


FTickColor : TColor;


FUnitPrecision : Integer;


FUnitPrice : Double;


FUnitSize : Double;


MousePos : Integer;


MousePressed : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TickAlign = taTopRight


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetCaption(ACaption: String);


procedure SetCaptionAlign(AnAlign: TCaptionAlign);


procedure SetCaptionIndent1(AnIndent: Integer);


procedure SetCaptionIndent2(AnIndent: Integer);


procedure SetColor(AColor: TColor);


procedure SetFont(AFont: TFont);


procedure SetFontRotation(AFontRot: TFontRotation);


procedure SetNumberAlign(ANumAlign: TNumberAlign);


procedure SetNumberIndent(AnIndent: Integer);


procedure SetOrientation(AnOrientation: TOrientation);


procedure SetStartValue(AStartVal: Double);

do nothing if the same


procedure SetSzBig(ASize: Integer);

do nothing if the same


procedure SetSzMiddle(ASize: Integer);


procedure SetSzSmall(ASize: Integer);


procedure SetTickAlign(ATickAlign: TTickAlign);


procedure SetUnitPrecision(APrecision: Integer);


procedure SetUnitPrice(AUnitPrice: Double);


procedure SetUnitSize(AUnitSize: Double);


Properties


property Align :


property Caption : String


property CaptionAlign : TCaptionAlign


property CaptionIndent1 : Integer


property CaptionIndent2 : Integer


property Color : TColor


property Enabled :


property EnableRepaint : Boolean


property Font : TFont


property FontRotation : TFontRotation


property Hint :


property NumberAlign : TNumberAlign


property NumberIndent : Integer


property Orientation : TOrientation


property ParentShowHint :


property RollEnabled : Boolean


property RollLimits : TValRange


property StartValue : Double


property TickAlign : TTickAlign


property TickColor : TColor


property TickSizeBig : Integer


property TickSizeMiddle : Integer


property TickSizeSmall : Integer


property UnitPrecision : Integer


property UnitPrice : Double


property UnitSize : Double


Events


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FCaption : String;


FCaptionAlign : TCaptionAlign;


FCaptionIndent1 : Integer;


FCaptionIndent2 : Integer;


FColor : TColor;


FEnableRepaint : Boolean;


FFont : TFont;


FFontRotation : TFontRotation;


FNumberAlign : TNumberAlign;


FNumberIndent : Integer;


FOrientation : TOrientation;


FRollEnabled : Boolean;


FRollLimits : TValRange;


FStartValue : Double;


FSzBig : Integer;


FSzMiddle : Integer;


FSzSmall : Integer;


FTickAlign : TTickAlign;


FTickColor : TColor;


FUnitPrecision : Integer;


FUnitPrice : Double;


FUnitSize : Double;


MousePos : Integer;


MousePressed : Boolean;