RnQ/RnQ/mainDlg.dfm

object RnQmain: TRnQmain
  Left = 1660
  Top = 540
  Width = 181
  Height = 419
  HorzScrollBar.Tracking = True
  HorzScrollBar.Visible = False
  VertScrollBar.Tracking = True
  AlphaBlend = True
  AutoScroll = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSizeToolWin
  Caption = 'R&Q'
  Color = 8314031
  TransparentColorValue = clBackground
  Constraints.MinHeight = 85
  Constraints.MinWidth = 130
  DefaultMonitor = dmDesktop
  DoubleBuffered = True
  ParentFont = True
  OldCreateOrder = False
  Position = poDesigned
  ScreenSnap = True
  SnapBuffer = 15
  StyleElements = [seFont]
  OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
  OnClick = ANothingExecute
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TopLbl: TLabel
    Left = 0
    Top = 0
    Width = 165
    Height = 13
    Align = alTop
    Alignment = taCenter
    Caption = 'R&Q'
    ShowAccelChar = False
    Transparent = False
    Visible = False
    OnDblClick = TopLblDblClick
  end
  object bar: TPanel
    Left = 0
    Top = 357
    Width = 165
    Height = 23
    Align = alBottom
    BevelEdges = []
    BevelOuter = bvNone
    DoubleBuffered = False
    FullRepaint = False
    ParentColor = True
    ParentDoubleBuffered = False
    TabOrder = 0
    StyleElements = [seFont, seBorder]
    object menuBtn: TRnQSpeedButton
      Left = 0
      Top = 0
      Width = 21
      Height = 23
      Hint = 'Menu'
      Align = alLeft
      Constraints.MinHeight = 21
      Flat = True
      ParentShowHint = False
      ShowHint = True
      ImageName = 'rnq'
      OnClick = menuBtnClick
    end
    object statusBtn: TRnQSpeedButton
      Left = 21
      Top = 0
      Width = 21
      Height = 23
      Hint = 'Status'
      Align = alLeft
      Constraints.MinHeight = 21
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = statusBtnClick
      OnMouseUp = statusBtnMouseUp
    end
    object visibilityBtn: TRnQSpeedButton
      Left = 42
      Top = 0
      Width = 21
      Height = 23
      Hint = 'Visibility'
      Align = alLeft
      Constraints.MinHeight = 21
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = visibilityBtnClick
    end
  end
  object FilterBar: TPanel
    Left = 0
    Top = 13
    Width = 165
    Height = 24
    Align = alTop
    BevelEdges = []
    BevelOuter = bvNone
    DoubleBuffered = False
    FullRepaint = False
    ParentBackground = False
    ParentDoubleBuffered = False
    TabOrder = 2
    object FilterClearBtn: TRnQSpeedButton
      AlignWithMargins = True
      Left = 141
      Top = 3
      Width = 21
      Height = 18
      Hint = 'Clear filter text'
      Align = alRight
      Flat = True
      ImageName = 'cancel'
      OnClick = FilterClearBtnClick
    end
    object FilterEdit: TEdit
      AlignWithMargins = True
      Left = 3
      Top = 3
      Width = 134
      Height = 18
      Margins.Right = 1
      Align = alClient
      TabOrder = 0
      OnChange = FilterEditChange
      OnKeyDown = FilterEditKeyDown
    end
  end
  object roster: TVirtualDrawTree
    Left = 0
    Top = 37
    Width = 165
    Height = 320
    Align = alClient
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    ButtonStyle = bsTriangle
    Color = clBtnFace
    DragOperations = [doMove]
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = 0
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    Header.ParentFont = True
    HintAnimation = hatNone
    HintMode = hmHint
    NodeDataSize = 4
    ScrollBarOptions.ScrollBars = ssVertical
    TabOrder = 1
    TextMargin = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
    TreeOptions.PaintOptions = [toHideFocusRect, toHideSelection, toThemeAware, toUseBlendedImages, toAlwaysHideSelection, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
    OnClick = rosterClick
    OnCollapsed = rosterCollapsed
    OnCollapsing = rosterCollapsing
    OnCompareNodes = rosterCompareNodes
    OnDblClick = rosterDblClick
    OnDragOver = rosterDragOver
    OnDragDrop = rosterDragDrop
    OnDrawHint = rosterDrawHint
    OnDrawNode = rosterDrawNode
    OnExpanded = rosterCollapsed
    OnFocusChanged = rosterFocusChanged
    OnFocusChanging = rosterFocusChanging
    OnGetHintSize = rosterGetHintSize
    OnKeyDown = rosterKeyDown
    OnKeyPress = rosterKeyPress
    OnKeyUp = rosterKeyUp
    OnMouseDown = rosterMouseDown
    OnMouseMove = rosterMouseMove
    OnMouseUp = rosterMouseUp
    OnMouseWheel = rosterMouseWheel
    Touch.InteractiveGestures = [igPan, igPressAndTap]
    Touch.InteractiveGestureOptions = [igoPanSingleFingerVertical, igoParentPassthrough]
    Columns = <>
  end
  object menu: TPopupMenu
    Tag = 666
    Alignment = paRight
    AutoHotkeys = maManual
    AutoPopup = False
    OnPopup = menuPopup
    Left = 8
    Top = 184
    object Status1: TMenuItem
      Action = mAStatus
    end
    object mainmenuvisibility1: TMenuItem
      Action = mAvisibility
    end
    object mainmenuaddcontacts1: TMenuItem
      Action = mAaddcontacts
      object Whitepages1: TMenuItem
        Action = mAWhitepages
      end
      object byUIN1: TMenuItem
        Action = mAbyUIN
        Caption = 'Add using UIN'
      end
    end
    object mainmenuprivacysecurity1: TMenuItem
      Action = mAprivacysecurity
      object Password1: TMenuItem
        Action = mAPassword
      end
      object Lock1: TMenuItem
        Action = mALock
      end
    end
    object mainmenuspecial1: TMenuItem
      Action = mAspecial
      object Viewinfoof1: TMenuItem
        Action = mAViewinfoof
      end
      object Openchatwith1: TMenuItem
        Action = mAOpenchatwith
      end
      object Searchinhist1: TMenuItem
        Action = mASearchInHist
      end
      object mainmenuoutbox1: TMenuItem
        Action = mAoutbox
      end
      object Contactsdatabase1: TMenuItem
        Action = mAContactsdatabase
      end
      object Showlogwindow1: TMenuItem
        Action = mAShowlogwindow
      end
      object SendanSMS1: TMenuItem
        Action = mASendanSMS
        Visible = False
      end
      object mainmenureloadlang1: TMenuItem
        Action = mAreloadlang
      end
      object mmrequestCL: TMenuItem
        Action = mARequestCL
      end
    end
    object mainmenuthemes1: TMenuItem
      Action = mAthemes
      object mainmenureloadtheme2: TMenuItem
        Action = mAreloadtheme
      end
      object mainmenugetthemes1: TMenuItem
        Action = mARefreshThemeList
      end
      object Opencontactstheme: TMenuItem
        Action = mAThmCntEdt
      end
      object SmilesMenu: TMenuItem
        Action = mASmiles
      end
      object SoundsMenu: TMenuItem
        Action = mASounds
      end
      object N10: TMenuItem
        Caption = '-'
      end
    end
    object mainmenusupport1: TMenuItem
      Action = mAsupport
      AutoHotkeys = maManual
      object Checkforupdates1: TMenuItem
        Action = mACheckforupdates
      end
      object N8: TMenuItem
        Caption = '-'
        Hint = 'web'
      end
      object RQhomepage1: TMenuItem
        Tag = 3010
        Caption = 'R&&Q Portal'
        Hint = 'http://RnQ.ru'
        OnClick = RQhomepage1Click
      end
      object RQHelp1: TMenuItem
        Tag = 3010
        Caption = 'R&&Q Help'
        Hint = 'http://Help.RnQ.ru'
        OnClick = RQHelp1Click
      end
      object MMGenError: TMenuItem
        Caption = 'Generate error'
        OnClick = MMGenErrorClick
      end
    end
    object mainmenuchangeadduser1: TMenuItem
      Action = mAchangeadduser
      Caption = 'Switch user'
    end
  end
  object contactMenu: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = contactMenuPopup
    Left = 40
    Top = 80
    object Sendmessage1: TMenuItem
      Action = ASendmessage1
      Default = True
    end
    object Sendcontacts1: TMenuItem
      Action = ASendcontacts1
    end
    object Sendemail1: TMenuItem
      Action = ASendemail1
    end
    object SendSMS1: TMenuItem
      Action = ASendSMS
    end
    object Addtoserver1: TMenuItem
      Action = cAAdd2Server
    end
    object authReq: TMenuItem
      Action = cAAuthReqst
    end
    object Authgrant: TMenuItem
      Action = cAAuthGrant
    end
    object Requestavatar1: TMenuItem
      Action = ARequestAvt
    end
    object Mute1: TMenuItem
      Action = AMuteUnmute
      Caption = 'Mute'
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Viewinfo1: TMenuItem
      Action = AViewinfo1
    end
    object Openincomingfolder1: TMenuItem
      Caption = 'Open incoming folder'
      OnClick = Openincomingfolder1Click
    end
    object Addtocontactlist1: TMenuItem
      Action = AAddtocontactlist1
    end
    object movetogroup1: TMenuItem
      Action = cmAmovetogroup
    end
    object Rename1: TMenuItem
      Action = ARename1
    end
    object menuremovedyou1: TMenuItem
      Action = cARemFrHisCL
    end
    object Makelocal1: TMenuItem
      Action = cAMakeLocal
      Caption = 'Remove from server (keep local)'
    end
    object Delete1: TMenuItem
      Action = ADelete1
    end
    object Deleteonlyhistory1: TMenuItem
      Action = cADeleteOH
    end
    object Deletewithhistory1: TMenuItem
      Action = cADeleteWH
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Ignorelist1: TMenuItem
      Action = AIgnorelist1
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object UIN1: TMenuItem
      Action = AUIN1
    end
    object N5: TMenuItem
      Caption = '-'
    end
  end
  object divisorMenu: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = divisorMenuPopup
    Left = 40
    Top = 16
    object Newgroup1: TMenuItem
      Action = ANewgroup1
    end
    object Addcontact1: TMenuItem
      Action = gmANewContact
      Enabled = False
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object Openallgroups1: TMenuItem
      Action = AOpenallgroups1
    end
    object Closeallgroups1: TMenuItem
      Action = ACloseallgroups1
    end
    object Deleteallemptygroups1: TMenuItem
      Action = ADeleteallemptygroups1
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Showgroups3: TMenuItem
      Action = AShowgroups1
    end
    object ShowEmptyGrps: TMenuItem
      Action = AShowEmptyGroups1
    end
    object Showonlyonlinecontacts1: TMenuItem
      Action = AShowonlyonlinecontacts1
    end
    object menushowonlyimvisibleto1: TMenuItem
      Action = Amenushowonlyimvisibleto1
    end
    object Showallcontactsinone1: TMenuItem
      Action = AContInOne
    end
  end
  object groupMenu: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = groupMenuPopup
    Left = 40
    Top = 48
    object Newgroup2: TMenuItem
      Action = gmANewgroup
    end
    object Newcontact1: TMenuItem
      Action = gmANewContact
    end
    object Addtoserver2: TMenuItem
      Action = gmAAdd2Server
    end
    object Makelocal2: TMenuItem
      Action = gmAMakeLocal
      Caption = 'Remove from server (keep local)'
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Renamegroup1: TMenuItem
      Action = gmARenamegroup
    end
    object Deletegroup1: TMenuItem
      Action = gmADeletegroup
    end
    object Moveallcontactsto1: TMenuItem
      Action = gmAMoveallcontactsto
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Showgroups2: TMenuItem
      Tag = 3003
      Action = AShowgroups1
    end
  end
  object timer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = OnTimer
    Left = 80
    Top = 144
  end
  object ActList: TActionList
    Left = 80
    Top = 88
    object ASendmessage1: TAction
      Category = 'contactMenu'
      Caption = 'Send message'
      HelpKeyword = 'msg'
      HelpType = htContext
      OnExecute = Sendmessage1Click
    end
    object ASendcontacts1: TAction
      Category = 'contactMenu'
      Caption = 'Send contacts'
      HelpKeyword = 'contacts'
      HelpType = htContext
      OnExecute = Sendcontacts1Click
    end
    object ASendemail1: TAction
      Category = 'contactMenu'
      Caption = 'Send e-mail'
      HelpKeyword = 'mail'
      HelpType = htContext
      OnExecute = Sendemail1Click
      OnUpdate = ASendemail1Update
    end
    object ASendSMS: TAction
      Category = 'contactMenu'
      Caption = 'Send SMS'
      HelpKeyword = 'sms'
      OnExecute = ASendSMSExecute
      OnUpdate = ASendSMSUpdate
    end
    object cAAuthGrant: TAction
      Category = 'contactMenu'
      Caption = 'Grant Authorization'
      HelpKeyword = 'auth.grant'
      OnExecute = cAAuthGrantExecute
      OnUpdate = cAAuthGrantUpdate
    end
    object cAAuthReqst: TAction
      Category = 'contactMenu'
      Caption = 'Request Authorization'
      HelpKeyword = 'auth.req'
      OnExecute = authReqClick
      OnUpdate = cAAuthReqstUpdate
    end
    object AShowEmptyGroups1: TAction
      Category = 'divisorMenu'
      Caption = 'Show empty groups'
      OnExecute = AShowEmptyGroups1Execute
      OnUpdate = AShowEmptyGroups1Update
    end
    object ARequestAvt: TAction
      Category = 'contactMenu'
      Caption = 'Request avatar'
      HelpKeyword = 'avatar'
      OnExecute = Requestavatar1Click
      OnUpdate = ARequestAvtUpdate
    end
    object cARemFrHisCL: TAction
      Category = 'contactMenu'
      Caption = 'Remove me from his CL'
      HelpKeyword = 'delete'
      OnExecute = cARemFrHisCLExecute
      OnUpdate = cAAuthGrantUpdate
    end
    object Asplit1: TAction
      Category = 'contactMenu'
      Caption = '-'
    end
    object AViewinfo1: TAction
      Category = 'contactMenu'
      Caption = 'View info'
      HelpKeyword = 'info'
      HelpType = htContext
      OnExecute = Viewinfo1Click
      OnUpdate = AViewinfo1Update
    end
    object AReadautomessage1: TAction
      Category = 'contactMenu'
      Caption = 'Read auto-message'
      HelpKeyword = 'msg'
      HelpType = htContext
    end
    object AAddtocontactlist1: TAction
      Category = 'contactMenu'
      Caption = 'Add to contact list'
      HelpKeyword = 'add.contact'
      HelpType = htContext
      OnExecute = ANothingExecute
    end
    object cAAdd2Server: TAction
      Category = 'contactMenu'
      Caption = 'Add to server'
      HelpKeyword = 'add'
      HelpType = htContext
      OnExecute = cAAdd2ServerExecute
      OnUpdate = cAAdd2ServerUpdate
    end
    object cAMakeLocal: TAction
      Category = 'contactMenu'
      Caption = 'Make local'
      HelpKeyword = 'contact.local'
      HelpType = htContext
      OnExecute = cAMakeLocalExecute
      OnUpdate = cAMakeLocalUpdate
    end
    object cmAmovetogroup: TAction
      Category = 'contactMenu'
      Caption = 'Move to group'
      HelpKeyword = 'close.group'
      HelpType = htContext
      OnExecute = ANothingExecute
      OnUpdate = cmAmovetogroupUpdate
    end
    object ARename1: TAction
      Category = 'contactMenu'
      Caption = 'Rename'
      HelpKeyword = 'rename'
      HelpType = htContext
      OnExecute = Rename1Click
      OnUpdate = ARename1Update
    end
    object ADelete1: TAction
      Category = 'contactMenu'
      Caption = 'Delete'
      HelpKeyword = 'delete'
      OnExecute = Delete1Click
      OnUpdate = ADelete1Update
    end
    object cADeleteOH: TAction
      Category = 'contactMenu'
      Caption = 'Delete only history'
      HelpKeyword = 'delete'
      OnExecute = cADeleteOHExecute
      OnUpdate = cADeleteOHUpdate
    end
    object cADeleteWH: TAction
      Category = 'contactMenu'
      Caption = 'Delete with history'
      HelpKeyword = 'delete'
      OnExecute = cADeleteWHExecute
      OnUpdate = cADeleteWHUpdate
    end
    object Asplit2: TAction
      Category = 'contactMenu'
      Caption = '-'
    end
    object AIgnorelist1: TAction
      Category = 'contactMenu'
      Caption = 'Ignore list'
      OnExecute = Ignorelist1Click
      OnUpdate = AIgnorelist1Update
    end
    object Asplit3: TAction
      Category = 'contactMenu'
      Caption = '-'
    end
    object AUIN1: TAction
      Category = 'contactMenu'
      Hint = 'if you click the UIN will be copied into clipboard'
      OnExecute = UIN1Click
      OnUpdate = AUIN1Update
    end
    object ANewgroup1: TAction
      Category = 'divisorMenu'
      Caption = 'New group'
      HelpKeyword = 'new.group'
      OnExecute = Newgroup1Click
    end
    object ADivisor1: TAction
      Category = 'divisorMenu'
      Caption = '-'
    end
    object AOpenallgroups1: TAction
      Category = 'divisorMenu'
      Caption = 'Open all groups'
      HelpKeyword = 'open.group'
      OnExecute = Openallgroups1Click
    end
    object ACloseallgroups1: TAction
      Category = 'divisorMenu'
      Caption = 'Close all groups'
      HelpKeyword = 'close.group'
      OnExecute = Closeallgroups1Click
    end
    object ADeleteallemptygroups1: TAction
      Category = 'divisorMenu'
      Caption = 'Delete all empty groups'
      HelpKeyword = 'delete'
      OnExecute = Deleteallemptygroups1Click
    end
    object Adivisor2: TAction
      Category = 'divisorMenu'
      Caption = 'Adivisor2'
    end
    object AShowgroups1: TAction
      Category = 'divisorMenu'
      Caption = 'Show groups'
      OnExecute = AShowgroups1Execute
      OnUpdate = AShowgroups1Update
    end
    object AShowonlyonlinecontacts1: TAction
      Category = 'divisorMenu'
      Caption = 'Show only online contacts'
      OnExecute = Showonlyonlinecontacts1Click
      OnUpdate = AShowonlyonlinecontacts1Update
    end
    object Amenushowonlyimvisibleto1: TAction
      Category = 'divisorMenu'
      Caption = 'Show only contacts I'#39'm visible to'
      OnExecute = menushowonlyimvisibleto1Click
      OnUpdate = Amenushowonlyimvisibleto1Update
    end
    object gmANewgroup: TAction
      Category = 'groupMenu'
      Caption = 'New group'
      HelpKeyword = 'new.group'
      OnExecute = Newgroup1Click
    end
    object gmAdivisor1: TAction
      Category = 'groupMenu'
      Caption = '-'
    end
    object gmARenamegroup: TAction
      Category = 'groupMenu'
      Caption = 'Rename group'
      HelpKeyword = 'rename'
      OnExecute = Renamegroup1Click
      OnUpdate = gmARenamegroupUpdate
    end
    object gmADeletegroup: TAction
      Category = 'groupMenu'
      Caption = 'Delete group'
      HelpKeyword = 'delete'
      OnExecute = Deletegroup1Click
      OnUpdate = gmADeletegroupUpdate
    end
    object gmAMoveallcontactsto: TAction
      Category = 'groupMenu'
      Caption = 'Move all contacts to'
      HelpKeyword = 'close.group'
      OnExecute = ANothingExecute
      OnUpdate = gmAMoveallcontactstoUpdate
    end
    object gmADivisor2: TAction
      Category = 'groupMenu'
      Caption = '-'
    end
    object gmAShowgroups: TAction
      Category = 'groupMenu'
      Caption = 'Show groups'
      OnUpdate = AShowgroups1Update
    end
    object mAStatus: TAction
      Category = 'menu'
      Caption = 'Status'
      OnExecute = ANothingExecute
      OnUpdate = mAStatusUpdate
    end
    object mAvisibility: TAction
      Category = 'menu'
      Caption = 'Visibility'
      OnExecute = ANothingExecute
      OnUpdate = mAvisibilityUpdate
    end
    object mAaddcontacts: TAction
      Category = 'menu'
      Caption = 'Add contacts'
      HelpKeyword = 'add.contact'
      OnExecute = ANothingExecute
    end
    object mAWhitepages: TAction
      Category = 'menu'
      Caption = 'Search at white pages'
      HelpKeyword = 'wp'
      OnExecute = Whitepages1Click
    end
    object mAbyUIN: TAction
      Category = 'menu'
      Caption = 'by UIN'
      HelpKeyword = 'uin'
      OnExecute = byUIN1Click
    end
    object mAprivacysecurity: TAction
      Category = 'menu'
      Caption = 'Privacy && Security'
      HelpKeyword = 'key'
      OnExecute = ANothingExecute
    end
    object mAPassword: TAction
      Category = 'menu'
      Caption = 'Password'
      HelpKeyword = 'key'
      OnExecute = password1Click
    end
    object mALock: TAction
      Category = 'menu'
      Caption = 'Lock'
      HelpKeyword = 'key'
      OnExecute = Lock1Click
    end
    object mAspecial: TAction
      Category = 'menu'
      Caption = 'Special'
      HelpKeyword = 'special'
      OnExecute = ANothingExecute
    end
    object mAViewinfoof: TAction
      Category = 'menu'
      Caption = 'View info of...'
      HelpKeyword = 'info'
      OnExecute = Viewinfoof1Click
    end
    object mASearchInHist: TAction
      Category = 'menu'
      Caption = 'History search'
      HelpKeyword = 'search'
      OnExecute = mASearchInHistExecute
    end
    object mAOpenchatwith: TAction
      Category = 'menu'
      Caption = 'Open chat with...'
      HelpKeyword = 'msg'
      OnExecute = Openchatwith1Click
    end
    object mAContactsdatabase: TAction
      Category = 'menu'
      Caption = 'Contacts database'
      HelpKeyword = 'db'
      OnExecute = Contactsdatabase1Click
    end
    object mAShowlogwindow: TAction
      Category = 'menu'
      Caption = 'Show log window'
      HelpKeyword = 'history'
      OnExecute = Showlogwindow1Click
    end
    object mASendanSMS: TAction
      Category = 'menu'
      Caption = 'Send an SMS'
      HelpKeyword = 'sms'
      OnExecute = SendanSMS1Click
    end
    object mAreloadlang: TAction
      Category = 'menu'
      Caption = 'Reload current lang'
      HelpKeyword = 'refresh'
      OnExecute = mainmenureloadlang1Click
    end
    object mAthemes: TAction
      Category = 'menu'
      Caption = 'Themes'
      HelpKeyword = 'theme'
      OnExecute = ANothingExecute
    end
    object mAreloadtheme: TAction
      Category = 'menu'
      Caption = 'Reload current theme'
      HelpKeyword = 'refresh'
      OnExecute = mainmenureloadtheme1Click
    end
    object mAsupport: TAction
      Category = 'menu'
      Caption = 'Support'
      HelpKeyword = 'support'
      OnExecute = ANothingExecute
    end
    object mACheckforupdates: TAction
      Category = 'menu'
      Caption = 'Check for updates'
      HelpKeyword = 'download'
      OnExecute = Checkforupdates1Click
    end
    object mAoutbox: TAction
      Category = 'menu'
      Caption = 'Outbox'
      HelpKeyword = 'outbox'
      OnExecute = Outbox1Click
    end
    object mAchangeadduser: TAction
      Category = 'menu'
      Caption = 'Users (change/add/remove)'
      HelpKeyword = 'users'
      OnExecute = Changeoradduser1Click
    end
    object mARequestCL: TAction
      Category = 'menu'
      Caption = 'Load contact list from Server'
      HelpKeyword = 'request.contact.list'
      OnExecute = mARequestCLExecute
      OnUpdate = mARequestCLUpdate
    end
    object mASinchrCL: TAction
      Category = 'menu'
      Caption = 'Syncronize CL with Server'
      OnUpdate = mASinchrCLUpdate
    end
    object mARefreshThemeList: TAction
      Category = 'menu'
      Caption = 'Refresh theme-list'
      HelpKeyword = 'reload.theme.list'
      OnExecute = mainmenugetthemes1Click
    end
    object AContInOne: TAction
      Category = 'divisorMenu'
      Caption = 'Not separate by online\offline'
      OnExecute = Showallcontactsinone1Click
      OnUpdate = AContInOneUpdate
    end
    object gmANewContact: TAction
      Category = 'groupMenu'
      Caption = 'Add contact'
      HelpKeyword = 'add.contact'
      OnExecute = byUIN1Click
    end
    object gmANewContactLocal: TAction
      Category = 'groupMenu'
      Caption = 'Add contact locally'
      HelpKeyword = 'add.contact'
    end
    object gmAAdd2Server: TAction
      Category = 'groupMenu'
      Caption = 'Add to server'
      HelpKeyword = 'add'
      HelpType = htContext
      OnExecute = gmAAdd2ServerExecute
      OnUpdate = gmAAdd2ServerUpdate
    end
    object gmAMakeLocal: TAction
      Category = 'groupMenu'
      Caption = 'Make local'
      HelpKeyword = 'contact.local'
      HelpType = htContext
      OnExecute = gmAMakeLocalExecute
      OnUpdate = gmAMakeLocalUpdate
    end
    object mAThmCntEdt: TAction
      Category = 'menu'
      Caption = 'Open contacts-theme'
      HelpKeyword = 'theme'
      Hint = 'Open contacts-theme in notepad'
      OnExecute = mAThmCntEdtExecute
    end
    object mASmiles: TAction
      Category = 'menu'
      Caption = 'Smiles'
      HelpKeyword = 'smiles'
      OnExecute = ANothingExecute
    end
    object mASounds: TAction
      Category = 'menu'
      Caption = 'Sounds'
      HelpKeyword = 'sounds'
      OnExecute = ANothingExecute
    end
    object AMuteUnmute: TAction
      Category = 'contactMenu'
      OnExecute = AMuteUnmuteExecute
      OnUpdate = AMuteUnmuteUpdate
    end
  end
end