| Class TGridWithRuler (unit gwrlr) |
TStringGrid
Grid With Ruler ////////////////////////////////////
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Click;restore an old Brush, Pen and Font
procedure Paint;
procedure DrawRuler;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 private properties
procedure SetHRulerBkColor(RlrBkColor:TColor);
procedure SetHRulerBkStyle(RlrBkStyle:TBrushStyle);
procedure SetHRulerColor(RlrColor:TColor);
procedure SetHRulerWidth(RlrWidth:Byte);
procedure SetVRuler(Rlr:Boolean);VRuler private properties
procedure SetVRulerBkColor(RlrBkColor:TColor);
procedure SetVRulerBkStyle(RlrBkStyle:TBrushStyle);
procedure SetVRulerColor(RlrColor:TColor);
procedure SetVRulerWidth(RlrWidth:Byte);| Properties |
property HRuler : Boolean
property HRulerBkColor : TColor
property HRulerBkStyle : TBrushStyle
property HRulerColor : TColor
property HRulerWidth : Byte
property VRuler : Boolean
property VRulerBkColor : TColor
property VRulerBkStyle : TBrushStyle
property VRulerColor : TColor
property VRulerWidth : Byte| Events |
| Variables |
FHRuler : Boolean;
FHRulerBkColor : TColor;
FHRulerBkStyle : TBrushStyle;
FHRulerColor : TColor;
FHRulerWidth : Byte;
FVRuler : Boolean;
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 : BooleanPublished declarations } // HRuler
property HRulerBkColor : TColor
property HRulerBkStyle : TBrushStyle
property HRulerColor : TColor
property HRulerWidth : Byte
property VRuler : BooleanVRuler
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;