Class TForm1 (unit Tnsgridu) |
Inherits from
TForm
Example of using a self-controlled scrollbar with a NoScrollDBGrid.
Author: Tommy Ericson, email: teit@pi.se
Date: 1996-09-19
procedure DataSource1DataChange(Sender: TObject; Field: TField);
Make sure the ScrollBar matches the panel size
procedure FormShow(Sender: TObject);
procedure PanelGridResize(Sender: TObject);
not required as far as I can see
procedure PanelScrollResize(Sender: TObject);
This need only be done once, e.
procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
DataSource1 : TDataSource;
DBNavigator1 : TDBNavigator;
NSDBGrid1 : TNSDBGrid;
PanelGrid : TPanel;
PanelScroll : TPanel;
PanelTop : TPanel;
ScrollBar1 : TScrollBar;
Table1 : TTable;
procedure DataSource1DataChange(Sender: TObject; Field: TField);
Make sure the ScrollBar matches the panel size
procedure FormShow(Sender: TObject);
procedure PanelGridResize(Sender: TObject);
not required as far as I can see
procedure PanelScrollResize(Sender: TObject);
This need only be done once, e.g. in the IDE or FormCreate()
procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
DataSource1 : TDataSource;
DBNavigator1 : TDBNavigator;
NSDBGrid1 : TNSDBGrid;
PanelGrid : TPanel;
PanelScroll : TPanel;
PanelTop : TPanel;
ScrollBar1 : TScrollBar;
Table1 : TTable;