| Class TRuler (unit Ruler) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
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);
procedure SetSzBig(ASize: Integer);
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;