You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
RnQ/RnQ/mainDlg.dfm

1175 lines
32 KiB
Plaintext

object RnQmain: TRnQmain
Left = 1657
Top = 247
Width = 182
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
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesigned
ScreenSnap = True
SnapBuffer = 15
StyleElements = [seFont]
OnActivate = AppActivate
OnClick = ANothingExecute
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDeactivate = AppActivate
OnHide = FormHide
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object TopLbl: TLabel
Left = 0
Top = 0
Width = 168
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'R&Q'
ShowAccelChar = False
Transparent = False
Visible = False
OnDblClick = TopLblDblClick
ExplicitWidth = 22
end
object bar: TPanel
Left = 0
Top = 359
Width = 168
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
ExplicitHeight = 22
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
ExplicitHeight = 22
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
ExplicitHeight = 22
end
end
object FilterBar: TPanel
Left = 0
Top = 13
Width = 168
Height = 24
Align = alTop
BevelEdges = []
BevelOuter = bvNone
DoubleBuffered = False
FullRepaint = False
ParentBackground = False
ParentDoubleBuffered = False
TabOrder = 3
object FilterClearBtn: TRnQSpeedButton
AlignWithMargins = True
Left = 144
Top = 3
Width = 21
Height = 18
Hint = 'Clear filter text'
Align = alRight
Flat = True
ImageName = 'cancel'
OnClick = FilterClearBtnClick
ExplicitLeft = 119
ExplicitTop = 1
ExplicitHeight = 21
end
object FilterEdit: TEdit
AlignWithMargins = True
Left = 3
Top = 3
Width = 137
Height = 18
Margins.Right = 1
Align = alClient
TabOrder = 0
OnChange = FilterEditChange
OnKeyDown = FilterEditKeyDown
ExplicitHeight = 21
end
end
object roster: TVirtualDrawTree
Left = 0
Top = 58
Width = 168
Height = 301
Align = alClient
BevelEdges = []
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
ButtonStyle = bsTriangle
CheckImageKind = ckLightTick
Color = clBtnFace
DragOperations = [doMove]
DrawSelectionMode = smBlendedRectangle
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
HintAnimation = hatNone
HintMode = hmHint
NodeDataSize = 4
ScrollBarOptions.ScrollBars = ssVertical
TabOrder = 1
TextMargin = 0
TreeOptions.AnimationOptions = [toAnimatedToggle]
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]
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
OnMeasureItem = rosterMeasureItem
OnMouseDown = rosterMouseDown
OnMouseMove = rosterMouseMove
OnMouseUp = rosterMouseUp
OnMouseWheel = rosterMouseWheel
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerVertical, igoParentPassthrough]
Columns = <>
end
object MlCntBtn: TRnQButton
Left = 0
Top = 37
Width = 168
Height = 21
Align = alTop
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 2
OnClick = MlCntBtnClick
ImageName = 'mail'
Spacing = 0
end
object menu: TPopupMenu
Tag = 666
Alignment = paRight
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
end
end
object mainmenuprivacysecurity1: TMenuItem
Action = mAprivacysecurity
object Password1: TMenuItem
Action = mAPassword
end
object in_visiblelist1: TMenuItem
Action = mAin_visiblelist
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 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 Automessages1: TMenuItem
Action = mAAutomessages
end
object mainmenureloadlang1: TMenuItem
Action = mAreloadlang
end
object mainmenuimportclb: TMenuItem
Action = mAimportclb
Visible = False
end
object mainmenuexportclb: TMenuItem
Action = mAexportclb
Visible = False
end
object mmrequestCL: TMenuItem
Action = mARequestCL
end
object mmSinchrServCL: TMenuItem
Action = mASinchrCL
end
object ViewSSI1: TMenuItem
Action = mAViewSSI
end
object Historyutilities1: TMenuItem
Action = mAHistoryUtils
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 mmChkInvisAll: TMenuItem
Action = mAChkInvisAll
end
object mainmenugetofflinemsgs1: TMenuItem
Action = mAgetofflinemsgs
end
object mainmenudeleteofflinemsgs1: TMenuItem
Action = mAdeleteofflinemsgs
Visible = False
end
object mainmenuchangeadduser1: TMenuItem
Action = mAchangeadduser
end
end
object contactMenu: TPopupMenu
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 Sendfile1: TMenuItem
Action = cASendFile
end
object SendSMS1: TMenuItem
Action = ASendSMS
end
object menusendaddedyou1: TMenuItem
Action = Amenusendaddedyou1
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 N9: TMenuItem
Caption = '-'
end
object Viewinfo1: TMenuItem
Action = AViewinfo1
end
object Readautomessage1: TMenuItem
Action = AReadautomessage1
end
object Readextstatus1: TMenuItem
Action = cAReadXst
end
object CheckInvisibility: TMenuItem
Action = cACheckInvisibility
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
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 Visiblelist1: TMenuItem
Action = AVisiblelist1
end
object Invisiblelist1: TMenuItem
Action = AInvisiblelist1
end
object tempvisiblelist1: TMenuItem
Action = Atempvisiblelist1
end
object Ignorelist1: TMenuItem
Action = AIgnorelist1
end
object Checkinginvislist1: TMenuItem
Action = cAChkInvisList
end
object N2: TMenuItem
Caption = '-'
end
object UIN1: TMenuItem
Action = AUIN1
end
object IP1: TMenuItem
Action = AIP1
end
object N5: TMenuItem
Caption = '-'
end
end
object divisorMenu: TPopupMenu
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 Showgroups1: TMenuItem
Action = AShowgroups1
end
object Showonlyonlinecontacts1: TMenuItem
Action = AShowonlyonlinecontacts1
end
object menushowonlyimvisibleto1: TMenuItem
Action = Amenushowonlyimvisibleto1
end
object Showallcontactsinone1: TMenuItem
Action = AContInOne
end
end
object groupMenu: TPopupMenu
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 N3: TMenuItem
Caption = '-'
end
object Renamegroup1: TMenuItem
Action = gmARenamegroup
end
object Makelocal2: TMenuItem
Action = gmAMakeLocal
end
object Deletegroup1: TMenuItem
Action = gmADeletegroup
end
object Moveallcontactsto1: TMenuItem
Action = gmAMoveallcontactsto
end
object Allcontactsvisibility1: TMenuItem
Action = gmAAllcontactsvisibility
object tempvisiblelist2: TMenuItem
Action = gmAVtempvisiblelist
end
object tovisiblelist1: TMenuItem
Action = gmAVtovisiblelist
end
object toinvisiblelist1: TMenuItem
Action = gmAVtoinvisiblelist
end
object tonormalvisibility1: TMenuItem
Action = gmAVtonormalvisibility1
end
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 cASendFile: TAction
Category = 'contactMenu'
Caption = 'Send file'
HelpKeyword = 'file'
Visible = False
OnExecute = cASendFileExecute
OnUpdate = cASendFileUpdate
end
object Amenusendaddedyou1: TAction
Category = 'contactMenu'
Caption = 'Send added-you'
HelpKeyword = 'addedyou'
HelpType = htContext
OnExecute = menusendaddedyou1Click
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 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
end
object cAReadXst: TAction
Category = 'contactMenu'
Caption = 'Read XStatus'
OnExecute = Readextstatus1Click
OnUpdate = cAReadXstUpdate
end
object AReadautomessage1: TAction
Category = 'contactMenu'
Caption = 'Read auto-message'
HelpKeyword = 'msg'
HelpType = htContext
OnExecute = Readautomessage1Click
OnUpdate = AReadautomessage1Update
end
object cACheckInvisibility: TAction
Category = 'contactMenu'
Caption = 'Check invisibility'
HelpKeyword = 'visibility'
OnExecute = cACheckInvisibilityExecute
OnUpdate = cACheckInvisibilityUpdate
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 AVisiblelist1: TAction
Category = 'contactMenu'
Caption = 'Visible list'
OnExecute = Visiblelist1Click
OnUpdate = AVisiblelist1Update
end
object AInvisiblelist1: TAction
Category = 'contactMenu'
Caption = 'Invisible list'
OnExecute = invisiblelist1Click
OnUpdate = AInvisiblelist1Update
end
object Atempvisiblelist1: TAction
Category = 'contactMenu'
Caption = 'Temporary visible list'
OnExecute = tempvisiblelist1Click
OnUpdate = Atempvisiblelist1Update
end
object AIgnorelist1: TAction
Category = 'contactMenu'
Caption = 'Ignore list'
OnExecute = Ignorelist1Click
OnUpdate = AIgnorelist1Update
end
object cAChkInvisList: TAction
Category = 'contactMenu'
Caption = 'Check-invis list'
OnExecute = cAChkInvisListExecute
OnUpdate = cAChkInvisListUpdate
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 AIP1: TAction
Category = 'contactMenu'
Hint = 'if you click the IP address will be copied into clipboard'
OnExecute = IP1Click
OnUpdate = AIP1Update
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 = Showgroups1Click
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
end
object gmADeletegroup: TAction
Category = 'groupMenu'
Caption = 'Delete group'
HelpKeyword = 'delete'
OnExecute = Deletegroup1Click
end
object gmAMoveallcontactsto: TAction
Category = 'groupMenu'
Caption = 'Move all contacts to'
HelpKeyword = 'close.group'
OnExecute = ANothingExecute
end
object gmAAllcontactsvisibility: TAction
Category = 'groupMenu'
Caption = 'All contacts visibility'
HelpKeyword = 'close.group'
OnExecute = ANothingExecute
end
object gmAVtempvisiblelist: TAction
Category = 'groupMenu'
Caption = 'temporary visible list'
OnExecute = tempvisiblelist2Click
end
object gmAVtovisiblelist: TAction
Category = 'groupMenu'
Caption = 'visible list'
OnExecute = tovisiblelist1Click
end
object gmAVtoinvisiblelist: TAction
Category = 'groupMenu'
Caption = 'invisible list'
OnExecute = toinvisiblelist1Click
end
object gmAVtonormalvisibility1: TAction
Category = 'groupMenu'
Caption = 'normal visibility'
OnExecute = tonormalvisibility1Click
end
object gmADivisor2: TAction
Category = 'groupMenu'
Caption = '-'
end
object gmAShowgroups: TAction
Category = 'groupMenu'
Caption = 'Show groups'
OnExecute = Showgroups2Click
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 mAin_visiblelist: TAction
Category = 'menu'
Caption = 'in/visible list'
HelpKeyword = 'visibility'
OnExecute = in_visiblelist1Click
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 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 mAAutomessages: TAction
Category = 'menu'
Caption = 'Auto-message'
HelpKeyword = 'msg'
OnExecute = Automessage1Click
end
object mAreloadlang: TAction
Category = 'menu'
Caption = 'Reload current lang'
HelpKeyword = 'refresh'
OnExecute = mainmenureloadlang1Click
end
object mAimportclb: TAction
Category = 'menu'
Caption = 'Import from ICQ contacts file'
HelpKeyword = 'import.clb'
OnExecute = mainmenuimportclbClick
end
object mAexportclb: TAction
Category = 'menu'
Caption = 'Export to ICQ contacts file'
HelpKeyword = 'export.clb'
OnExecute = mainmenuexportclbClick
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 mAgetofflinemsgs: TAction
Category = 'menu'
Caption = 'Get offline messages'
HelpKeyword = 'down'
OnExecute = Getofflinemessages1Click
OnUpdate = mAgetofflinemsgsUpdate
end
object mAdeleteofflinemsgs: TAction
Category = 'menu'
Caption = 'Delete offline messages'
HelpKeyword = 'delete'
OnExecute = Deleteofflinemessages1Click
OnUpdate = mAdeleteofflinemsgsUpdate
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'
OnExecute = mASinchrCLExecute
OnUpdate = mASinchrCLUpdate
end
object mAChkInvisAll: TAction
Category = 'menu'
Caption = 'Check Invisibility list'
HelpKeyword = 'check.invisibility.list'
OnExecute = mAChkInvisAllExecute
OnUpdate = mAChkInvisAllUpdate
end
object mAHistoryUtils: TAction
Category = 'menu'
Caption = 'History synchronization'
HelpKeyword = 'history.sync'
OnExecute = mAHistoryUtilsExecute
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 = 'down'
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 mAViewSSI: TAction
Category = 'menu'
Caption = 'View SSI'
HelpKeyword = 'ssi'
OnExecute = ViewSSI1Click
OnUpdate = mAViewSSIUpdate
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
end
object imgmenu: TPopupMenu
Left = 42
Top = 184
object savePicMnuImg: TMenuItem
Caption = 'Save pic'
OnClick = savePicMnuImgClick
end
end
end