Class TDBGridWithRuler (unit gwrlr) |
Inherits from
TDBGrid
DBGrid With Ruler ////////////////////////////////////
constructor Create(AOwner: TComponent);
- ------------------------------------------------------------------------} {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++ Data Aware DBGrid With Ruler implementation ++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure Click;
Protected declarations restore an old Brush, Pen and Font
procedure Paint;
procedure DrawRuler;
common procedures set the default values for Vertical Ruler
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);
------------------------------------------------------------------------} {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++ Data Aware DBGrid With Ruler implementation ++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure Click;
Protected declarations
restore an old Brush, Pen and Font
procedure Paint;
procedure DrawRuler;
common procedures
set the default values for Vertical Ruler
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;