| Class TFilterDlg (unit CWFilter) |
TForm
| Constructors |
| Functions |
procedure btnCancelClick(Sender: TObject);
procedure btnFilterClick(Sender: TObject);
procedure comboTabChange(Sender: TObject);
procedure editFilterKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
function CustShowModal: TModalResult;
procedure SetComboTab;
procedure SetListBox;
procedure SetComboField;set field combo
| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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