Class TGridWithRuler (unit gwrlr)

Inherits from

TStringGrid

Grid With Ruler ////////////////////////////////////

Constructors


constructor Create(AOwner: TComponent);

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++ Grid With Ruler implementation ++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Functions

procedure Click;

Protected declarations

restore an old Brush, Pen and Font


procedure Paint;


procedure DrawRuler;

common procedures

I must have goEditing in Options because in readOnly Grid it sends Paint message before Click in mouseClick and draw first in clicked cell


procedure SetHRuler(Rlr:Boolean);

HRuler

HRuler private properties


procedure SetHRulerBkColor(RlrBkColor:TColor);


procedure SetHRulerBkStyle(RlrBkStyle:TBrushStyle);


procedure SetHRulerColor(RlrColor:TColor);


procedure SetHRulerWidth(RlrWidth:Byte);


procedure SetVRuler(Rlr:Boolean);

VRuler

VRuler private properties


procedure SetVRulerBkColor(RlrBkColor:TColor);


procedure SetVRulerBkStyle(RlrBkStyle:TBrushStyle);


procedure SetVRulerColor(RlrColor:TColor);


procedure SetVRulerWidth(RlrWidth:Byte);


Properties

property HRuler : Boolean

Published declarations } // HRuler

property HRulerBkColor : TColor


property HRulerBkStyle : TBrushStyle


property HRulerColor : TColor


property HRulerWidth : Byte


property VRuler : Boolean

VRuler

property VRulerBkColor : TColor


property VRulerBkStyle : TBrushStyle


property VRulerColor : TColor


property VRulerWidth : Byte


Events

Variables

FHRuler : Boolean;

Private declarations } // HRuler

FHRulerBkColor : TColor;


FHRulerBkStyle : TBrushStyle;


FHRulerColor : TColor;


FHRulerWidth : Byte;


FVRuler : Boolean;

VRuler

FVRulerBkColor : TColor;


FVRulerBkStyle : TBrushStyle;


FVRulerColor : TColor;


FVRulerWidth : Byte;



Constructors


constructor Create(AOwner: TComponent);

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++ Grid With Ruler implementation ++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Functions


procedure Click;

Protected declarations

restore an old Brush, Pen and Font


procedure Paint;


procedure DrawRuler;

common procedures

I must have goEditing in Options because in readOnly Grid it sends Paint message before Click in mouseClick and draw first in clicked cell


procedure SetHRuler(Rlr:Boolean);

HRuler

HRuler private properties


procedure SetHRulerBkColor(RlrBkColor:TColor);


procedure SetHRulerBkStyle(RlrBkStyle:TBrushStyle);


procedure SetHRulerColor(RlrColor:TColor);


procedure SetHRulerWidth(RlrWidth:Byte);


procedure SetVRuler(Rlr:Boolean);

VRuler

VRuler private properties


procedure SetVRulerBkColor(RlrBkColor:TColor);


procedure SetVRulerBkStyle(RlrBkStyle:TBrushStyle);


procedure SetVRulerColor(RlrColor:TColor);


procedure SetVRulerWidth(RlrWidth:Byte);


Properties


property HRuler : Boolean

Published declarations } // HRuler


property HRulerBkColor : TColor


property HRulerBkStyle : TBrushStyle


property HRulerColor : TColor


property HRulerWidth : Byte


property VRuler : Boolean

VRuler


property VRulerBkColor : TColor


property VRulerBkStyle : TBrushStyle


property VRulerColor : TColor


property VRulerWidth : Byte


Events


Variables


FHRuler : Boolean;

Private declarations } // HRuler


FHRulerBkColor : TColor;


FHRulerBkStyle : TBrushStyle;


FHRulerColor : TColor;


FHRulerWidth : Byte;


FVRuler : Boolean;

VRuler


FVRulerBkColor : TColor;


FVRulerBkStyle : TBrushStyle;


FVRulerColor : TColor;


FVRulerWidth : Byte;