| Class TRkDBReadOnlyGrid (unit RkROGrid) |
TCustomPanel
| Constructors |
constructor Create( AOwner : TComponent );| Functions |
destructor Destroy;
procedure CreateParams( var Params : TCreateParams );
procedure CreateWnd;
procedure Paint;
procedure Resize;
function VisibleRows : Integer;
procedure CMFontChanged( var Msg : TMessage );
procedure DataChanged;
function GetDataSource : TDataSource;
procedure SetDataSource( Value : TDataSource );
procedure UpdateBufferCount;
procedure UpdateHorzScrollBar;
procedure UpdateRowHeight;
procedure UpdateVertScrollBar;
procedure WMHScroll( var Msg : TWMHScroll );
procedure WMVScroll( var Msg : TWMVScroll );| Properties |
property About : TRkAboutInfo
property Align :
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 : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag : | Variables |
FAboutInfo : TRkAboutInfo;
FBitmap : TBitmap;
FColStart : Integer;
FDataLink : TRkROGridDataLink;
FRowHeight : Integer;| Constructors |
constructor Create( AOwner : TComponent );===============================} {== TRkDBReadOnlyGrid Methods ==} {===============================
| Functions |
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 );| Properties |
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 : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag : | Variables |
FAboutInfo : TRkAboutInfo;
FBitmap : TBitmap;
FColStart : Integer;
FDataLink : TRkROGridDataLink;
FRowHeight : Integer;