upd

src/_frmAddEditPreset.dfm

@@ -11,8 +11,10 @@ object frmAddEditPreset: TfrmAddEditPreset
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
+  KeyPreview = True
   OldCreateOrder = False
   Position = poMainFormCenter
+  OnKeyPress = FormKeyPress
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
@@ -52,7 +54,7 @@ object frmAddEditPreset: TfrmAddEditPreset
     Left = 0
     Top = 0
     Width = 482
-    Height = 76
+    Height = 77
     Align = alTop
     BevelOuter = bvNone
     Color = clWhite

src/_frmAddEditPreset.pas

@@ -21,6 +21,7 @@ type
     procedure cxButton1Click(Sender: TObject);
     procedure cxButton2Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
   private
     { Private-Deklarationen }
   public
@@ -45,6 +46,15 @@ begin
   Close;
 end;
 
+procedure TfrmAddEditPreset.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #27 then
+  begin
+    Key := #0;
+    Close;
+  end;
+end;
+
 procedure TfrmAddEditPreset.FormShow(Sender: TObject);
 begin
   edtPresetName.SetFocus;

src/_frmMain.dfm

@@ -26,7 +26,7 @@ object frmMain: TfrmMain
     Left = 0
     Top = 0
     Width = 725
-    Height = 76
+    Height = 77
     Align = alTop
     BevelOuter = bvNone
     Color = clWhite
@@ -117,25 +117,28 @@ object frmMain: TfrmMain
   end
   object PageControlResponse: TcxPageControl
     Left = 0
-    Top = 456
+    Top = 457
     Width = 725
-    Height = 434
+    Height = 433
     Align = alClient
     TabOrder = 3
     Properties.ActivePage = tabContent
     Properties.CustomButtons.Buttons = <>
-    ClientRectBottom = 432
+    ExplicitTop = 456
+    ExplicitHeight = 434
+    ClientRectBottom = 431
     ClientRectLeft = 2
     ClientRectRight = 723
     ClientRectTop = 23
     object tabContent: TcxTabSheet
       Caption = 'Response Content'
       ImageIndex = 0
+      ExplicitHeight = 409
       object EditorContent: TSynEdit
         Left = 0
         Top = 31
         Width = 721
-        Height = 378
+        Height = 377
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -167,6 +170,7 @@ object frmMain: TfrmMain
         TabWidth = 2
         WantTabs = True
         FontSmoothing = fsmNone
+        ExplicitHeight = 378
       end
       object Panel2: TPanel
         Left = 0
@@ -188,11 +192,12 @@ object frmMain: TfrmMain
     object tabHeaders: TcxTabSheet
       Caption = 'Response Headers'
       ImageIndex = 1
+      ExplicitHeight = 409
       object EditorResponseHeaders: TSynEdit
         Left = 0
         Top = 0
         Width = 721
-        Height = 409
+        Height = 408
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -224,17 +229,19 @@ object frmMain: TfrmMain
         TabWidth = 2
         WantTabs = True
         FontSmoothing = fsmNone
+        ExplicitHeight = 409
       end
     end
   end
   object pnlHeader: TPanel
     Left = 0
-    Top = 76
+    Top = 77
     Width = 725
     Height = 370
     Align = alTop
     BevelOuter = bvNone
     TabOrder = 0
+    ExplicitTop = 76
     object pnlPresetDetail: TPanel
       Left = 277
       Top = 0
@@ -679,6 +686,7 @@ object frmMain: TfrmMain
         Anchors = [akLeft, akTop, akRight, akBottom]
         TabOrder = 0
         object cxGridDBTableView: TcxGridDBTableView
+          OnDblClick = cxGridDBTableViewDblClick
           Navigator.Buttons.CustomButtons = <>
           Navigator.Buttons.First.Visible = False
           Navigator.Buttons.PriorPage.Visible = False
@@ -692,6 +700,7 @@ object frmMain: TfrmMain
           Navigator.Buttons.SaveBookmark.Visible = False
           Navigator.Buttons.GotoBookmark.Visible = False
           Navigator.Buttons.Filter.Visible = False
+          FindPanel.ApplyInputDelay = 50
           FindPanel.DisplayMode = fpdmAlways
           FindPanel.Location = fplGroupByBox
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -782,11 +791,12 @@ object frmMain: TfrmMain
   end
   object cxSplitter1: TcxSplitter
     Left = 0
-    Top = 446
+    Top = 447
     Width = 725
     Height = 10
     AlignSplitter = salBottom
     Control = pnlHeader
+    ExplicitTop = 446
   end
   object dxStatusBarApp: TdxStatusBar
     Left = 0

src/_frmMain.pas

@@ -214,6 +214,7 @@ type
     procedure memDataPresetsAfterScroll(DataSet: TDataSet);
     procedure memDataPresetsAfterEdit(DataSet: TDataSet);
     procedure memDataPresetsBeforeScroll(DataSet: TDataSet);
+    procedure cxGridDBTableViewDblClick(Sender: TObject);
   private
     FProjectConfig: TJSONConfig;
     FActiveProject: string;
@@ -390,6 +391,9 @@ end;
 
 procedure TfrmMain.btnAddClick(Sender: TObject);
 begin
+  frmAddEditPreset.edtPresetName.Text := '';
+  frmAddEditPreset.edtCategory.Text := '';
+
   if frmAddEditPreset.ShowModal = mrOk then
   begin
     SavePreset;
@@ -602,6 +606,11 @@ begin
   end;
 end;
 
+procedure TfrmMain.cxGridDBTableViewDblClick(Sender: TObject);
+begin
+  btnEditClick(Sender);
+end;
+
 procedure TfrmMain.pmnuBiggerEditorClick(Sender: TObject);
 begin
   frmBiggerEditor.ShowModal;

src/_frmVariables.dfm

@@ -12,15 +12,17 @@ object frmVariables: TfrmVariables
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
+  KeyPreview = True
   OldCreateOrder = False
   Position = poMainFormCenter
+  OnKeyPress = FormKeyPress
   PixelsPerInch = 96
   TextHeight = 13
   object Panel1: TPanel
     Left = 0
     Top = 0
     Width = 648
-    Height = 76
+    Height = 77
     Align = alTop
     BevelOuter = bvNone
     Color = clWhite
@@ -51,11 +53,12 @@ object frmVariables: TfrmVariables
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 76
+    Top = 77
     Width = 648
     Height = 325
     Align = alTop
     TabOrder = 2
+    ExplicitTop = 76
     object cxGrid1DBTableView1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.First.Visible = False

src/_frmVariables.pas

@@ -25,6 +25,7 @@ type
     cxGrid1DBTableView1fldType: TcxGridDBColumn;
     cxGrid1DBTableView1fldXPath: TcxGridDBColumn;
     procedure cxButton1Click(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
   private
     { Private-Deklarationen }
   public
@@ -45,4 +46,13 @@ begin
   Close;
 end;
 
+procedure TfrmVariables.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #27 then
+  begin
+    Key := #0;
+    Close;
+  end;
+end;
+
 end.