zpd

src/_frmMain.dfm

@@ -131,6 +131,10 @@ object frmMain: TfrmMain
     object tabContent: TcxTabSheet
       Caption = 'Response Content'
       ImageIndex = 0
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object EditorContent: TSynEdit
         Left = 0
         Top = 31
@@ -188,6 +192,10 @@ object frmMain: TfrmMain
     object tabHeaders: TcxTabSheet
       Caption = 'Response Headers'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object EditorResponseHeaders: TSynEdit
         Left = 0
         Top = 0
@@ -236,16 +244,18 @@ object frmMain: TfrmMain
     BevelOuter = bvNone
     TabOrder = 0
     object pnlPresetDetail: TPanel
-      Left = 275
+      Left = 277
       Top = 0
-      Width = 450
+      Width = 448
       Height = 370
       Align = alClient
       BevelOuter = bvNone
       Padding.Right = 10
       TabOrder = 0
+      ExplicitLeft = 275
+      ExplicitWidth = 450
       DesignSize = (
-        450
+        448
         370)
       object Label6: TLabel
         Left = 14
@@ -289,7 +299,6 @@ object frmMain: TfrmMain
         Anchors = [akLeft, akTop, akRight]
         Properties.OnChange = edtBaseURLPropertiesChange
         TabOrder = 1
-        ExplicitWidth = 345
         Width = 335
       end
       object PageControlParams: TcxPageControl
@@ -309,7 +318,10 @@ object frmMain: TfrmMain
         object tabURLParams: TcxTabSheet
           Caption = 'URL Parameters'
           ImageIndex = 0
+          ExplicitLeft = 0
+          ExplicitTop = 0
           ExplicitWidth = 432
+          ExplicitHeight = 0
           object Panel3: TPanel
             Left = 0
             Top = 0
@@ -372,7 +384,10 @@ object frmMain: TfrmMain
         object cxTabSheet2: TcxTabSheet
           Caption = 'Extra Headers'
           ImageIndex = 1
+          ExplicitLeft = 0
+          ExplicitTop = 0
           ExplicitWidth = 432
+          ExplicitHeight = 0
           object Panel4: TPanel
             Left = 0
             Top = 0
@@ -434,7 +449,10 @@ object frmMain: TfrmMain
         object cxTabSheet3: TcxTabSheet
           Caption = 'Authentication'
           ImageIndex = 3
+          ExplicitLeft = 0
+          ExplicitTop = 0
           ExplicitWidth = 432
+          ExplicitHeight = 0
           object Label9: TLabel
             Left = 15
             Top = 47
@@ -473,7 +491,10 @@ object frmMain: TfrmMain
         object tabPostData: TcxTabSheet
           Caption = 'Post Data'
           ImageIndex = 2
+          ExplicitLeft = 0
+          ExplicitTop = 0
           ExplicitWidth = 432
+          ExplicitHeight = 0
           object Panel5: TPanel
             Left = 0
             Top = 0
@@ -621,7 +642,6 @@ object frmMain: TfrmMain
         Anchors = [akLeft, akRight, akBottom]
         Properties.OnChange = edtFullURLPropertiesChange
         TabOrder = 3
-        ExplicitWidth = 275
         Width = 265
       end
       object btnPasteFullURL: TcxButton
@@ -669,12 +689,9 @@ object frmMain: TfrmMain
     object cxSplitter2: TcxSplitter
       Left = 267
       Top = 0
-      Width = 8
+      Width = 10
       Height = 370
       Control = pnlPresets
-      ExplicitLeft = 260
-      ExplicitTop = 330
-      ExplicitHeight = 100
     end
     object pnlPresets: TPanel
       Left = 0
@@ -684,10 +701,6 @@ object frmMain: TfrmMain
       Align = alLeft
       BevelOuter = bvNone
       TabOrder = 2
-      ExplicitLeft = 30
-      ExplicitTop = 164
-      ExplicitWidth = 185
-      ExplicitHeight = 41
       DesignSize = (
         267
         370)

src/_frmMain.pas

@@ -1544,6 +1544,7 @@ begin
     Screen.Cursor := crHourGlass;
     tick := GetTickCount;
     try
+      FHTTP.Request.Accept := '*/*';
       FHTTP.Request.CustomHeaders.Clear;
 
       strlist := TStringList.Create;