paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-01-18 02:01:41 +03:00
parent 9eaf4e3531
commit 5aee55a625
1 changed files with 78 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

157
components/fpweb/frmnewhttpapp.lfm
View File

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