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

Constructors



Functions

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


Properties

Events

Variables

DataSource1 : TDataSource;


DBNavigator1 : TDBNavigator;


NSDBGrid1 : TNSDBGrid;


PanelGrid : TPanel;


PanelScroll : TPanel;


PanelTop : TPanel;


ScrollBar1 : TScrollBar;


Table1 : TTable;



Constructors


Functions


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


Properties


Events


Variables


DataSource1 : TDataSource;


DBNavigator1 : TDBNavigator;


NSDBGrid1 : TNSDBGrid;


PanelGrid : TPanel;


PanelScroll : TPanel;


PanelTop : TPanel;


ScrollBar1 : TScrollBar;


Table1 : TTable;