paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpWeb: fixed layout of New HTTP Server Application dialog

Browse Source
This commit is contained in:
Maxim Ganetsky 2021-12-18 01:21:56 +03:00
parent b4881d60cf
commit e313060d09
1 changed files with 100 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

150
components/fpweb/frmnewhttpapp.lfm
View File

@ -1,27 +1,35 @@
object NewHTTPApplicationForm: TNewHTTPApplicationForm object NewHTTPApplicationForm: TNewHTTPApplicationForm
Left = 521 Left = 521
Height = 374 Height = 385
Top = 280 Top = 280
Width = 462 Width = 600
AutoSize = True
Caption = 'New HTTP server application' Caption = 'New HTTP server application'
ClientHeight = 374 ClientHeight = 385
ClientWidth = 462 ClientWidth = 600
Constraints.MinWidth = 600
DesignTimePPI = 120
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object SEPort: TSpinEdit object SEPort: TSpinEdit
Left = 26 AnchorSideLeft.Control = LSEPort
Height = 27 AnchorSideTop.Control = LSEPort
Top = 256 AnchorSideTop.Side = asrBottom
Width = 98 Left = 6
Height = 28
Top = 271
Width = 122
MaxValue = 65355 MaxValue = 65355
TabOrder = 0 TabOrder = 0
Value = 8080 Value = 8080
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
AnchorSideTop.Control = CBthreads
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 38 Height = 38
Top = 330 Top = 341
Width = 450 Width = 588
Anchors = [akTop, akLeft, akRight, akBottom]
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
@ -34,54 +42,76 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
end end
object LSEPort: TLabel object LSEPort: TLabel
Left = 8 AnchorSideLeft.Control = GBFileServing
Height = 16 AnchorSideTop.Control = GBFileServing
Top = 224 AnchorSideTop.Side = asrBottom
Width = 157 Left = 6
Height = 20
Top = 251
Width = 168
BorderSpacing.Top = 12
Caption = 'Port to listen for requests:' Caption = 'Port to listen for requests:'
FocusControl = SEPort FocusControl = SEPort
end end
object CBthreads: TCheckBox object CBthreads: TCheckBox
Left = 10 AnchorSideLeft.Control = GBFileServing
Height = 23 AnchorSideTop.Control = SEPort
Top = 296 AnchorSideTop.Side = asrBottom
Width = 217 Left = 6
Height = 24
Top = 311
Width = 229
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 = 0 Left = 6
Height = 216 Height = 233
Top = 0 Top = 6
Width = 462 Width = 588
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'File serving' Caption = 'File serving'
ClientHeight = 199 ClientHeight = 208
ClientWidth = 460 ClientWidth = 584
TabOrder = 3 TabOrder = 3
object RBNoFiles: TRadioButton object RBNoFiles: TRadioButton
Left = 16 AnchorSideLeft.Control = GBFileServing
Height = 23 AnchorSideTop.Control = GBFileServing
Top = 16 Left = 6
Width = 132 Height = 24
Top = 6
Width = 136
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Do not serve files' Caption = 'Do not serve files'
OnChange = RBNoFilesChange OnChange = RBNoFilesChange
TabOrder = 0 TabOrder = 0
end end
object RBSingleRoute: TRadioButton object RBSingleRoute: TRadioButton
Left = 16 AnchorSideLeft.Control = RBNoFiles
Height = 23 AnchorSideTop.Control = RBNoFiles
Top = 52 AnchorSideTop.Side = asrBottom
Width = 236 Left = 6
Height = 24
Top = 42
Width = 251
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
end end
object RBDefaultRoute: TRadioButton object RBDefaultRoute: TRadioButton
Left = 16 AnchorSideLeft.Control = RBNoFiles
Height = 23 AnchorSideTop.Control = ELocation
Top = 96 AnchorSideTop.Side = asrBottom
Width = 178 Left = 6
Height = 24
Top = 112
Width = 184
BorderSpacing.Top = 12
Caption = 'Default route serves files' Caption = 'Default route serves files'
Checked = True Checked = True
OnChange = RBNoFilesChange OnChange = RBNoFilesChange
@ -89,31 +119,51 @@ object NewHTTPApplicationForm: TNewHTTPApplicationForm
TabStop = True TabStop = True
end end
object ELocation: TEdit object ELocation: TEdit
Left = 280 AnchorSideLeft.Control = RBNoFiles
Height = 27 AnchorSideTop.Control = RBSingleRoute
Top = 48 AnchorSideTop.Side = asrBottom
Width = 166 AnchorSideRight.Control = GBFileServing
AnchorSideRight.Side = asrBottom
Left = 30
Height = 28
Top = 72
Width = 548
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
end end
object LDEDocumentRoot: TLabel object LDEDocumentRoot: TLabel
Left = 16 AnchorSideLeft.Control = RBNoFiles
Height = 16 AnchorSideTop.Control = RBDefaultRoute
Top = 136 AnchorSideTop.Side = asrBottom
Width = 171 Left = 6
Height = 20
Top = 154
Width = 187
BorderSpacing.Top = 18
Caption = '&Directory to serve files from:' Caption = '&Directory to serve files from:'
FocusControl = DEDocumentroot FocusControl = DEDocumentroot
end end
object DEDocumentroot: TDirectoryEdit object DEDocumentroot: TDirectoryEdit
Left = 16 AnchorSideLeft.Control = LDEDocumentRoot
Height = 27 AnchorSideTop.Control = LDEDocumentRoot
Top = 160 AnchorSideTop.Side = asrBottom
Width = 430 AnchorSideRight.Control = GBFileServing
AnchorSideRight.Side = asrBottom
Left = 6
Height = 28
Top = 174
Width = 572
DialogTitle = 'Select directory' DialogTitle = 'Select directory'
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 29
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Enabled = False Enabled = False
MaxLength = 0 MaxLength = 0
TabOrder = 4 TabOrder = 4