192 lines
4.0 KiB
Plaintext
Executable File
192 lines
4.0 KiB
Plaintext
Executable File
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
|