| Class TanlRuler (unit anlRuler) |
TCustomControl
TanlRuler
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
procedure DecreaseIndent;
destructor Destroy;
procedure IncreaseIndent;
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 DrawFocusline(x1,y1,x2,y2 : longint);
Procedure DrawGhostIndent (ind :TindentID);
Function GetIndentFirst : Integer;
Function GetIndentLeft : Integer;
Function GetIndentRight : Integer;
procedure IndentDblClick(Sender: TObject);
procedure IndentMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure IndentMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure IndentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure IndentPaint(Sender: TObject);
Procedure MoveFocusline(OldOfs,NewOfs : longint);
Procedure PrepareIndents;
procedure SetBorderDown (Value : Integer);
procedure SetBorderLeft (Value : Integer);
procedure SetBorderRight(Value : Integer);
procedure SetBorderUp (Value : Integer);
procedure SetFactor (Value : TRulerFactor);
procedure SetIndentFirst (Value : Integer);
procedure SetIndentLeft (Value : Integer);
procedure SetIndentRight (Value : Integer);
procedure SetMarginLeft (Value : Integer);
procedure SetMarginRight(Value : Integer);
procedure SetRichedit (Value : TCustomRichedit);
procedure SetShowIndents (Value : boolean);
procedure SetShowLargeLines(Value : boolean);
procedure SetShowMargHandl (Value : boolean);
procedure SetShowNumbers (Value : boolean);
procedure SetShowSmallLines(Value : boolean);
procedure SetTabDist (Value : TRulerTabdist);| Properties |
property Align :
property BorderDown : Integer
property BorderLeft : Integer
property BorderRight : Integer
property BorderUp : Integer
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Factor : TRulerFactor
property Font :
property IndentFirst : Integer
property IndentLeft : Integer
property IndentRight : Integer
property MarginLeft : Integer
property MarginRight : Integer
property MinIndentDist : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Richedit : TCustomRichedit
property RulerTab : TRulerTab
property ShowIndents : Boolean
property ShowLargeLines : Boolean
property ShowMarginHandlers : Boolean
property ShowNumbers : Boolean
property ShowSmallLines : Boolean
property TabDist : TRulerTabdist
property Visible :
property Canvas : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnIndentChange : TIndentEvent
event OnIndentClick : TIndentEvent
event OnIndentDblClick : TIndentEvent
event OnIndentDrag : TIndentEvent
event OnMarginChange : TMarginEvent
event OnMarginClick : TMarginEvent
event OnMarginDrag : TMarginEvent
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderDown : integer;
FBorderLeft : integer;
FBorderRight : integer;
FBorderUp : integer;
FDist : TRulerTabdist;
FDragging : boolean;
FDraggingLeft : boolean;
FDraggingRight : boolean;
FDragOfs : Integer;
FFact : TRulerFactor;
Fhdc : HDC;
FImgBothLeftIndent : Tpaintbox;
FImgFirstIndent : Tpaintbox;
FImgLeftIndent : Tpaintbox;
FImgRightIndent : Tpaintbox;
FIndDblClicked : boolean;
FMarginLeft : integer;
FMarginRight : integer;
FMinIndentDist : integer;
Fnewpen : Hpen;
FOnChangeIndent : TIndentEvent;
FOnChangeMargin : TMarginEvent;
FOnChangingIndent : TIndentEvent;
FOnChangingMargin : TMarginEvent;
FOnClickIndent : TIndentEvent;
FOnClickMargin : TMarginEvent;
FOnDblClickIndent : TIndentEvent;
Frichedit : TcustomRichedit;
FRulerTab : TRulerTab;
FShowIndents : boolean;
FShowLargeLines : boolean;
FShowMargHandl : boolean;
FShowNumbers : boolean;
FShowSmallLines : boolean;| Constructors |
constructor Create(AOwner : TComponent);| Functions |
procedure DecreaseIndent;
destructor Destroy;FImgBothLeftIndent.Hint := 'Left Indent'; FImgBothLeftIndent.ParentShowHint := true;
procedure IncreaseIndent;
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 DrawFocusline(x1,y1,x2,y2 : longint);
Procedure DrawGhostIndent (ind :TindentID);
Function GetIndentFirst : Integer;
Function GetIndentLeft : Integer;
Function GetIndentRight : Integer;
procedure IndentDblClick(Sender: TObject);
procedure IndentMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure IndentMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure IndentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure IndentPaint(Sender: TObject);
Procedure MoveFocusline(OldOfs,NewOfs : longint);
Procedure PrepareIndents;
procedure SetBorderDown (Value : Integer);
procedure SetBorderLeft (Value : Integer);
procedure SetBorderRight(Value : Integer);
procedure SetBorderUp (Value : Integer);
procedure SetFactor (Value : TRulerFactor);
procedure SetIndentFirst (Value : Integer);
procedure SetIndentLeft (Value : Integer);
procedure SetIndentRight (Value : Integer);
procedure SetMarginLeft (Value : Integer);
procedure SetMarginRight(Value : Integer);
procedure SetRichedit (Value : TCustomRichedit);
procedure SetShowIndents (Value : boolean);
procedure SetShowLargeLines(Value : boolean);
procedure SetShowMargHandl (Value : boolean);
procedure SetShowNumbers (Value : boolean);
procedure SetShowSmallLines(Value : boolean);
procedure SetTabDist (Value : TRulerTabdist);Draw Margin Handlers
| Properties |
property Align :
property BorderDown : Integer
property BorderLeft : Integer
property BorderRight : Integer
property BorderUp : Integer
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Factor : TRulerFactor
property Font :
property IndentFirst : Integer
property IndentLeft : Integer
property IndentRight : Integer
property MarginLeft : Integer
property MarginRight : Integer
property MinIndentDist : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Richedit : TCustomRichedit
property RulerTab : TRulerTab
property ShowIndents : Boolean
property ShowLargeLines : Boolean
property ShowMarginHandlers : Boolean
property ShowNumbers : Boolean
property ShowSmallLines : Boolean
property TabDist : TRulerTabdist
property Visible : property ShowHint;
property Canvas : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnIndentChange : TIndentEvent
event OnIndentClick : TIndentEvent
event OnIndentDblClick : TIndentEvent
event OnIndentDrag : TIndentEvent
event OnMarginChange : TMarginEvent
event OnMarginClick : TMarginEvent
event OnMarginDrag : TMarginEvent
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderDown : integer;
FBorderLeft : integer;
FBorderRight : integer;
FBorderUp : integer;
FDist : TRulerTabdist;
FDragging : boolean;
FDraggingLeft : boolean;
FDraggingRight : boolean;
FDragOfs : Integer;
FFact : TRulerFactor;
Fhdc : HDC;
FImgBothLeftIndent : Tpaintbox;
FImgFirstIndent : Tpaintbox;
FImgLeftIndent : Tpaintbox;
FImgRightIndent : Tpaintbox;
FIndDblClicked : boolean;
FMarginLeft : integer;
FMarginRight : integer;
FMinIndentDist : integer;
Fnewpen : Hpen;
FOnChangeIndent : TIndentEvent;
FOnChangeMargin : TMarginEvent;
FOnChangingIndent : TIndentEvent;
FOnChangingMargin : TMarginEvent;
FOnClickIndent : TIndentEvent;
FOnClickMargin : TMarginEvent;
FOnDblClickIndent : TIndentEvent;
Frichedit : TcustomRichedit;
FRulerTab : TRulerTab;
FShowIndents : boolean;
FShowLargeLines : boolean;
FShowMargHandl : boolean;
FShowNumbers : boolean;
FShowSmallLines : boolean;