[gui]: Make the Ephemeral thing effective in the GUI forms

MartinDrab · Jan 11, 2020 · 48efaf4 · 48efaf4
1 parent d26cee1
commit 48efaf4
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git 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
@@ -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
@@ -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