Class TRkDBReadOnlyGrid (unit RkROGrid) |
Inherits from
TCustomPanel
constructor Create( AOwner : TComponent );
- ===============================} {== TRkDBReadOnlyGrid Methods ==} {===============================
destructor Destroy;
procedure CreateParams( var Params : TCreateParams );
Create the data link
procedure CreateWnd;
Instruct Windows to display a vertical and horizontal scroll bar
procedure Paint;
Request that the data link's internal buffer be set to the number of rows currently visible in the grid.
procedure Resize;
Must take into account the header cells and the horizontal scroll bar when determining the number of visible rows.
function VisibleRows : Integer;
procedure CMFontChanged( var Msg : TMessage );
Calculate the row height using the height of the current font plus extra space to accommodate the grid lines.
procedure DataChanged;
function GetDataSource : TDataSource;
Don't forget to release the data link
procedure SetDataSource( Value : TDataSource );
procedure UpdateBufferCount;
The current record has been changed, adjust the vertical scroll bar.
procedure UpdateHorzScrollBar;
procedure UpdateRowHeight;
procedure UpdateVertScrollBar;
= TRkDBReadOnlyGrid.
procedure WMHScroll( var Msg : TWMHScroll );
procedure WMVScroll( var Msg : TWMVScroll );
property About : TRkAboutInfo
property Align :
Inherited properties and events
property Color :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FBitmap : TBitmap;
FColStart : Integer;
FDataLink : TRkROGridDataLink;
FRowHeight : Integer;
constructor Create( AOwner : TComponent );
===============================} {== TRkDBReadOnlyGrid Methods ==} {===============================
destructor Destroy;
procedure CreateParams( var Params : TCreateParams );
Create the data link
procedure CreateWnd;
Instruct Windows to display a vertical and horizontal scroll bar
procedure Paint;
Request that the data link's internal buffer be set to the number of rows currently visible in the grid.
procedure Resize;
Must take into account the header cells and the horizontal scroll bar when determining the number of visible rows.
function VisibleRows : Integer;
procedure CMFontChanged( var Msg : TMessage );
Calculate the row height using the height of the current font plus extra space to accommodate the grid lines.
procedure DataChanged;
function GetDataSource : TDataSource;
Don't forget to release the data link
procedure SetDataSource( Value : TDataSource );
procedure UpdateBufferCount;
The current record has been changed, adjust the vertical scroll bar.
procedure UpdateHorzScrollBar;
procedure UpdateRowHeight;
procedure UpdateVertScrollBar;
= TRkDBReadOnlyGrid.Paint =
procedure WMHScroll( var Msg : TWMHScroll );
procedure WMVScroll( var Msg : TWMVScroll );
property About : TRkAboutInfo
property Align :
Inherited properties and events
property Color :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FBitmap : TBitmap;
FColStart : Integer;
FDataLink : TRkROGridDataLink;
FRowHeight : Integer;