Class TfrmGrid32 (unit main32) |
Inherits from
TForm
procedure btnPreviewClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
We only enable the field list when the rbSelectFields button is set
procedure rbAllFieldsClick(Sender: TObject);
dup function from qrexta, used to guess the maximum width of a field
procedure rgRecordsClick(Sender: TObject);
Call the field selection event to initialize the values
btnPreview : TButton;
cBoxArea : TCheckBox;
cBoxGroupByContininent : TCheckBox;
cBoxPopulation : TCheckBox;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
dstbCountry : TDataSource;
GroupBoxFields : TGroupBox;
GroupBoxGroups : TGroupBox;
GroupBoxSummary : TGroupBox;
ListBoxFields : TListBox;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
qryCountry : TQuery;
qryCountryArea : TFloatField;
qryCountryCapital : TStringField;
qryCountryContinent : TStringField;
qryCountryName : TStringField;
qryCountryPopulation : TFloatField;
rbAllFields : TRadioButton;
rbSelectFields : TRadioButton;
rgRecords : TRadioGroup;
procedure btnPreviewClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
We only enable the field list when the rbSelectFields button is set
procedure rbAllFieldsClick(Sender: TObject);
dup function from qrexta, used to guess the maximum width of a field
procedure rgRecordsClick(Sender: TObject);
Call the field selection event to initialize the values
btnPreview : TButton;
cBoxArea : TCheckBox;
cBoxGroupByContininent : TCheckBox;
cBoxPopulation : TCheckBox;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
dstbCountry : TDataSource;
GroupBoxFields : TGroupBox;
GroupBoxGroups : TGroupBox;
GroupBoxSummary : TGroupBox;
ListBoxFields : TListBox;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
qryCountry : TQuery;
qryCountryArea : TFloatField;
qryCountryCapital : TStringField;
qryCountryContinent : TStringField;
qryCountryName : TStringField;
qryCountryPopulation : TFloatField;
rbAllFields : TRadioButton;
rbSelectFields : TRadioButton;
rgRecords : TRadioGroup;