lazarus/components/fpweb/frmnewhttpapp.lfm

object NewHTTPApplicationForm: TNewHTTPApplicationForm
  Left = 521
  Height = 420
  Top = 280
  Width = 580
  AutoSize = True
  Caption = 'New HTTP server application'
  ClientHeight = 420
  ClientWidth = 580
  Constraints.MinHeight = 420
  Constraints.MinWidth = 480
  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
    TabOrder = 0
    Value = 8080
  end
  object ButtonPanel1: TButtonPanel
    AnchorSideTop.Control = CBthreads
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 38
    Top = 377
    Width = 570
    BorderSpacing.Around = 5
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 1
    ShowButtons = [pbOK, pbCancel]
  end
  object LSEPort: TLabel
    AnchorSideLeft.Control = GBFileServing
    AnchorSideTop.Control = GBFileServing
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 16
    Top = 220
    Width = 157
    BorderSpacing.Top = 10
    Caption = 'Port to listen for requests:'
    FocusControl = SEPort
  end
  object CBthreads: TCheckBox
    AnchorSideLeft.Control = GBFileServing
    AnchorSideTop.Control = SEPort
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 23
    Top = 273
    Width = 217
    BorderSpacing.Top = 10
    Caption = 'Use threads to serve requests in'
    TabOrder = 2
  end
  object GBFileServing: TGroupBox
    Left = 5
    Height = 205
    Top = 5
    Width = 570
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 5
    Caption = 'File serving'
    ClientHeight = 188
    ClientWidth = 568
    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
      Caption = 'Do not serve files'
      OnChange = RBNoFilesChange
      TabOrder = 0
    end
    object RBSingleRoute: TRadioButton
      AnchorSideLeft.Control = RBNoFiles
      AnchorSideTop.Control = RBNoFiles
      AnchorSideTop.Side = asrBottom
      Left = 5
      Height = 23
      Top = 38
      Width = 236
      BorderSpacing.Top = 10
      Caption = 'Use single URL route to serve files: '
      OnChange = RBNoFilesChange
      TabOrder = 1
    end
    object RBDefaultRoute: TRadioButton
      AnchorSideLeft.Control = RBNoFiles
      AnchorSideTop.Control = ELocation
      AnchorSideTop.Side = asrBottom
      Left = 5
      Height = 23
      Top = 103
      Width = 178
      BorderSpacing.Top = 10
      Caption = 'Default route serves files'
      Checked = True
      OnChange = RBNoFilesChange
      TabOrder = 2
      TabStop = True
    end
    object ELocation: TEdit
      AnchorSideLeft.Control = RBNoFiles
      AnchorSideTop.Control = RBSingleRoute
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GBFileServing
      AnchorSideRight.Side = asrBottom
      Left = 24
      Height = 27
      Top = 66
      Width = 539
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 19
      BorderSpacing.Top = 5
      BorderSpacing.Right = 5
      Enabled = False
      TabOrder = 3
    end
    object LDEDocumentRoot: TLabel
      AnchorSideLeft.Control = RBNoFiles
      AnchorSideTop.Control = RBDefaultRoute
      AnchorSideTop.Side = asrBottom
      Left = 5
      Height = 16
      Top = 140
      Width = 171
      BorderSpacing.Top = 14
      Caption = '&Directory to serve files from:'
      FocusControl = DEDocumentroot
    end
    object DEDocumentroot: TDirectoryEdit
      AnchorSideLeft.Control = LDEDocumentRoot
      AnchorSideTop.Control = LDEDocumentRoot
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GBFileServing
      AnchorSideRight.Side = asrBottom
      Left = 5
      Height = 27
      Top = 156
      Width = 558
      DialogTitle = 'Select directory'
      ShowHidden = False
      ButtonWidth = 23
      NumGlyphs = 1
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Right = 5
      BorderSpacing.Bottom = 5
      Enabled = False
      MaxLength = 0
      TabOrder = 4
    end
  end
  object cbStandardModule: TComboBox
    AnchorSideLeft.Control = LSEPort
    AnchorSideTop.Control = lblStandardModule
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 29
    Top = 328
    Width = 459
    BorderSpacing.Top = 8
    ItemHeight = 0
    Style = csDropDownList
    TabOrder = 4
  end
  object lblStandardModule: TLabel
    AnchorSideLeft.Control = CBthreads
    AnchorSideTop.Control = CBthreads
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 16
    Top = 304
    Width = 135
    BorderSpacing.Top = 8
    Caption = 'Web module to create:'
  end
end