diff --git a/gui/FillterForm.dfm b/gui/FillterForm.dfm index acd1a12..9125c80 100644 --- a/gui/FillterForm.dfm +++ b/gui/FillterForm.dfm @@ -23,6 +23,7 @@ object FilterFrm: TFilterFrm Height = 145 Align = alTop TabOrder = 0 + ExplicitTop = -6 object Label1: TLabel Left = 0 Top = 13 @@ -200,6 +201,14 @@ object FilterFrm: TFilterFrm TabOrder = 14 OnClick = AddButtonClick end + object EphemeralCheckBox: TCheckBox + Left = 346 + Top = 80 + Width = 73 + Height = 17 + Caption = 'Ephemeral' + TabOrder = 15 + end end object LowerPanel: TPanel Left = 0 diff --git a/gui/FillterForm.pas b/gui/FillterForm.pas index d240604..2a2c502 100644 --- a/gui/FillterForm.pas +++ b/gui/FillterForm.pas @@ -46,6 +46,7 @@ Label6: TLabel; NameEdit: TEdit; ApplyButton: TButton; + EphemeralCheckBox: TCheckBox; Procedure FormCreate(Sender: TObject); procedure FilterTypeComboBoxChange(Sender: TObject); procedure FilterColumnComboBoxChange(Sender: TObject); @@ -267,6 +268,9 @@ Font.Color := ClBlack Else Font.Color := ClWhite; end; + + If f.Ephemeral Then + Font.Style := Font.Style + [fsItalic]; end; DefaultDraw := True; @@ -342,6 +346,7 @@ HighlightColorColorBox.Selected := f.HighlightColor; NegateCheckBox.Checked := f.Negate; EnabledCheckBox.Checked := f.Enabled; + EphemeralCheckBox.Checked := f.Ephemeral; end; end; @@ -607,6 +612,7 @@ end; f.Enabled := EnabledCheckBox.Checked; + f.Ephemeral := EphemeralCheckBox.Checked; FilterListViewData(FilterListView, L); f := Nil; Finally diff --git a/gui/MainForm.pas b/gui/MainForm.pas index 18f6b6a..5fba07c 100644 --- a/gui/MainForm.pas +++ b/gui/MainForm.pas @@ -897,6 +897,7 @@ procedure TMainFrm.PopupFilterClick(Sender: TObject); rq := FModel.Selected; rf := TRequestFilter.NewInstance(rq.RequestType); rf.Enabled := True; + rf.Ephemeral := True; columnType := ERequestListModelColumnType(M.Tag); ret := rq.GetColumnValueRaw(columnType, d, l); If ret Then