Class TGridWithRuler (unit gwrlr) |
Inherits from
TStringGrid
Grid With Ruler ////////////////////////////////////
constructor Create(AOwner: TComponent);
- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++ Grid With Ruler implementation ++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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);
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
FHRuler : Boolean;
Private declarations } // HRuler
FHRulerBkColor : TColor;
FHRulerBkStyle : TBrushStyle;
FHRulerColor : TColor;
FHRulerWidth : Byte;
FVRuler : Boolean;
VRuler
FVRulerBkColor : TColor;
FVRulerBkStyle : TBrushStyle;
FVRulerColor : TColor;
FVRulerWidth : Byte;
constructor Create(AOwner: TComponent);
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++ Grid With Ruler implementation ++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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);
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
FHRuler : Boolean;
Private declarations } // HRuler
FHRulerBkColor : TColor;
FHRulerBkStyle : TBrushStyle;
FHRulerColor : TColor;
FHRulerWidth : Byte;
FVRuler : Boolean;
VRuler
FVRulerBkColor : TColor;
FVRulerBkStyle : TBrushStyle;
FVRulerColor : TColor;
FVRulerWidth : Byte;