Class TFilterDlg (unit CWFilter)

Inherits from

TForm

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


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