Class TFilterDlg (unit CWFilter) |
Inherits from
TForm
procedure btnCancelClick(Sender: TObject);
cancel dialog
procedure btnFilterClick(Sender: TObject);
ok
procedure comboTabChange(Sender: TObject);
*buttons*********************************************************************} {on change, set field combo
procedure editFilterKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
*form's preferences*********************************************************} {on key down
procedure FormCreate(Sender: TObject);
on create
procedure FormDestroy(Sender: TObject);
on destroy
procedure HelpBtnClick(Sender: TObject);
help
procedure SpeedButton1Click(Sender: TObject);
delete filter
procedure SpeedButton2Click(Sender: TObject);
add filter
procedure SpeedButton3Click(Sender: TObject);
delete all filters
function CustShowModal: TModalResult;
show modal
procedure SetComboTab;
*custom routines*************************************************************} {set table combo
procedure SetListBox;
set list box
procedure SetComboField;
Private declarations set field combo
Bevel1 : TBevel;
Bevel2 : TBevel;
btnCancel : TButton;
btnFilter : TButton;
btnHelp : TButton;
comboConditional : TComboBox;
comboFields : TComboBox;
comboTab : TComboBox;
editFilter : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
listFilters : TcwListBox;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
FSQL : TStringList;
Public declarations
procedure btnCancelClick(Sender: TObject);
cancel dialog
procedure btnFilterClick(Sender: TObject);
ok
procedure comboTabChange(Sender: TObject);
*buttons*********************************************************************} {on change, set field combo
procedure editFilterKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
*form's preferences*********************************************************} {on key down
procedure FormCreate(Sender: TObject);
on create
procedure FormDestroy(Sender: TObject);
on destroy
procedure HelpBtnClick(Sender: TObject);
help
procedure SpeedButton1Click(Sender: TObject);
delete filter
procedure SpeedButton2Click(Sender: TObject);
add filter
procedure SpeedButton3Click(Sender: TObject);
delete all filters
function CustShowModal: TModalResult;
show modal
procedure SetComboTab;
*custom routines*************************************************************} {set table combo
procedure SetListBox;
set list box
procedure SetComboField;
Private declarations
set field combo
Bevel1 : TBevel;
Bevel2 : TBevel;
btnCancel : TButton;
btnFilter : TButton;
btnHelp : TButton;
comboConditional : TComboBox;
comboFields : TComboBox;
comboTab : TComboBox;
editFilter : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
listFilters : TcwListBox;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
FSQL : TStringList;
Public declarations