Chip 2004 April/CMCD0404.ISO/Software/Shareware/Comunicatii/thebat/the_bat2.04.07.exe/thebat.exe/0/RCDATA/TEVENTEDIT/TEVENTEDIT.txt

Text File | 2004-02-23 | 34.0 KB | 1,409 lines

object EventEdit: TEventEdit
  Left = 122
  Top = 174
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  BorderWidth = 4
  Caption = 'Edit Event'
  ClientHeight = 452
  ClientWidth = 453
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TPageControl
    Left = 0
    Top = 0
    Width = 453
    Height = 417
    ActivePage = tsGeneral
    Align = alTop
    MultiLine = True
    TabOrder = 0
    TabStop = False
    object tsGeneral: TTabSheet
      Caption = 'General'
      DesignSize = (
        445
        389)
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 56
        Height = 13
        Caption = '&Description:'
        FocusControl = eName
      end
      object Label2: TLabel
        Left = 16
        Top = 196
        Width = 34
        Height = 13
        Caption = 'Priority:'
      end
      object lbStart: TLabel
        Left = 16
        Top = 136
        Width = 25
        Height = 13
        Caption = 'Start:'
      end
      object Label3: TLabel
        Left = 16
        Top = 160
        Width = 43
        Height = 13
        Caption = 'Duration:'
      end
      object lbAt: TLabel
        Left = 264
        Top = 136
        Width = 9
        Height = 13
        Caption = 'at'
      end
      object lbNotifyPostfix: TLabel
        Left = 288
        Top = 260
        Width = 66
        Height = 13
        Caption = 'before it starts'
      end
      object lPastNotify: TLabel
        Left = 224
        Top = 332
        Width = 117
        Height = 13
        Caption = 'missed events on startup'
        Enabled = False
      end
      object eName: TMemo
        Left = 16
        Top = 24
        Width = 417
        Height = 97
        Anchors = [akLeft, akTop, akRight]
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object cbPriority: TComboBox
        Left = 104
        Top = 192
        Width = 105
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 2
        TabOrder = 5
        Text = 'Normal'
        Items.Strings = (
          'Highest'
          'High'
          'Normal'
          'Low'
          'Lowest')
      end
      object dtStart: TDateTimePicker
        Left = 104
        Top = 132
        Width = 145
        Height = 21
        Date = 37491.579611736090000000
        Time = 37491.579611736090000000
        DateFormat = dfLong
        TabOrder = 1
      end
      object dtStartTime: TDateTimePicker
        Left = 303
        Top = 132
        Width = 131
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Date = 37491.844118761600000000
        Time = 37491.844118761600000000
        DateFormat = dfLong
        Kind = dtkTime
        TabOrder = 2
      end
      object cbDurationTime: TComboBox
        Left = 256
        Top = 156
        Width = 178
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 13
        ItemIndex = 2
        TabOrder = 4
        Text = 'hours'
        Items.Strings = (
          'seconds'
          'minutes'
          'hours'
          'days'
          'weeks'
          'months')
      end
      object eDuration: TXSpinEdit
        Left = 104
        Top = 156
        Width = 145
        Height = 21
        TabOrder = 3
        Text = '1'
        MinValue = 1
        MaxValue = 1000000000
        Value = 1
        Step = 1
      end
      object cbNotify: TCheckBox
        Left = 16
        Top = 232
        Width = 417
        Height = 17
        Caption = 'Notify me about this event'
        TabOrder = 6
        OnClick = cbNotifyClick
      end
      object eNotifyTime: TXSpinEdit
        Left = 40
        Top = 256
        Width = 121
        Height = 21
        TabOrder = 7
        Text = '1'
        MinValue = 0
        MaxValue = 86400
        Value = 1
        Step = 1
      end
      object cbNotifyTime: TComboBox
        Left = 168
        Top = 256
        Width = 113
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 1
        TabOrder = 8
        Text = 'minutes'
        Items.Strings = (
          'seconds'
          'minutes'
          'hours'
          'days')
      end
      object bEditNotification: TButton
        Left = 40
        Top = 284
        Width = 241
        Height = 25
        Caption = 'Notification parameters...'
        TabOrder = 9
        OnClick = bEditNotificationClick
      end
      object cbNotifyPast: TCheckBox
        Left = 16
        Top = 330
        Width = 145
        Height = 17
        Caption = 'Notify about up to'
        TabOrder = 10
        OnClick = cbNotifyPastClick
      end
      object ePastCount: TXSpinEdit
        Left = 168
        Top = 328
        Width = 49
        Height = 21
        Enabled = False
        TabOrder = 11
        Text = '1'
        MinValue = 1
        MaxValue = 20000000
        Value = 1
        Step = 1
      end
      object cbExecPast: TCheckBox
        Left = 40
        Top = 354
        Width = 385
        Height = 17
        Caption = '&Execute actions for missed events'
        Enabled = False
        TabOrder = 12
      end
    end
    object tsActions: TTabSheet
      Caption = 'Actions'
      ImageIndex = 4
      object gbStartActions: TGroupBox
        Left = 8
        Top = 16
        Width = 425
        Height = 177
        Caption = 'Execute these actions when event starts'
        TabOrder = 0
        object lStartActions: TListView
          Left = 16
          Top = 24
          Width = 297
          Height = 137
          Columns = <
            item
              Caption = 'Action'
              Width = 150
            end
            item
              Caption = 'Parameters'
              Width = 200
            end>
          HideSelection = False
          ReadOnly = True
          RowSelect = True
          PopupMenu = ppActions
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = lStartActionsDblClick
          OnEnter = lStartActionsEnter
          OnKeyDown = lStartActionsKeyDown
        end
        object bAddStartAction: TButton
          Left = 320
          Top = 24
          Width = 97
          Height = 25
          Caption = 'Add'
          TabOrder = 1
          OnClick = bAddStartActionClick
        end
        object bEditStartAction: TButton
          Left = 320
          Top = 56
          Width = 97
          Height = 25
          Caption = 'Edit'
          TabOrder = 2
          OnClick = bEditStartActionClick
        end
        object bDelStartAction: TButton
          Left = 320
          Top = 88
          Width = 97
          Height = 25
          Caption = 'Delete'
          TabOrder = 3
          OnClick = bDelStartActionClick
        end
      end
      object gbEndActions: TGroupBox
        Left = 8
        Top = 200
        Width = 425
        Height = 177
        Caption = 'Execute these actions when event finishes'
        TabOrder = 1
        object bDelEndAction: TButton
          Left = 320
          Top = 88
          Width = 97
          Height = 25
          Caption = 'Delete'
          TabOrder = 3
          OnClick = bDelStartActionClick
        end
        object bEditEndAction: TButton
          Left = 320
          Top = 56
          Width = 97
          Height = 25
          Caption = 'Edit'
          TabOrder = 2
          OnClick = bEditStartActionClick
        end
        object bAddEndAction: TButton
          Left = 320
          Top = 24
          Width = 97
          Height = 25
          Caption = 'Add'
          TabOrder = 1
          OnClick = bAddStartActionClick
        end
        object lEndActions: TListView
          Left = 16
          Top = 24
          Width = 297
          Height = 145
          Columns = <
            item
              Caption = 'Action'
              Width = 150
            end
            item
              Caption = 'Parameters'
              Width = 200
            end>
          HideSelection = False
          ReadOnly = True
          RowSelect = True
          PopupMenu = ppActions
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = lStartActionsDblClick
          OnEnter = lStartActionsEnter
          OnKeyDown = lStartActionsKeyDown
        end
      end
    end
    object tsLimit: TTabSheet
      Caption = 'Recurrence'
      ImageIndex = 1
      DesignSize = (
        445
        389)
      object cbRepeat: TCheckBox
        Left = 16
        Top = 16
        Width = 404
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Repeat this event every'
        TabOrder = 0
        OnClick = cbRepeatClick
      end
      object eRepeatFreq: TXSpinEdit
        Left = 40
        Top = 38
        Width = 89
        Height = 21
        TabOrder = 1
        Text = '1'
        MinValue = 1
        MaxValue = 1000000
        Value = 1
        Step = 1
      end
      object cbRepeatType: TComboBox
        Left = 136
        Top = 38
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 3
        TabOrder = 2
        Text = 'Day(s)'
        OnChange = cbRepeatTypeChange
        Items.Strings = (
          'Second(s)'
          'Minute(s)'
          'Hour(s)'
          'Day(s)'
          'Week(s)'
          'Month(s)'
          'Year(s)')
      end
      object gbStop: TGroupBox
        Left = 16
        Top = 232
        Width = 417
        Height = 121
        Caption = 'Stop repeating this event'
        TabOrder = 4
        object lbStopCounts: TLabel
          Left = 200
          Top = 58
          Width = 59
          Height = 13
          Caption = 'occurrences'
        end
        object lbStopAt: TLabel
          Left = 280
          Top = 92
          Width = 9
          Height = 13
          Caption = 'at'
        end
        object rbStopNever: TRadioButton
          Left = 16
          Top = 24
          Width = 273
          Height = 17
          Caption = 'Never'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbStopAfter: TRadioButton
          Left = 16
          Top = 56
          Width = 97
          Height = 17
          Caption = 'After '
          TabOrder = 1
        end
        object eStopCount: TXSpinEdit
          Left = 120
          Top = 54
          Width = 73
          Height = 21
          TabOrder = 2
          Text = '10'
          MinValue = 1
          MaxValue = 1000000000
          Value = 10
          Step = 1
        end
        object rbStopDate: TRadioButton
          Left = 16
          Top = 88
          Width = 97
          Height = 17
          Caption = 'On'
          TabOrder = 3
        end
        object dtStopDate: TDateTimePicker
          Left = 120
          Top = 88
          Width = 153
          Height = 21
          Date = 37493.547949641200000000
          Time = 37493.547949641200000000
          DateFormat = dfLong
          TabOrder = 4
        end
        object dtStopTime: TDateTimePicker
          Left = 320
          Top = 88
          Width = 90
          Height = 21
          Date = 37493.548352303200000000
          Time = 37493.548352303200000000
          Kind = dtkTime
          TabOrder = 5
        end
      end
      object nbFreq: TPageControl
        Left = 16
        Top = 72
        Width = 417
        Height = 153
        ActivePage = tsWeekly
        Style = tsFlatButtons
        TabOrder = 3
        object tsWeekly: TTabSheet
          Caption = 'Weeky'
          TabVisible = False
          object gbWeekly: TGroupBox
            Left = 0
            Top = 0
            Width = 409
            Height = 143
            Align = alClient
            Caption = 'This event occurs'
            TabOrder = 0
            object clbWeekDays: TCheckListBox
              Left = 32
              Top = 47
              Width = 369
              Height = 60
              Columns = 2
              ItemHeight = 13
              Items.Strings = (
                'Monday'
                'Tuesday'
                'Wednesday'
                'Thursday'
                'Friday'
                'Saturday'
                'Sunday')
              TabOrder = 0
            end
            object rbWeekDays: TRadioButton
              Left = 16
              Top = 26
              Width = 385
              Height = 17
              Caption = 'on these week days'
              Checked = True
              TabOrder = 1
              TabStop = True
              OnClick = rbWeekDaysClick
            end
            object rbWeekAdvanced: TRadioButton
              Left = 16
              Top = 120
              Width = 385
              Height = 17
              Caption = 'accordingly to Advanced settings'
              TabOrder = 2
              OnClick = rbWeekDaysClick
            end
          end
        end
        object tsMonthly: TTabSheet
          Caption = 'Monthly'
          ImageIndex = 1
          TabVisible = False
          object gbMonthly: TGroupBox
            Left = 0
            Top = 0
            Width = 409
            Height = 143
            Align = alClient
            Caption = 'This event occurs'
            TabOrder = 0
            object rbMonthDay: TRadioButton
              Left = 16
              Top = 32
              Width = 97
              Height = 17
              Caption = 'on'
              Checked = True
              TabOrder = 0
              TabStop = True
              OnClick = rbMonthDayClick
            end
            object eMonthlyDay: TXSpinEdit
              Left = 120
              Top = 28
              Width = 57
              Height = 21
              TabOrder = 1
              Text = '1'
              MinValue = 1
              MaxValue = 31
              Value = 1
              Step = 1
            end
            object cbMonthlyDayType: TComboBox
              Left = 184
              Top = 28
              Width = 217
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 2
              Text = 'day of the month'
              Items.Strings = (
                'day of the month'
                'day before the end of the month'
                'working day'
                'non-working day'
                'working day before the end'
                'non-working day before the end')
            end
            object rbMonthWDay: TRadioButton
              Left = 16
              Top = 64
              Width = 105
              Height = 17
              Caption = 'on'
              TabOrder = 3
              OnClick = rbMonthDayClick
            end
            object cbMonthWDayNo: TComboBox
              Left = 120
              Top = 60
              Width = 113
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 4
              Text = 'first'
              Items.Strings = (
                'first'
                'second'
                'third'
                'fourth'
                'last')
            end
            object cbMonthWDay: TComboBox
              Left = 240
              Top = 60
              Width = 161
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 5
              Text = 'Monday'
              Items.Strings = (
                'Monday'
                'Tuesday'
                'Wednesday'
                'Thursday'
                'Friday'
                'Saturday'
                'Sunday')
            end
            object rbMonthlyAdvanced: TRadioButton
              Left = 16
              Top = 96
              Width = 377
              Height = 17
              Caption = 'accordingly to Advanced settings'
              TabOrder = 6
              OnClick = rbMonthDayClick
            end
          end
        end
        object tsYearly: TTabSheet
          Caption = 'Yearly'
          ImageIndex = 2
          TabVisible = False
          object gbYearly: TGroupBox
            Left = 0
            Top = 0
            Width = 409
            Height = 143
            Align = alClient
            Caption = 'This event occurs '
            TabOrder = 0
            object lbYearDayMonth: TLabel
              Left = 184
              Top = 24
              Width = 32
              Height = 13
              Caption = 'day of '
            end
            object lbYearWDayOf: TLabel
              Left = 296
              Top = 56
              Width = 9
              Height = 13
              Caption = 'of'
            end
            object rbYearDayMonth: TRadioButton
              Left = 16
              Top = 24
              Width = 89
              Height = 17
              Caption = 'on'
              Checked = True
              TabOrder = 0
              TabStop = True
              OnClick = rbYearDayMonthClick
            end
            object eYearDayMonth: TXSpinEdit
              Left = 104
              Top = 20
              Width = 73
              Height = 21
              TabOrder = 1
              Text = '1'
              MinValue = 1
              MaxValue = 31
              Value = 1
              Step = 1
            end
            object cbYearDayMonth: TComboBox
              Left = 224
              Top = 20
              Width = 121
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 2
              Text = 'January'
              Items.Strings = (
                'January'
                'February'
                'March'
                'April'
                'May'
                'June'
                'July'
                'August'
                'September'
                'October'
                'November'
                'December')
            end
            object rbYearDay: TRadioButton
              Left = 16
              Top = 88
              Width = 89
              Height = 17
              Caption = 'on'
              TabOrder = 7
              OnClick = rbYearDayMonthClick
            end
            object eYearDay: TXSpinEdit
              Left = 104
              Top = 84
              Width = 73
              Height = 21
              TabOrder = 8
              Text = '1'
              MinValue = 1
              MaxValue = 366
              Value = 1
              Step = 1
            end
            object cbYearDayType: TComboBox
              Left = 184
              Top = 84
              Width = 217
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 9
              Text = 'day of the year'
              Items.Strings = (
                'day of the year'
                'day before the end of the year'
                'working day of the year'
                'non-working day of the year'
                'working day before the end'
                'non-working day before the end')
            end
            object rbYearWDay: TRadioButton
              Left = 16
              Top = 56
              Width = 89
              Height = 17
              Caption = 'on'
              TabOrder = 3
              OnClick = rbYearDayMonthClick
            end
            object cbYearWDayNo: TComboBox
              Left = 104
              Top = 52
              Width = 73
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 4
              Text = 'first'
              Items.Strings = (
                'first'
                'second'
                'third'
                'fourth'
                'last')
            end
            object cbYearWDay: TComboBox
              Left = 184
              Top = 52
              Width = 105
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 5
              Text = 'Monday'
              Items.Strings = (
                'Monday'
                'Tuesday'
                'Wednesday'
                'Thursday'
                'Friday'
                'Saturday'
                'Sunday'
                'working day'
                'non-working day')
            end
            object cbYearWDayMonth: TComboBox
              Left = 312
              Top = 52
              Width = 89
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              ItemIndex = 0
              TabOrder = 6
              Text = 'January'
              Items.Strings = (
                'January'
                'February'
                'March'
                'April'
                'May'
                'June'
                'July'
                'August'
                'September'
                'October'
                'November'
                'December')
            end
            object rbYearAdvanced: TRadioButton
              Left = 16
              Top = 120
              Width = 385
              Height = 17
              Caption = 'accordingly to Advanced settings'
              TabOrder = 10
              OnClick = rbYearDayMonthClick
            end
          end
        end
        object tsDaily: TTabSheet
          Caption = 'Daily'
          ImageIndex = 3
          TabVisible = False
          object gbDaily: TGroupBox
            Left = 0
            Top = 0
            Width = 409
            Height = 143
            Align = alClient
            TabOrder = 0
            object lbDaily: TLabel
              Left = 16
              Top = 24
              Width = 377
              Height = 81
              Alignment = taCenter
              AutoSize = False
              Caption =
                'Use the Advanced tab to determine precisely when this event shou' +
                'ld occur'
              Layout = tlCenter
              WordWrap = True
            end
          end
        end
      end
    end
    object tsAdvanced: TTabSheet
      Caption = 'Advanced'
      ImageIndex = 2
      DesignSize = (
        445
        389)
      object lbTimeTpl: TLabel
        Left = 16
        Top = 296
        Width = 47
        Height = 13
        Caption = 'Template:'
        FocusControl = cbTemplate
        Visible = False
      end
      object cbTemplate: TComboBox
        Left = 16
        Top = 312
        Width = 233
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        Visible = False
      end
      object bCopyTemplate: TButton
        Left = 256
        Top = 310
        Width = 81
        Height = 25
        Caption = 'Copy'
        TabOrder = 2
        Visible = False
      end
      object bEditTemplates: TButton
        Left = 344
        Top = 310
        Width = 81
        Height = 25
        Caption = 'Templates...'
        TabOrder = 3
        Visible = False
      end
      object cbLinkTpl: TCheckBox
        Left = 32
        Top = 340
        Width = 395
        Height = 17
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Link to the selected template'
        TabOrder = 4
        Visible = False
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 409
        Height = 273
        Caption = 'Event occurs accordingly to these rules'
        TabOrder = 0
        inline TimeFilter: TTimeFramer
          Left = 2
          Top = 15
          Width = 405
          Height = 256
          Align = alClient
          TabOrder = 0
          inherited Book: TPageControl
            Width = 405
            Height = 256
            ActivePage = TimeFilter.tsTime
            inherited tsTime: TTabSheet
              inherited eMaskHours: TEdit
                Width = 244
              end
              inherited eMaskMin: TEdit
                Width = 244
              end
              inherited eMaskSec: TEdit
                Width = 244
              end
            end
          end
        end
      end
    end
    object tsLinks: TTabSheet
      Caption = 'Links'
      ImageIndex = 3
      object gbLinkedDocs: TGroupBox
        Left = 8
        Top = 16
        Width = 425
        Height = 177
        Caption = 'Documents'
        TabOrder = 0
        object lvDocs: TListView
          Left = 16
          Top = 24
          Width = 297
          Height = 137
          Columns = <
            item
              Caption = 'Document'
              Width = 150
            end
            item
              Caption = 'Date'
              Width = 120
            end
            item
              Caption = 'Size'
            end
            item
              Caption = 'URL'
              Width = 150
            end>
          HideSelection = False
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          PopupMenu = pmLinks
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = bOpenDocClick
          OnEnter = lStartActionsEnter
          OnSelectItem = lvDocsSelectItem
        end
        object bAddDoc: TButton
          Left = 320
          Top = 24
          Width = 97
          Height = 25
          Caption = 'Add'
          TabOrder = 1
          OnClick = bAddDocClick
        end
        object bOpenDoc: TButton
          Left = 320
          Top = 56
          Width = 97
          Height = 25
          Caption = 'Edit'
          TabOrder = 2
          OnClick = bOpenDocClick
        end
        object bDelDoc: TButton
          Left = 320
          Top = 88
          Width = 97
          Height = 25
          Caption = 'Delete'
          TabOrder = 3
          OnClick = bDelDocClick
        end
      end
      object gbLinkedAddrs: TGroupBox
        Left = 8
        Top = 200
        Width = 425
        Height = 177
        Caption = 'Persons'
        TabOrder = 1
        object lvAddrs: TListView
          Left = 16
          Top = 24
          Width = 297
          Height = 145
          Columns = <
            item
              Caption = 'Name'
              Width = 150
            end
            item
              Caption = 'E-Mail'
              Width = 150
            end>
          HideSelection = False
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          PopupMenu = pmABLinks
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = bEditAddrClick
          OnEnter = lStartActionsEnter
          OnSelectItem = lvAddrsSelectItem
        end
        object bAddAddr: TButton
          Left = 320
          Top = 24
          Width = 97
          Height = 25
          Caption = 'Add'
          TabOrder = 1
          OnClick = bAddAddrClick
        end
        object bEditAddr: TButton
          Left = 320
          Top = 56
          Width = 97
          Height = 25
          Caption = 'Edit'
          TabOrder = 2
          OnClick = bEditAddrClick
        end
        object bDelAddr: TButton
          Left = 320
          Top = 88
          Width = 97
          Height = 25
          Caption = 'Delete'
          TabOrder = 3
          OnClick = mDeleteABLinkClick
        end
      end
    end
    object tsCategory: TTabSheet
      Caption = 'Categories'
      ImageIndex = 5
      DesignSize = (
        445
        389)
      object clbCategory: TCheckListBox
        Left = 16
        Top = 16
        Width = 291
        Height = 353
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        Sorted = True
        TabOrder = 0
        OnDblClick = bEditCategoryClick
      end
      object bNewCategory: TButton
        Left = 323
        Top = 16
        Width = 105
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '&New'
        TabOrder = 1
        OnClick = bNewCategoryClick
      end
      object bEditCategory: TButton
        Left = 323
        Top = 56
        Width = 105
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '&Edit'
        TabOrder = 2
        OnClick = bEditCategoryClick
      end
      object bDelCategory: TButton
        Left = 323
        Top = 96
        Width = 105
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '&Delete'
        TabOrder = 3
      end
    end
    object tsAccess: TTabSheet
      Caption = 'Access'
      ImageIndex = 6
      object GroupBox2: TGroupBox
        Left = 16
        Top = 16
        Width = 409
        Height = 329
        Caption = 'This event is available for'
        TabOrder = 0
        object rbAccessAll: TRadioButton
          Left = 16
          Top = 32
          Width = 369
          Height = 17
          Caption = 'All accounts'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = rbAccessSpecClick
        end
        object rbAccessAdmin: TRadioButton
          Left = 16
          Top = 64
          Width = 369
          Height = 17
          Caption = 'Administrator accounts only'
          TabOrder = 1
          OnClick = rbAccessSpecClick
        end
        object rbAccessSpec: TRadioButton
          Left = 16
          Top = 96
          Width = 377
          Height = 17
          Caption = 'Accounts below:'
          TabOrder = 2
          OnClick = rbAccessSpecClick
        end
        object lvAccess: TListView
          Left = 40
          Top = 120
          Width = 354
          Height = 193
          Columns = <
            item
              Caption = 'Account/Group'
              MaxWidth = 200
              MinWidth = 200
              Width = 200
            end
            item
              Caption = 'Execute'
              MaxWidth = 80
              MinWidth = 80
              Width = 80
            end
            item
              Caption = 'Edit'
              MaxWidth = 70
              MinWidth = 70
              Width = 70
            end>
          Enabled = False
          ReadOnly = True
          RowSelect = True
          SortType = stText
          TabOrder = 3
          ViewStyle = vsReport
          OnAdvancedCustomDrawSubItem = lvAccessAdvancedCustomDrawSubItem
          OnMouseDown = lvAccessMouseDown
        end
      end
    end
  end
  object bOK: TButton
    Left = 192
    Top = 424
    Width = 75
    Height = 25
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = bOKClick
  end
  object bCancel: TButton
    Left = 280
    Top = 424
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = bCancelClick
  end
  object bApply: TButton
    Left = 368
    Top = 424
    Width = 75
    Height = 25
    Caption = '&Apply'
    TabOrder = 3
    OnClick = bApplyClick
  end
  object pmActions: TPopupMenu
    Left = 16
    Top = 424
  end
  object pmLinks: TPopupMenu
    OnPopup = pmLinksPopup
    Left = 108
    Top = 424
    object mAddFile: TMenuItem
      Caption = 'Add a file'
      ShortCut = 45
      OnClick = mAddFileClick
    end
    object mAddURL: TMenuItem
      Caption = 'Add an URL'
      ShortCut = 32813
      OnClick = mAddURLClick
    end
    object mPasteURL: TMenuItem
      Caption = 'Paste URL(s)'
      ShortCut = 8237
      Visible = False
      OnClick = mPasteURLClick
    end
    object mPasteURL1: TMenuItem
      Caption = 'Paste URL(s)'
      ShortCut = 16451
      OnClick = mPasteURLClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mEditLink: TMenuItem
      Caption = 'Edit'
      ShortCut = 13
      OnClick = bOpenDocClick
    end
    object mDeleteLink: TMenuItem
      Caption = 'Delete'
      ShortCut = 46
      OnClick = bDelDocClick
    end
  end
  object pmABLinks: TPopupMenu
    OnPopup = pmABLinksPopup
    Left = 152
    Top = 424
    object mAddABLink: TMenuItem
      Caption = '&Add...'
      ShortCut = 45
      OnClick = bAddAddrClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object mCopyABLink: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      OnClick = mCopyABLinkClick
    end
    object mCopyABLink2: TMenuItem
      Caption = '&Copy'
      ShortCut = 16429
      Visible = False
      OnClick = mCopyABLinkClick
    end
    object mCutABLink: TMenuItem
      Caption = 'C&ut'
      ShortCut = 16472
      OnClick = mCutABLinkClick
    end
    object mCutABLink2: TMenuItem
      Caption = 'C&ut'
      ShortCut = 8238
      Visible = False
      OnClick = mCutABLinkClick
    end
    object mPasteABLink: TMenuItem
      Caption = '&Paste URLs'
      ShortCut = 16470
    end
    object mPasteABLink2: TMenuItem
      Caption = '&Paste URLs'
      ShortCut = 8237
      Visible = False
      OnClick = mPasteABLink2Click
    end
    object mDeleteABLink: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = mDeleteABLinkClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mEditABLink: TMenuItem
      Caption = '&Edit'
      ShortCut = 13
    end
  end
  object ppActions: TPopupMenu
    OnPopup = ppActionsPopup
    Left = 64
    Top = 424
    object mAddAct: TMenuItem
      Caption = '&Add'
    end
    object mEditAct: TMenuItem
      Caption = '&Edit'
      ShortCut = 13
      OnClick = mEditActClick
    end
    object mDeleteAct: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = mDeleteActClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object mCopyAct: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      OnClick = mCopyActClick
    end
    object mCutAct: TMenuItem
      Caption = 'C&ut'
      ShortCut = 16472
      OnClick = mCutActClick
    end
    object mPasteAct: TMenuItem
      Caption = '&Paste'
      ShortCut = 16470
      OnClick = mPasteActClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object mMoveActUp: TMenuItem
      Tag = -1
      Caption = 'Move up'
      ShortCut = 16422
      OnClick = mMoveActUpClick
    end
    object mMoveActDown: TMenuItem
      Tag = 1
      Caption = 'Move Down'
      ShortCut = 16424
      OnClick = mMoveActUpClick
    end
  end
end