MainForm.dfm 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. object frmMain: TfrmMain
  2. Left = 196
  3. Top = 179
  4. Width = 342
  5. Height = 296
  6. Caption = 'Indy HTTP Server Demo (Non-SSL)'
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. Position = poDesktopCenter
  15. OnActivate = FormActivate
  16. OnCreate = FormCreate
  17. OnDestroy = FormDestroy
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object pnlButtonBar: TPanel
  21. Left = 0
  22. Top = 221
  23. Width = 334
  24. Height = 41
  25. Align = alBottom
  26. BevelOuter = bvLowered
  27. TabOrder = 0
  28. DesignSize = (
  29. 334
  30. 41)
  31. object btnStartStop: TButton
  32. Left = 256
  33. Top = 8
  34. Width = 75
  35. Height = 25
  36. Anchors = [akTop, akRight]
  37. Caption = 'Start Server'
  38. TabOrder = 0
  39. OnClick = btnStartStopClick
  40. end
  41. end
  42. object pcMain: TPageControl
  43. Left = 0
  44. Top = 0
  45. Width = 334
  46. Height = 193
  47. ActivePage = tsSettings
  48. Align = alTop
  49. TabIndex = 0
  50. TabOrder = 1
  51. object tsSettings: TTabSheet
  52. Caption = 'Settings'
  53. DesignSize = (
  54. 326
  55. 165)
  56. object Label2: TLabel
  57. Left = 4
  58. Top = 8
  59. Width = 51
  60. Height = 13
  61. Caption = 'Bind to IPs'
  62. end
  63. object Label3: TLabel
  64. Left = 120
  65. Top = 8
  66. Width = 54
  67. Height = 13
  68. Caption = 'Bind to port'
  69. end
  70. object Label4: TLabel
  71. Left = 120
  72. Top = 48
  73. Width = 118
  74. Height = 13
  75. Caption = 'Select port from stack list'
  76. end
  77. object Label1: TLabel
  78. Left = 120
  79. Top = 88
  80. Width = 83
  81. Height = 13
  82. Caption = 'Page Root Folder'
  83. end
  84. object lbIPs: TCheckListBox
  85. Left = 4
  86. Top = 24
  87. Width = 109
  88. Height = 133
  89. Anchors = [akLeft, akTop, akBottom]
  90. ItemHeight = 13
  91. TabOrder = 0
  92. end
  93. object cbPorts: TComboBox
  94. Left = 120
  95. Top = 64
  96. Width = 145
  97. Height = 21
  98. Style = csDropDownList
  99. ItemHeight = 13
  100. TabOrder = 1
  101. end
  102. object edPort: TEdit
  103. Left = 120
  104. Top = 24
  105. Width = 65
  106. Height = 21
  107. TabOrder = 2
  108. Text = '80'
  109. OnKeyPress = edPortKeyPress
  110. end
  111. object edServerRoot: TEdit
  112. Left = 120
  113. Top = 104
  114. Width = 201
  115. Height = 21
  116. TabOrder = 3
  117. Text = 'edServerRoot'
  118. end
  119. end
  120. object tsProcessLog: TTabSheet
  121. Caption = 'Process Log'
  122. ImageIndex = 1
  123. object lbProcesses: TListBox
  124. Left = 0
  125. Top = 0
  126. Width = 326
  127. Height = 165
  128. Style = lbOwnerDrawFixed
  129. Align = alClient
  130. ItemHeight = 13
  131. TabOrder = 0
  132. OnDrawItem = lbProcessesDrawItem
  133. end
  134. end
  135. end
  136. object IdAntiFreeze1: TIdAntiFreeze
  137. Left = 32
  138. Top = 200
  139. end
  140. object IdSchedulerOfThreadDefault1: TIdSchedulerOfThreadDefault
  141. MaxThreads = 100
  142. Left = 64
  143. Top = 200
  144. end
  145. object Server: TIdHTTPServer
  146. OnStatus = ServerStatus
  147. Bindings = <>
  148. OnConnect = ServerConnect
  149. OnDisconnect = ServerDisconnect
  150. OnException = ServerException
  151. Scheduler = IdSchedulerOfThreadDefault1
  152. OnCommandGet = ServerCommandGet
  153. Top = 200
  154. end
  155. end