Class TanlRuler (unit anlRuler)

Inherits from

TCustomControl

TanlRuler

Constructors


constructor Create(AOwner : TComponent);



Functions

procedure DecreaseIndent;


destructor Destroy;

FImgBothLeftIndent.

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;



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;