Class TWPRuler
Hierarchy
System.TObject | System.Classes.TPersistent | System.Classes.TComponent | Vcl.Controls.TControl | Vcl.Controls.TWinControl | Vcl.Controls.TCustomControl | WPRuler.TWPCustomRuler | TWPRuler
Properties
Property Align : TAlign
Property Anchors : TAnchors
Property ColorBack : TColor
Property ColorBorder : TColor
Property ColorLines : TColor
Property ColorMargin : TColor
Property ColorPaper : TColor
Property ColorTableMarker : TColor
Property CurrValue[index] : Integer
Property Design : TWPRulerDesign
Property DrawOptions : TWPRulerDrawOptions
Property Enabled : Boolean
Property Height : Integer
Property Left : Integer
Property MouseX : Integer
Property MouseY : Integer
Property Options : TWPRulerOptions
Property SymbolSelection : TWPRulerSymbols
Property TabKind : TTabKind
Property Top : Integer
Property Units : TWPRulerUnit
Property VertRulerWidth : Integer
Property Visible : Boolean
Property Width : Integer
Methods
Procedure CalcItemLeft(x:Integer; y:Integer; h:Integer; Typ:TWPRulerItemType)
Function Changing(Element:TWPRulerElement) : Boolean
Procedure DeleteItem(nr:Integer)
Function ItemAtXY(x:Integer; y:Integer; IgnoreIndents:Boolean) : Integer
Procedure MouseDown(Button:TMouseButton; Shift:TShiftState; x:Integer; y:Integer)
Procedure MouseMove(Shift:TShiftState; x:Integer; y:Integer)
Procedure MouseUp(Button:TMouseButton; Shift:TShiftState; x:Integer; y:Integer)
Procedure PaintItem(nr:Integer)
Procedure PaintScale(x:Integer; y:Integer; aColorLines:TColor)
Function TheLeftMargin : Integer
Function TheRightMargin : Integer
Procedure UpdateFrom(Source:TWPRTFDataCollection; Control:TControl; par:TWPTextStyle)
Events
OnChanged : TWPRulerChangedEvent= procedure(Sender: TObject; Element: TWPRulerElement) of object;
OnChanging : TWPRulerChangingEvent= procedure(Sender: TObject; Element: TWPRulerElement; var Proceed: Boolean) of object;
OnClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnDblClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnMouseDown : TMouseEvent= TMouseEvent
OnMouseMove : TMouseMoveEvent= TMouseMoveEvent
OnMouseUp : TMouseEvent= TMouseEvent
OnPaint : TWPRulerDrawBackgroundEvent= procedure(Sender: TWPCustomRuler; toCanvas: TCanvas; DrawRec: TRect) of object;
Used or referenced by
-Property TDBWPRichText.WPRuler : TWPRuler |