object ToDoEx: TToDoEx
  Left = 206
  Top = 213
  Width = 700
  Height = 390
  Caption = 'To-Do list'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000000077777777000033317FFFFF8700003B
    1917888887000031991700008700003191917888870000191191700087000011
    3319178887000000001917008700000000F191788700000000FF170087000000
    00FFFFFF8700000000000000000000000000000000000000000000000000FFFF
    0000FFFF0000F8030000C0030000C0030000C0030000C0030000C0030000C003
    0000F8030000F8030000F8030000F8030000F8030000FFFF0000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = dfsGradientFormCreate
  OnDestroy = dfsGradientFormDestroy
  OnShow = dfsGradientFormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 536
    Top = 0
    Width = 7
    Height = 318
    Cursor = crHSplit
    Beveled = True
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 318
    Width = 692
    Height = 18
    Panels = <
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 543
    Top = 0
    Width = 149
    Height = 318
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 1
    object RichEdit1: TRichEdit98
      Tag = 127
      Left = 2
      Top = 2
      Width = 141
      Height = 310
      Align = alClient
      AutoURLDetect = adExtended
      BorderStyle = bsNone
      CustomURLs = <
        item
          Name = 'e-mail'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'http'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'file'
          Color = clRed
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'mailto'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'ftp'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'https'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'gopher'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'nntp'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'prospero'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'telnet'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'news'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'wais'
          Color = clWindowText
          Cursor = crDefault
          Underline = True
        end
        item
          Name = 'rb'
          Color = clFuchsia
          Cursor = crHandPoint
          Underline = False
        end>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      LangOptions = [loAutoFont]
      Language = 1033
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      ShowSelectionBar = False
      TabOrder = 0
      URLColor = clBlue
      URLCursor = crHandPoint
      AutoVerbMenu = False
      InputFormat = ifRTF
      OutputFormat = ofText
      SelectedInOut = False
      PlainRTF = False
      UndoLimit = 0
      AllowInPlace = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 318
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 2
    object ListView1: TdfsExtListView
      Left = 1
      Top = 1
      Width = 534
      Height = 316
      Columns = <
        item
          ImageIndex = 0
          Width = 25
        end
        item
          Caption = 'Pri'
          Width = 30
        end
        item
          Caption = 'Description'
          Width = 200
        end
        item
          Caption = 'Start date'
          Width = 80
        end
        item
          Caption = 'Due date'
          Width = 80
        end
        item
          Caption = 'Finished'
          Width = 80
        end
        item
          Caption = 'Category'
          Width = 100
        end
        item
          Alignment = taCenter
          ImageIndex = 1
        end>
      HideSelection = False
      ExtendedStyles = [lvxSubItemImages, lvxFullRowSelect, lvxInfoTip]
      NoColumnResize = False
      ColumnsFormat = <>
      AutoColumnSort = acsSortToggle
      Style = lvOwnerDrawFixed
      OnDrawItem = ListView1DrawItem
      OnSortBegin = ListView1SortBegin
      Align = alClient
      OnClick = ListView1Click
      OnDblClick = actToDoPropertiesExecute
      ReadOnly = True
      MultiSelect = True
      PopupMenu = PopupMenu1
      TabOrder = 0
      ViewStyle = vsReport
      SmallImages = ImageList1
    end
  end
  object ImageList1: TImageList
    Left = 24
    Top = 288
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object PopupMenu1: TPopupMenu
    Left = 216
    Top = 152
    object ToDoitem2: TMenuItem
      Action = actToDoNew
    end
    object ToDoItem1: TMenuItem
      Action = actToDoDelete
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object CopyItem2: TMenuItem
      Caption = 'Copy Item'
    end
    object MoveItem2: TMenuItem
      Caption = 'Move Item'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Properties1: TMenuItem
      Action = actToDoProperties
    end
  end
  object ActionList1: TActionList
    Left = 120
    Top = 64
    object actCategoryNew: TAction
      Category = 'Category'
      Caption = 'Category...'
      OnExecute = actCategoryNewExecute
    end
    object actToDoNew: TAction
      Category = 'ToDo'
      Caption = 'New Item...'
      OnExecute = actToDoNewExecute
      OnUpdate = actToDoNewUpdate
    end
    object actToDoDelete: TAction
      Category = 'ToDo'
      Caption = 'Delete Item'
      OnExecute = actToDoDeleteExecute
      OnUpdate = actToDoDeleteUpdate
    end
    object actToDoProperties: TAction
      Category = 'ToDo'
      Caption = 'Properties...'
      OnExecute = actToDoPropertiesExecute
      OnUpdate = actToDoNewUpdate
    end
    object actClose: TAction
      Caption = 'Close'
      OnExecute = actCloseExecute
    end
    object actCategoryEditor: TAction
      Category = 'Category'
      Caption = 'Edit...'
      OnExecute = actCategoryEditorExecute
    end
  end
  object MainMenu1: TMainMenu
    Left = 160
    Top = 48
    object File1: TMenuItem
      Caption = '&To-Do'
      object New2: TMenuItem
        Action = actToDoNew
      end
      object DeleteToDo1: TMenuItem
        Action = actToDoDelete
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object CopyItem1: TMenuItem
        Caption = 'Copy Item'
      end
      object MoveItem1: TMenuItem
        Caption = 'Move Item'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Export1: TMenuItem
        Caption = 'Export...'
        Enabled = False
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Properties2: TMenuItem
        Action = actToDoProperties
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = 'Close'
      end
    end
    object Category3: TMenuItem
      Caption = 'Category'
      object New3: TMenuItem
        Action = actCategoryNew
        Caption = 'New...'
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Edit1: TMenuItem
        Action = actCategoryEditor
      end
    end
    object View1: TMenuItem
      Caption = 'View'
    end
    object Extra1: TMenuItem
      Caption = '&Extra'
      object Showlines1: TMenuItem
        Caption = 'Show lines'
        OnClick = Showlines1Click
      end
      object Showcolours1: TMenuItem
        Caption = 'Show colours'
        OnClick = Showcolours1Click
      end
    end
  end
end
