Indy10Demos/HTTP/SSL Server/Forms/MainForm.dfm

object frmMain: TfrmMain
  Left = 196
  Top = 179
  Width = 342
  Height = 296
  Caption = 'Indy HTTP Server Demo (SSL Only)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlButtonBar: TPanel
    Left = 0
    Top = 221
    Width = 334
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DesignSize = (
      334
      41)
    object btnStartStop: TButton
      Left = 256
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Start Server'
      TabOrder = 0
      OnClick = btnStartStopClick
    end
  end
  object pcMain: TPageControl
    Left = 0
    Top = 0
    Width = 334
    Height = 193
    ActivePage = tsSSLSetup
    Align = alTop
    TabIndex = 0
    TabOrder = 1
    object tsSSLSetup: TTabSheet
      Caption = 'SSL Setup'
      ImageIndex = 2
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 69
        Height = 13
        Caption = 'Certificate File:'
      end
      object Label6: TLabel
        Left = 144
        Top = 8
        Width = 52
        Height = 13
        Caption = 'Cipher List:'
      end
      object Label7: TLabel
        Left = 8
        Top = 56
        Width = 40
        Height = 13
        Caption = 'Key File:'
      end
      object Label8: TLabel
        Left = 144
        Top = 56
        Width = 95
        Height = 13
        Caption = 'Root Certificate File:'
      end
      object Label9: TLabel
        Left = 8
        Top = 104
        Width = 49
        Height = 13
        Caption = 'Password:'
      end
      object edCertFile: TEdit
        Left = 8
        Top = 24
        Width = 121
        Height = 21
        TabOrder = 0
        Text = 'edCertFile'
      end
      object edCipherList: TEdit
        Left = 144
        Top = 24
        Width = 121
        Height = 21
        TabOrder = 1
        Text = 'edCipherList'
      end
      object edKeyFile: TEdit
        Left = 8
        Top = 72
        Width = 121
        Height = 21
        TabOrder = 2
        Text = 'key.pem'
      end
      object edRootCertFile: TEdit
        Left = 144
        Top = 72
        Width = 121
        Height = 21
        TabOrder = 3
        Text = 'edRootCertFile'
      end
      object edPassword: TEdit
        Left = 8
        Top = 120
        Width = 121
        Height = 21
        PasswordChar = '*'
        TabOrder = 4
        Text = 'edPassword'
      end
      object cbMaskPass: TCheckBox
        Left = 136
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Mask Password'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = cbMaskPassClick
      end
    end
    object tsSettings: TTabSheet
      Caption = 'Settings'
      DesignSize = (
        326
        165)
      object Label2: TLabel
        Left = 4
        Top = 8
        Width = 51
        Height = 13
        Caption = 'Bind to IPs'
      end
      object Label3: TLabel
        Left = 120
        Top = 8
        Width = 54
        Height = 13
        Caption = 'Bind to port'
      end
      object Label4: TLabel
        Left = 120
        Top = 48
        Width = 118
        Height = 13
        Caption = 'Select port from stack list'
      end
      object Label1: TLabel
        Left = 120
        Top = 88
        Width = 83
        Height = 13
        Caption = 'Page Root Folder'
      end
      object lbIPs: TCheckListBox
        Left = 4
        Top = 24
        Width = 109
        Height = 133
        Anchors = [akLeft, akTop, akBottom]
        ItemHeight = 13
        TabOrder = 0
      end
      object cbPorts: TComboBox
        Left = 120
        Top = 64
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 1
      end
      object edPort: TEdit
        Left = 120
        Top = 24
        Width = 65
        Height = 21
        TabOrder = 2
        Text = '8080'
        OnKeyPress = edPortKeyPress
      end
      object edServerRoot: TEdit
        Left = 120
        Top = 104
        Width = 201
        Height = 21
        TabOrder = 3
        Text = 'edServerRoot'
      end
    end
    object tsProcessLog: TTabSheet
      Caption = 'Process Log'
      ImageIndex = 1
      object lbProcesses: TListBox
        Left = 0
        Top = 0
        Width = 326
        Height = 165
        Style = lbOwnerDrawFixed
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
        OnDrawItem = lbProcessesDrawItem
      end
    end
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 32
    Top = 200
  end
  object IdSchedulerOfThreadDefault1: TIdSchedulerOfThreadDefault
    MaxThreads = 100
    Left = 64
    Top = 200
  end
  object Server: TIdHTTPServer
    OnStatus = ServerStatus
    Bindings = <>
    IOHandler = OpenSSL
    OnConnect = ServerConnect
    OnDisconnect = ServerDisconnect
    OnException = ServerException
    Scheduler = IdSchedulerOfThreadDefault1
    OnQuerySSLPort = ServerQuerySSLPort
    OnCommandGet = ServerCommandGet
    Top = 200
  end
  object OpenSSL: TIdServerIOHandlerSSLOpenSSL
    SSLOptions.KeyFile = 'key.pem'
    SSLOptions.Method = sslvSSLv2
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    OnGetPassword = OpenSSLGetPassword
    Left = 96
    Top = 200
  end
end