Class TDBGridWithRuler (unit gwrlr)

Inherits from

TDBGrid

DBGrid With Ruler ////////////////////////////////////

Constructors


constructor Create(AOwner: TComponent);

------------------------------------------------------------------------} {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++ Data Aware DBGrid With Ruler implementation ++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Functions

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);


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);

------------------------------------------------------------------------} {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++ Data Aware DBGrid With Ruler implementation ++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Functions


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);


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;