You've already forked lazarus-ccr
78 lines
1.5 KiB
Plaintext
78 lines
1.5 KiB
Plaintext
|
object fMain: TfMain
|
||
|
|
Left = 290
|
||
|
|
Height = 300
|
||
|
|
Top = 180
|
||
|
|
Width = 400
|
||
|
|
HorzScrollBar.Page = 399
|
||
|
|
VertScrollBar.Page = 299
|
||
|
|
ActiveControl = Button1
|
||
|
|
Caption = 'Simple TCP App Server'
|
||
|
|
ClientHeight = 300
|
||
|
|
ClientWidth = 400
|
||
|
|
OnCreate = FormCreate
|
||
|
|
PixelsPerInch = 96
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 16
|
||
|
|
Height = 14
|
||
|
|
Top = 72
|
||
|
|
Width = 18
|
||
|
|
Caption = 'Log'
|
||
|
|
Color = clNone
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Button1: TButton
|
||
|
|
Left = 16
|
||
|
|
Height = 25
|
||
|
|
Top = 8
|
||
|
|
Width = 104
|
||
|
|
Action = actStart
|
||
|
|
BorderSpacing.InnerBorder = 2
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object mmoLog: TMemo
|
||
|
|
Left = 8
|
||
|
|
Height = 192
|
||
|
|
Top = 96
|
||
|
|
Width = 384
|
||
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
|
ReadOnly = True
|
||
|
|
ScrollBars = ssAutoBoth
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object Button2: TButton
|
||
|
|
Left = 16
|
||
|
|
Height = 25
|
||
|
|
Top = 40
|
||
|
|
Width = 104
|
||
|
|
Action = actStop
|
||
|
|
BorderSpacing.InnerBorder = 2
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object edtPort: TEdit
|
||
|
|
Left = 128
|
||
|
|
Height = 23
|
||
|
|
Top = 10
|
||
|
|
Width = 80
|
||
|
|
TabOrder = 3
|
||
|
|
Text = '1234'
|
||
|
|
end
|
||
|
|
object AL: TActionList
|
||
|
|
left = 152
|
||
|
|
top = 32
|
||
|
|
object actStart: TAction
|
||
|
|
Caption = 'Start( Port=)'
|
||
|
|
OnExecute = actStartExecute
|
||
|
|
OnUpdate = actStartUpdate
|
||
|
|
end
|
||
|
|
object actStop: TAction
|
||
|
|
Caption = 'Stop'
|
||
|
|
OnExecute = actStopExecute
|
||
|
|
OnUpdate = actStopUpdate
|
||
|
|
end
|
||
|
|
object actClearLog: TAction
|
||
|
|
Caption = 'Clear Log'
|
||
|
|
OnExecute = actClearLogExecute
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|