object EditDesktopServer: TEditDesktopServer Left = 57 Top = 533 BorderIcons = [] BorderStyle = bsDialog Caption = 'Edit desktop server connection' ClientHeight = 127 ClientWidth = 344 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False PixelsPerInch = 120 TextHeight = 16 object txTitle: TLabel Left = 6 Top = 7 Width = 63 Height = 20 AutoSize = False Caption = '&Title:' FocusControl = tbTitle end object txServer: TLabel Left = 6 Top = 35 Width = 63 Height = 20 AutoSize = False Caption = '&Server:' FocusControl = tbServer end object Label1: TLabel Left = 6 Top = 63 Width = 63 Height = 20 AutoSize = False Caption = '&Channel:' FocusControl = tbTitle end object txPort: TLabel Left = 244 Top = 35 Width = 41 Height = 16 AutoSize = False Caption = '&Port:' FocusControl = tbPort end object tbTitle: TEdit Left = 68 Top = 4 Width = 269 Height = 24 TabOrder = 0 Text = 'Unnamed connection' end object tbServer: TEdit Left = 68 Top = 32 Width = 149 Height = 24 TabOrder = 1 end object tbChannel: TEdit Left = 68 Top = 60 Width = 269 Height = 24 TabOrder = 3 end object OKBtn: TNashButton Left = 176 Top = 92 Width = 77 Height = 30 Caption = 'OK' TabOrder = 4 OnClick = OKBtnClick HoverFont.Color = clGreen HoverFont.Height = -13 HoverFont.Name = 'MS Sans Serif' HoverFont.Style = [fsUnderline] HoverHighlight = True end object CancelBtn: TNashButton Left = 260 Top = 92 Width = 77 Height = 30 Caption = 'Cancel' TabOrder = 5 OnClick = CancelBtnClick HoverFont.Color = clRed HoverFont.Height = -13 HoverFont.Name = 'MS Sans Serif' HoverFont.Style = [fsUnderline] HoverHighlight = True end object tbPort: TMaskEdit Left = 276 Top = 32 Width = 61 Height = 24 EditMask = '09999;; ' MaxLength = 5 TabOrder = 2 Text = '6667 ' end end