Chip 2004 July/CMCD0704.ISO/Software/Shareware/Comunicatii/zrcserv/setup.exe/%MAINDIR%/ZRCG.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2004-05-19 | 10.5 KB | 467 lines

object MainForm: TMainForm
  Left = 157
  Top = 199
  AutoScroll = False
  ClientHeight = 464
  ClientWidth = 519
  Color = clBtnFace
  DockSite = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnHelp = FormHelp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 191
    Width = 519
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ResizeStyle = rsUpdate
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 445
    Width = 519
    Height = 19
    AutoHint = True
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 519
    Height = 29
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    Indent = 5
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 5
      Top = 0
      Action = FileConnA
    end
    object ToolButton4: TToolButton
      Left = 28
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 34
      Style = tbsDivider
    end
    object ToolButton5: TToolButton
      Left = 36
      Top = 0
      Action = FileNewA
    end
    object ToolButton2: TToolButton
      Left = 59
      Top = 0
      Action = FileDelA
    end
    object ToolButton3: TToolButton
      Left = 82
      Top = 0
      Action = FilePropsA
    end
  end
  object ServersLV: TListView
    Left = 0
    Top = 46
    Width = 519
    Height = 145
    Align = alTop
    Columns = <
      item
        Caption = 'Name'
        Width = 90
      end
      item
        Caption = 'Host'
        Width = 110
      end
      item
        Caption = 'Port'
      end>
    Constraints.MinHeight = 32
    HideSelection = False
    IconOptions.AutoArrange = True
    LargeImages = ImageList3
    ReadOnly = True
    PopupMenu = ServersPM
    SmallImages = ImageList2
    SortType = stText
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = ServersLVChange
    OnDblClick = FileConnAExecute
  end
  object SessionLV: TListView
    Left = 0
    Top = 211
    Width = 519
    Height = 234
    Align = alClient
    Columns = <
      item
        Caption = 'Server'
        Width = 70
      end
      item
        Caption = 'User'
        Width = 45
      end
      item
        Caption = 'ID'
        Width = 35
      end
      item
        Caption = 'Since'
      end
      item
        Caption = 'Keepalive'
      end>
    Constraints.MinHeight = 32
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    PopupMenu = SessionsPM
    SmallImages = ImageList2
    SortType = stText
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = Reconnect1Click
    OnEnter = SessionLVEnter
    OnKeyUp = SessionLVKeyUp
  end
  object StaticText1: TStaticText
    Left = 0
    Top = 194
    Width = 519
    Height = 17
    Align = alTop
    AutoSize = False
    Caption = ' Pending Sessions'
    Color = clInactiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object StaticText2: TStaticText
    Left = 0
    Top = 29
    Width = 519
    Height = 17
    Align = alTop
    AutoSize = False
    Caption = ' Servers'
    Color = clInactiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 3
  end
  object ImageList1: TImageList
    DrawingStyle = dsTransparent
    ShareImages = True
    Left = 8
    Top = 269
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Options = [fdFixedPitchOnly, fdForceFontExist]
    Left = 47
    Top = 234
  end
  object ImageList2: TImageList
    DrawingStyle = dsTransparent
    ShareImages = True
    Left = 78
    Top = 269
  end
  object ServersPM: TPopupMenu
    OnPopup = ServersPMPopup
    Left = 134
    Top = 236
    object ConnectMenu: TMenuItem
      Action = FileConnA
      Default = True
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object New1: TMenuItem
      Action = FileNewA
    end
    object Delete2: TMenuItem
      Action = FileDelA
    end
    object Edit3: TMenuItem
      Action = FilePropsA
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object LargeIcons2: TMenuItem
      Action = IconLargeA
      GroupIndex = 1
      RadioItem = True
    end
    object List2: TMenuItem
      Action = IconsListA
      GroupIndex = 1
      RadioItem = True
    end
    object Details2: TMenuItem
      Action = IconsDetailsA
      GroupIndex = 1
      RadioItem = True
    end
  end
  object SessionsPM: TPopupMenu
    OnPopup = SessionsPMPopup
    Left = 93
    Top = 236
    object Reconnect1: TMenuItem
      Caption = '&Reconnect'
      Default = True
      OnClick = Reconnect1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object Properties1: TMenuItem
      Caption = '&Properties...'
      Visible = False
    end
    object Delete3: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = Delete3Click
    end
  end
  object PendingTimer: TTimer
    OnTimer = PendingTimerTimer
    Left = 243
    Top = 277
  end
  object ElWinCertStorage1: TElWinCertStorage
    Left = 273
    Top = 273
  end
  object ElTrayIcon1: TElTrayIcon
    PopupMenu = TrayPM
    OnDblClick = ElTrayIcon1DblClick
    StaticIcon.Data = {
      0000010001001010100000000000280100001600000028000000100000002000
      00000100040000000000C0000000000000000000000000000000000000000000
      0000000080000080000000808000800000008000800080800000C0C0C0008080
      80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0080000000000000008000000000000000800000000000000000000000000888
      88888888800008F777770007800088FFFFFFFFFF808800800000000080000087
      777777780000008F044444780000008F0CCCC4780000008F0CCCC4780000008F
      0ECCC4780000008F000000780000008FFFFFFF7800000008888888880000FCFF
      0000FCFF0000FCFF0000C0070000800300000000000000000000C0030000C003
      0000C0070000C0070000C0070000C0070000C0070000C0070000E00F0000}
    Enabled = True
    ExtendedHintDelay = 500
    TrayInfoSettings.InfoType = titError
    TrayInfoSettings.Font.Charset = DEFAULT_CHARSET
    TrayInfoSettings.Font.Color = clWindowText
    TrayInfoSettings.Font.Height = -11
    TrayInfoSettings.Font.Name = 'MS Sans Serif'
    TrayInfoSettings.Font.Style = []
    IconID = 743208597
    Left = 317
    Top = 274
  end
  object TrayPM: TPopupMenu
    OnPopup = TrayPMPopup
    Left = 205
    Top = 239
    object Show1: TMenuItem
      Caption = '&Show'
      Default = True
      OnClick = Show1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object About1: TMenuItem
      Caption = '&Help'
      object Contents2: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object About3: TMenuItem
        Caption = '&About'
        OnClick = About2Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Exit1: TMenuItem
      Caption = '&Exit'
      OnClick = Exit1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 168
    Top = 239
    object File1: TMenuItem
      Caption = 'Server'
      object New2: TMenuItem
        Action = FileNewA
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Connect1: TMenuItem
        Action = FileConnA
      end
      object Delete1: TMenuItem
        Action = FileDelA
      end
      object Properties2: TMenuItem
        Action = FilePropsA
        Hint = 'Displays properties of the selected server.'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Exit2: TMenuItem
        Action = FileExitA
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object Largeicons1: TMenuItem
        Action = IconLargeA
        GroupIndex = 1
        RadioItem = True
      end
      object List1: TMenuItem
        Action = IconsListA
        GroupIndex = 1
        RadioItem = True
      end
      object Details1: TMenuItem
        Action = IconsDetailsA
        GroupIndex = 1
        RadioItem = True
      end
      object N5: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Preferences1: TMenuItem
        Caption = 'Preferences..'
        GroupIndex = 1
        OnClick = Preferences1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object Contents1: TMenuItem
        Caption = 'Contents'
        OnClick = Contents1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object About2: TMenuItem
        Caption = 'About'
        OnClick = About2Click
      end
    end
  end
  object ActionList1: TActionList
    Left = 240
    Top = 226
    object IconLargeA: TAction
      Caption = 'Large Icons'
      GroupIndex = 1
      Hint = 'Displays records by using large icons.'
      OnExecute = IconLargeAExecute
    end
    object IconsListA: TAction
      Caption = 'List'
      Checked = True
      GroupIndex = 1
      Hint = 'Displays records in a list.'
      OnExecute = IconsListAExecute
    end
    object IconsDetailsA: TAction
      Caption = 'Details'
      GroupIndex = 1
      Hint = 'Displays information about each server record.'
      OnExecute = IconsDetailsAExecute
    end
    object FileExitA: TAction
      Caption = 'Exit'
      OnExecute = FileExitAExecute
    end
    object FileConnA: TAction
      Caption = 'Connect'
      Hint = 'Connect to the selected server.'
      ImageIndex = 31
      OnExecute = FileConnAExecute
    end
    object FileNewA: TAction
      Caption = 'New'
      Hint = 'Creates a new server record.'
      OnExecute = FileNewAExecute
    end
    object FileDelA: TAction
      Caption = 'Delete'
      Hint = 'Deletes the selected server record.'
      ImageIndex = 32
      OnExecute = FileDelAExecute
    end
    object FilePropsA: TAction
      Caption = 'Properties'
      Hint = 'Displays the properties of the selected server.'
      ImageIndex = 33
      OnExecute = FilePropsAExecute
    end
  end
  object ImageList3: TImageList
    BlendColor = clWindow
    Height = 32
    ShareImages = True
    Width = 32
    Left = 44
    Top = 268
  end
end