192 lines
4.0 KiB
Plaintext
192 lines
4.0 KiB
Plaintext
|
object frmSocketTerminal: TfrmSocketTerminal
|
||
|
Left = 192
|
||
|
Top = 110
|
||
|
ActiveControl = rtfEnter
|
||
|
BorderStyle = bsDialog
|
||
|
Caption = 'Socket Terminal'
|
||
|
ClientHeight = 230
|
||
|
ClientWidth = 324
|
||
|
Color = clBtnFace
|
||
|
Font.Charset = DEFAULT_CHARSET
|
||
|
Font.Color = clWindowText
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Tahoma'
|
||
|
Font.Style = []
|
||
|
FormStyle = fsStayOnTop
|
||
|
OldCreateOrder = False
|
||
|
Position = poMainFormCenter
|
||
|
OnClose = FormClose
|
||
|
PixelsPerInch = 96
|
||
|
TextHeight = 13
|
||
|
object pnlSettings: TPanel
|
||
|
Left = 0
|
||
|
Top = 141
|
||
|
Width = 324
|
||
|
Height = 89
|
||
|
Align = alBottom
|
||
|
BevelOuter = bvNone
|
||
|
TabOrder = 2
|
||
|
object lblStatusCaption: TLabel
|
||
|
Left = 2
|
||
|
Top = 72
|
||
|
Width = 35
|
||
|
Height = 13
|
||
|
Caption = 'Status:'
|
||
|
Font.Charset = DEFAULT_CHARSET
|
||
|
Font.Color = clWindowText
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Tahoma'
|
||
|
Font.Style = []
|
||
|
ParentFont = False
|
||
|
end
|
||
|
object lblStatus: TLabel
|
||
|
Left = 40
|
||
|
Top = 72
|
||
|
Width = 69
|
||
|
Height = 13
|
||
|
Caption = 'not connected'
|
||
|
Font.Charset = DEFAULT_CHARSET
|
||
|
Font.Color = clRed
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Tahoma'
|
||
|
Font.Style = []
|
||
|
ParentFont = False
|
||
|
end
|
||
|
object lblSettings: TLabel
|
||
|
Left = 4
|
||
|
Top = 6
|
||
|
Width = 43
|
||
|
Height = 13
|
||
|
Caption = 'Settings:'
|
||
|
end
|
||
|
object pnlSettings2: TPanel
|
||
|
Left = 4
|
||
|
Top = 24
|
||
|
Width = 311
|
||
|
Height = 41
|
||
|
BevelOuter = bvLowered
|
||
|
TabOrder = 0
|
||
|
object lblHost: TLabel
|
||
|
Left = 4
|
||
|
Top = 3
|
||
|
Width = 26
|
||
|
Height = 13
|
||
|
Caption = 'Host:'
|
||
|
end
|
||
|
object lblPort: TLabel
|
||
|
Left = 130
|
||
|
Top = 3
|
||
|
Width = 24
|
||
|
Height = 13
|
||
|
Caption = 'Port:'
|
||
|
end
|
||
|
object txtHost: TFlatEdit
|
||
|
Left = 4
|
||
|
Top = 17
|
||
|
Width = 121
|
||
|
Height = 19
|
||
|
ColorFlat = clBtnFace
|
||
|
ParentColor = True
|
||
|
TabOrder = 0
|
||
|
end
|
||
|
object txtPort: TFlatEdit
|
||
|
Left = 130
|
||
|
Top = 17
|
||
|
Width = 39
|
||
|
Height = 19
|
||
|
ColorFlat = clBtnFace
|
||
|
ParentColor = True
|
||
|
TabOrder = 1
|
||
|
Text = '1'
|
||
|
OnChange = txtPortChange
|
||
|
end
|
||
|
object optUDP: TFlatRadioButton
|
||
|
Left = 176
|
||
|
Top = 20
|
||
|
Width = 39
|
||
|
Height = 17
|
||
|
Caption = 'UDP'
|
||
|
TabOrder = 3
|
||
|
OnClick = optTCPClick
|
||
|
end
|
||
|
object optTCP: TFlatRadioButton
|
||
|
Left = 176
|
||
|
Top = 4
|
||
|
Width = 35
|
||
|
Height = 15
|
||
|
Caption = 'TCP'
|
||
|
Checked = True
|
||
|
TabOrder = 2
|
||
|
TabStop = True
|
||
|
OnClick = optTCPClick
|
||
|
end
|
||
|
object cmdConnect: TFlatButton
|
||
|
Left = 224
|
||
|
Top = 10
|
||
|
Width = 77
|
||
|
Height = 21
|
||
|
ColorHighLight = 8623776
|
||
|
ColorShadow = 8623776
|
||
|
Caption = 'Connect'
|
||
|
TabOrder = 4
|
||
|
OnClick = cmdConnectClick
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
object rtfEnter: TRichEdit
|
||
|
Left = 0
|
||
|
Top = 121
|
||
|
Width = 324
|
||
|
Height = 20
|
||
|
Align = alBottom
|
||
|
TabOrder = 1
|
||
|
WantReturns = False
|
||
|
OnKeyPress = rtfEnterKeyPress
|
||
|
end
|
||
|
object rtfReceived: TRichEdit
|
||
|
Left = 0
|
||
|
Top = 0
|
||
|
Width = 324
|
||
|
Height = 121
|
||
|
Align = alClient
|
||
|
ScrollBars = ssVertical
|
||
|
TabOrder = 0
|
||
|
end
|
||
|
object IdTCPClient: TIdTCPClient
|
||
|
MaxLineAction = maSplit
|
||
|
OnDisconnected = IdTCPClientDisconnected
|
||
|
OnConnected = IdTCPClientConnected
|
||
|
Port = 0
|
||
|
Left = 4
|
||
|
Top = 4
|
||
|
end
|
||
|
object IdUDPClient: TIdUDPClient
|
||
|
OnStatus = IdUDPClientStatus
|
||
|
Port = 0
|
||
|
Left = 4
|
||
|
Top = 34
|
||
|
end
|
||
|
object alCopyPaste: TActionList
|
||
|
Left = 4
|
||
|
Top = 64
|
||
|
object acCopy: TAction
|
||
|
Caption = 'Copy'
|
||
|
ShortCut = 16451
|
||
|
OnExecute = acCopyExecute
|
||
|
end
|
||
|
object acPaste: TAction
|
||
|
Caption = 'Paste'
|
||
|
ShortCut = 16470
|
||
|
OnExecute = acPasteExecute
|
||
|
end
|
||
|
object acUndo: TAction
|
||
|
Caption = 'Undo'
|
||
|
OnExecute = acUndoExecute
|
||
|
end
|
||
|
object acSelectAll: TAction
|
||
|
Caption = 'Select all'
|
||
|
OnExecute = acSelectAllExecute
|
||
|
end
|
||
|
end
|
||
|
end
|