| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687 |
- object frMain: TfrMain
- Left = 259
- Height = 160
- Top = 149
- Width = 320
- Caption = 'HTTP server SSE example'
- ClientHeight = 160
- ClientWidth = 320
- Position = poDesktopCenter
- LCLVersion = '2.0.10.0'
- object lbPort: TLabel
- Left = 20
- Height = 15
- Top = 22
- Width = 22
- Caption = 'Port'
- ParentColor = False
- end
- object edPort: TSpinEdit
- Left = 49
- Height = 23
- Top = 17
- Width = 66
- MaxValue = 65535
- OnChange = edPortChange
- TabOrder = 2
- end
- object btStart: TButton
- Left = 128
- Height = 25
- Top = 18
- Width = 75
- Action = acStart
- TabOrder = 0
- end
- object btStop: TButton
- Left = 216
- Height = 25
- Top = 18
- Width = 75
- Action = acStop
- TabOrder = 1
- end
- object lbLink: TLabel
- Cursor = crHandPoint
- Left = 20
- Height = 15
- Top = 64
- Width = 83
- Caption = 'http://localhost'
- Enabled = False
- Font.Color = clBlue
- Font.Style = [fsUnderline]
- ParentColor = False
- ParentFont = False
- OnClick = lbLinkClick
- OnMouseEnter = lbLinkMouseEnter
- OnMouseLeave = lbLinkMouseLeave
- end
- object alMain: TActionList
- Left = 48
- Top = 60
- object acStart: TAction
- Category = 'HTTP server'
- Caption = '&Start'
- OnExecute = acStartExecute
- ShortCut = 120
- end
- object acStop: TAction
- Category = 'HTTP server'
- Caption = 'S&top'
- Enabled = False
- OnExecute = acStopExecute
- ShortCut = 121
- end
- end
- object BrookHTTPServer1: TBrookHTTPServer
- Threaded = True
- NoFavicon = True
- OnRequest = BrookHTTPServer1Request
- OnRequestError = BrookHTTPServer1RequestError
- OnStart = BrookHTTPServer1Start
- OnStop = BrookHTTPServer1Stop
- Left = 176
- Top = 60
- end
- end
|