FpWeb: fixed port maximum value in New HTTP Application options dialog (65355 -> 65535)

components/fpweb/frmnewhttpapp.lfm

@@ -1,36 +1,35 @@
 object NewHTTPApplicationForm: TNewHTTPApplicationForm
   Left = 521
-  Height = 420
+  Height = 525
   Top = 280
-  Width = 580
+  Width = 600
   AutoSize = True
   Caption = 'New HTTP server application'
-  ClientHeight = 420
-  ClientWidth = 580
-  Constraints.MinHeight = 420
-  Constraints.MinWidth = 480
+  ClientHeight = 525
+  ClientWidth = 600
+  Constraints.MinHeight = 525
+  Constraints.MinWidth = 600
+  DesignTimePPI = 120
   OnCreate = FormCreate
-  LCLVersion = '2.3.0.0'
   object SEPort: TSpinEdit
     AnchorSideLeft.Control = LSEPort
     AnchorSideTop.Control = LSEPort
     AnchorSideTop.Side = asrBottom
-    Left = 5
-    Height = 27
-    Top = 236
-    Width = 98
-    MaxValue = 65355
+    Left = 6
+    Height = 28
+    Top = 271
+    Width = 122
+    MaxValue = 65535
     TabOrder = 0
     Value = 8080
   end
   object ButtonPanel1: TButtonPanel
     AnchorSideTop.Control = CBthreads
     AnchorSideTop.Side = asrBottom
-    Left = 5
+    Left = 6
     Height = 38
-    Top = 377
-    Width = 570
-    BorderSpacing.Around = 5
+    Top = 481
+    Width = 588
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
     HelpButton.Name = 'HelpButton'
@@ -46,11 +45,11 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
     AnchorSideLeft.Control = GBFileServing
     AnchorSideTop.Control = GBFileServing
     AnchorSideTop.Side = asrBottom
-    Left = 5
-    Height = 16
-    Top = 220
-    Width = 157
-    BorderSpacing.Top = 10
+    Left = 6
+    Height = 20
+    Top = 251
+    Width = 168
+    BorderSpacing.Top = 12
     Caption = 'Port to listen for requests:'
     FocusControl = SEPort
   end
@@ -58,35 +57,35 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
     AnchorSideLeft.Control = GBFileServing
     AnchorSideTop.Control = SEPort
     AnchorSideTop.Side = asrBottom
-    Left = 5
-    Height = 23
-    Top = 273
-    Width = 217
-    BorderSpacing.Top = 10
+    Left = 6
+    Height = 24
+    Top = 311
+    Width = 229
+    BorderSpacing.Top = 12
     Caption = 'Use threads to serve requests in'
     TabOrder = 2
   end
   object GBFileServing: TGroupBox
-    Left = 5
-    Height = 205
-    Top = 5
-    Width = 570
+    Left = 6
+    Height = 233
+    Top = 6
+    Width = 588
     Align = alTop
     AutoSize = True
-    BorderSpacing.Around = 5
+    BorderSpacing.Around = 6
     Caption = 'File serving'
-    ClientHeight = 188
-    ClientWidth = 568
+    ClientHeight = 208
+    ClientWidth = 584
     TabOrder = 3
     object RBNoFiles: TRadioButton
       AnchorSideLeft.Control = GBFileServing
       AnchorSideTop.Control = GBFileServing
-      Left = 5
-      Height = 23
-      Top = 5
-      Width = 132
-      BorderSpacing.Left = 5
-      BorderSpacing.Top = 5
+      Left = 6
+      Height = 24
+      Top = 6
+      Width = 136
+      BorderSpacing.Left = 6
+      BorderSpacing.Top = 6
       Caption = 'Do not serve files'
       OnChange = RBNoFilesChange
       TabOrder = 0
@@ -95,11 +94,11 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
       AnchorSideLeft.Control = RBNoFiles
       AnchorSideTop.Control = RBNoFiles
       AnchorSideTop.Side = asrBottom
-      Left = 5
-      Height = 23
-      Top = 38
-      Width = 236
-      BorderSpacing.Top = 10
+      Left = 6
+      Height = 24
+      Top = 42
+      Width = 251
+      BorderSpacing.Top = 12
       Caption = 'Use single URL route to serve files: '
       OnChange = RBNoFilesChange
       TabOrder = 1
@@ -108,11 +107,11 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
       AnchorSideLeft.Control = RBNoFiles
       AnchorSideTop.Control = ELocation
       AnchorSideTop.Side = asrBottom
-      Left = 5
-      Height = 23
-      Top = 103
-      Width = 178
-      BorderSpacing.Top = 10
+      Left = 6
+      Height = 24
+      Top = 112
+      Width = 184
+      BorderSpacing.Top = 12
       Caption = 'Default route serves files'
       Checked = True
       OnChange = RBNoFilesChange
@@ -125,14 +124,14 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = GBFileServing
       AnchorSideRight.Side = asrBottom
-      Left = 24
-      Height = 27
-      Top = 66
-      Width = 539
+      Left = 30
+      Height = 28
+      Top = 72
+      Width = 548
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Left = 19
-      BorderSpacing.Top = 5
-      BorderSpacing.Right = 5
+      BorderSpacing.Left = 24
+      BorderSpacing.Top = 6
+      BorderSpacing.Right = 6
       Enabled = False
       TabOrder = 3
     end
@@ -140,11 +139,11 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
       AnchorSideLeft.Control = RBNoFiles
       AnchorSideTop.Control = RBDefaultRoute
       AnchorSideTop.Side = asrBottom
-      Left = 5
-      Height = 16
-      Top = 140
-      Width = 171
-      BorderSpacing.Top = 14
+      Left = 6
+      Height = 20
+      Top = 154
+      Width = 187
+      BorderSpacing.Top = 18
       Caption = '&Directory to serve files from:'
       FocusControl = DEDocumentroot
     end
@@ -154,17 +153,17 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = GBFileServing
       AnchorSideRight.Side = asrBottom
-      Left = 5
-      Height = 27
-      Top = 156
-      Width = 558
+      Left = 6
+      Height = 28
+      Top = 174
+      Width = 572
       DialogTitle = 'Select directory'
       ShowHidden = False
-      ButtonWidth = 23
+      ButtonWidth = 29
       NumGlyphs = 1
       Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Right = 5
-      BorderSpacing.Bottom = 5
+      BorderSpacing.Right = 6
+      BorderSpacing.Bottom = 6
       Enabled = False
       MaxLength = 0
       TabOrder = 4
@@ -174,12 +173,12 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
     AnchorSideLeft.Control = LSEPort
     AnchorSideTop.Control = lblStandardModule
     AnchorSideTop.Side = asrBottom
-    Left = 5
-    Height = 29
-    Top = 328
-    Width = 459
-    BorderSpacing.Top = 8
-    ItemHeight = 0
+    Left = 6
+    Height = 28
+    Top = 375
+    Width = 574
+    BorderSpacing.Top = 10
+    ItemHeight = 20
     Style = csDropDownList
     TabOrder = 4
   end
@@ -187,11 +186,11 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
     AnchorSideLeft.Control = CBthreads
     AnchorSideTop.Control = CBthreads
     AnchorSideTop.Side = asrBottom
-    Left = 5
-    Height = 16
-    Top = 304
-    Width = 135
-    BorderSpacing.Top = 8
+    Left = 6
+    Height = 20
+    Top = 345
+    Width = 151
+    BorderSpacing.Top = 10
     Caption = 'Web module to create:'
   end
 end