58 lines
1022 B
ObjectPascal
58 lines
1022 B
ObjectPascal
|
{: Contains the filter configuration dialog.
|
||
|
|
|
||
|
|
Last changed: $Date$
|
||
|
|
Revision: $Rev$
|
||
|
|
Author: $Author$
|
||
|
|
}
|
||
|
|
unit CmpSwFilterConfiguration;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
Classes,
|
||
|
|
Controls,
|
||
|
|
ExtCtrls,
|
||
|
|
Forms,
|
||
|
|
StdCtrls,
|
||
|
|
|
||
|
|
CmpSwFilters;
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmCmpSwFilterConfiguration = class(TForm)
|
||
|
|
gbMain: TGroupBox;
|
||
|
|
pnlButtons: TPanel;
|
||
|
|
btnOk: TButton;
|
||
|
|
btnCancel: TButton;
|
||
|
|
protected
|
||
|
|
function InternalExecute(AGroup: TCmpSwFilterGroup): Boolean;
|
||
|
|
public
|
||
|
|
class function Execute(AGroup: TCmpSwFilterGroup): Boolean;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
|
||
|
|
{ TfrmCmpSwFilterConfiguration }
|
||
|
|
class function TfrmCmpSwFilterConfiguration.Execute(AGroup: TCmpSwFilterGroup): Boolean;
|
||
|
|
begin
|
||
|
|
with Self.Create(nil) do
|
||
|
|
try
|
||
|
|
Result := InternalExecute(AGroup);
|
||
|
|
finally
|
||
|
|
Free();
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
function TfrmCmpSwFilterConfiguration.InternalExecute(AGroup: TCmpSwFilterGroup): Boolean;
|
||
|
|
begin
|
||
|
|
Result := (ShowModal() = mrOk);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|