home *** CD-ROM | disk | FTP | other *** search
- object ActionEditor: TActionEditor
- Left = 200
- Top = 108
- Width = 575
- Height = 423
- Caption = 'Sorting Office/Actions'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 265
- Top = 0
- Height = 369
- Beveled = True
- ResizeStyle = rsUpdate
- end
- object pnTree: TPanel
- Left = 0
- Top = 0
- Width = 265
- Height = 369
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object pnUser: TPanel
- Left = 0
- Top = 0
- Width = 265
- Height = 33
- Align = alTop
- TabOrder = 0
- DesignSize = (
- 265
- 33)
- object lUser: TLabel
- Left = 8
- Top = 10
- Width = 43
- Height = 13
- Caption = 'Acco&unt:'
- FocusControl = cbUser
- end
- object cbUser: TComboBox
- Left = 72
- Top = 6
- Width = 185
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- TabOrder = 0
- OnChange = cbUserChange
- end
- end
- object MLV: TMLVGrid
- Left = 0
- Top = 33
- Width = 265
- Height = 336
- Align = alClient
- DefaultRowHeight = 16
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goThumbTracking]
- PopupMenu = pmFilter
- TabOrder = 1
- AltDrag = False
- AutoColResize = True
- AutoSearch = False
- MultiSelect = False
- OnFocusItem = MLVFocusItem
- ImmediateSelect = False
- end
- end
- object Book: TPageControl
- Left = 268
- Top = 0
- Width = 299
- Height = 369
- ActivePage = tsGeneral
- Align = alClient
- TabOrder = 1
- OnChange = BookChange
- object tsGeneral: TTabSheet
- Caption = 'General'
- object pnName: TPanel
- Left = 0
- Top = 0
- Width = 291
- Height = 73
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 291
- 73)
- object lName: TLabel
- Left = 8
- Top = 8
- Width = 31
- Height = 13
- Caption = '&Name:'
- FocusControl = eName
- end
- object Label2: TLabel
- Left = 8
- Top = 56
- Width = 47
- Height = 13
- Caption = '&Condition:'
- end
- object eName: TEdit
- Left = 8
- Top = 24
- Width = 273
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- end
- end
- inline CFrame: TConditionFrame
- Left = 0
- Top = 73
- Width = 291
- Height = 268
- Align = alClient
- TabOrder = 1
- inherited sbIF: TScrollBox
- Width = 291
- Height = 245
- end
- inherited pnButtons: TPanel
- Top = 245
- Width = 291
- end
- end
- end
- object tsActions: TTabSheet
- Caption = 'Actions'
- OnEnter = lActionsClick
- object pnActButtons: TPanel
- Left = 0
- Top = 318
- Width = 291
- Height = 23
- Align = alBottom
- TabOrder = 0
- OnResize = pnActButtonsResize
- object bActAdd: TToolbarButton97
- Left = 8
- Top = 0
- Width = 73
- Height = 22
- DropdownMenu = pmAddAct
- Caption = '&Add'
- end
- object bActEdit: TToolbarButton97
- Left = 81
- Top = 0
- Width = 73
- Height = 22
- Caption = '&Edit'
- OnClick = bActEditClick
- end
- object bActDelete: TToolbarButton97
- Left = 154
- Top = 0
- Width = 81
- Height = 22
- Caption = '&Delete'
- OnClick = mlActDeleteClick
- end
- end
- object lActions: TListBox
- Left = 0
- Top = 0
- Width = 291
- Height = 318
- Align = alClient
- ItemHeight = 13
- PopupMenu = pmAct
- TabOrder = 1
- OnClick = lActionsClick
- end
- end
- object tsOptions: TTabSheet
- Caption = 'Options'
- object sbOptions: TScrollBox
- Left = 0
- Top = 0
- Width = 291
- Height = 341
- Align = alClient
- BorderStyle = bsNone
- TabOrder = 0
- object cbActive: TCheckBox
- Left = 8
- Top = 16
- Width = 241
- Height = 17
- Caption = '&This filter is active'
- TabOrder = 0
- OnClick = cbActiveClick
- end
- object cbManual: TCheckBox
- Left = 8
- Top = 40
- Width = 241
- Height = 17
- Caption = '&Use this filter for manual re-filtering only'
- TabOrder = 1
- OnClick = cbActiveClick
- end
- object cbContinue: TCheckBox
- Left = 8
- Top = 64
- Width = 241
- Height = 17
- Caption = '&Continue processing with other filters'
- TabOrder = 2
- OnClick = cbActiveClick
- end
- object cbSendType: TRadioGroup
- Left = 8
- Top = 96
- Width = 233
- Height = 89
- Caption = 'Send generated messages'
- ItemIndex = 0
- Items.Strings = (
- '&Accordingly to the account settings'
- '&Immediately'
- '&Queue in the Outbox')
- TabOrder = 3
- OnClick = cbActiveClick
- end
- object cbHotkey: TCheckBox
- Tag = -2
- Left = 10
- Top = 200
- Width = 297
- Height = 17
- Caption = 'Execute actions of this filter by pressing this &Hot Key:'
- TabOrder = 4
- OnClick = cbHotkeyClick
- end
- object hkHotkey: THotKey
- Left = 32
- Top = 218
- Width = 153
- Height = 19
- HotKey = 0
- Modifiers = []
- TabOrder = 5
- end
- object cbHKCheckMessage: TCheckBox
- Left = 34
- Top = 240
- Width = 273
- Height = 17
- Caption = 'Check the &messages against this rule'
- TabOrder = 6
- end
- end
- end
- object tsInfo: TTabSheet
- Caption = 'tsInfo'
- TabVisible = False
- object pnInfo: TPanel
- Left = 0
- Top = 0
- Width = 263
- Height = 286
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 16
- TabOrder = 0
- object lInfo: TLabel
- Left = 16
- Top = 16
- Width = 231
- Height = 254
- Align = alClient
- AutoSize = False
- end
- end
- end
- end
- object MainMenu1: TMainMenu
- Left = 200
- Top = 56
- object mFilterMenu: TMenuItem
- Caption = '&File'
- object mNew: TMenuItem
- Caption = '&New'
- OnClick = mNewClick
- object mNewFilter: TMenuItem
- Caption = '&Filter'
- OnClick = mNewFilterClick
- end
- object mNewActionList: TMenuItem
- Caption = 'Action &List'
- Visible = False
- end
- object mSubfilter: TMenuItem
- Caption = '&Sub-filter'
- OnClick = mSubfilterClick
- end
- object mNewCondition: TMenuItem
- Caption = '&Condition'
- end
- object mNewBlock: TMenuItem
- Caption = 'Condition &Block'
- end
- object mNewAction: TMenuItem
- Caption = '&Action'
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mImport: TMenuItem
- Caption = '&Import...'
- end
- object mExport: TMenuItem
- Caption = 'E&xport...'
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mClose: TMenuItem
- Caption = '&Close'
- ShortCut = 27
- OnClick = mCloseClick
- end
- end
- object mEditMenu: TMenuItem
- Caption = '&Edit'
- OnClick = mEditMenuClick
- object mCopy: TMenuItem
- Caption = '&Copy'
- OnClick = mCopyClick
- end
- object mCut: TMenuItem
- Caption = 'C&ut'
- OnClick = mCutClick
- end
- object mPaste: TMenuItem
- Caption = '&Paste'
- end
- object mDelete: TMenuItem
- Caption = '&Delete'
- OnClick = mDeleteClick
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object bUpFilter: TMenuItem
- Tag = -1
- Caption = '&Move up'
- OnClick = bUpFilterClick
- end
- object bDownFilter: TMenuItem
- Tag = 1
- Caption = 'M&ove down'
- OnClick = bUpFilterClick
- end
- object mFilterIn: TMenuItem
- Caption = 'Mo&ve in'
- OnClick = mFilterInClick
- end
- object mFilterOut: TMenuItem
- Caption = 'Mov&e out'
- OnClick = mFilterOutClick
- end
- end
- object View1: TMenuItem
- Caption = '&View'
- Visible = False
- object mvFont: TMenuItem
- Caption = '&Font...'
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object mvHorzSplit: TMenuItem
- Caption = 'Split &horisontally'
- GroupIndex = 10
- RadioItem = True
- end
- object mvVertSplit: TMenuItem
- Caption = 'Split &vertically'
- GroupIndex = 10
- RadioItem = True
- end
- end
- end
- object IFmenu: TPopupMenu
- Left = 112
- Top = 240
- end
- object mBlock: TPopupMenu
- Left = 64
- Top = 80
- object mAddCondition: TMenuItem
- Caption = '&Add condition'
- ShortCut = 45
- end
- object mlNewBlock: TMenuItem
- Caption = '&New block'
- ShortCut = 16429
- end
- object MenuItem2: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- end
- end
- object pmAct: TPopupMenu
- OnPopup = mEditMenuClick
- Left = 104
- Top = 80
- object mlActAdd: TMenuItem
- Caption = '&Add'
- end
- object mActEdit: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = bActEditClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mlCopyAct: TMenuItem
- Caption = '&Copy'
- ShortCut = 16451
- OnClick = mlCopyActClick
- end
- object mlCopyAct1: TMenuItem
- Caption = '&Copy'
- ShortCut = 16429
- Visible = False
- OnClick = mlCopyActClick
- end
- object mlCutAct: TMenuItem
- Caption = 'C&ut'
- ShortCut = 16472
- OnClick = mlCutActClick
- end
- object mlCutAct1: TMenuItem
- Caption = 'C&ut'
- ShortCut = 8238
- Visible = False
- OnClick = mlCutActClick
- end
- object mlPasteAct: TMenuItem
- Caption = '&Paste'
- ShortCut = 16470
- end
- object mlPasteAct1: TMenuItem
- Caption = '&Paste'
- ShortCut = 8237
- Visible = False
- end
- object mlActDelete: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = mlActDeleteClick
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object mActMoveUp: TMenuItem
- Tag = -1
- Caption = '&Move up'
- ShortCut = 16422
- OnClick = mActMoveUpClick
- end
- object mActMoveDown: TMenuItem
- Tag = 1
- Caption = 'M&ove down'
- ShortCut = 16424
- OnClick = mActMoveUpClick
- end
- end
- object pmAddAct: TPopupMenu
- Left = 136
- Top = 240
- end
- object pmFilter: TPopupMenu
- OnPopup = mEditMenuClick
- Left = 24
- Top = 80
- object mlNewFilter: TMenuItem
- Caption = '&New'
- ShortCut = 45
- OnClick = mNewFilterClick
- end
- object mlNewSubfilter: TMenuItem
- Caption = 'New &Subfilter'
- ShortCut = 32813
- OnClick = mSubfilterClick
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object mlCopyFilter: TMenuItem
- Caption = '&Copy'
- ShortCut = 16451
- OnClick = mCopyClick
- end
- object mlCutFilter: TMenuItem
- Caption = 'Cu&t'
- ShortCut = 16472
- OnClick = mlCutFilterClick
- end
- object mlPasteFilter: TMenuItem
- Caption = '&Paste'
- ShortCut = 16470
- end
- object mlDelFilter: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = mlDelFilterClick
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object mlUpFilter: TMenuItem
- Tag = -1
- Caption = 'Move &up'
- ShortCut = 16422
- OnClick = bUpFilterClick
- end
- object mlDownFilter: TMenuItem
- Tag = 1
- Caption = '&Move down'
- ShortCut = 16424
- OnClick = bUpFilterClick
- end
- object mlMoveIn: TMenuItem
- Caption = 'Mo&ve in'
- ShortCut = 16423
- OnClick = mFilterInClick
- end
- object mlMoveOut: TMenuItem
- Caption = 'Mov&e out'
- ShortCut = 16421
- OnClick = mFilterOutClick
- end
- end
- end
-