mainganttunit.dfm

Gantt source file example to use in delphi 7

        Left = 326
        Top = 0
        Hint = 'Move plus one Month'
        Caption = 'ToolButton17'
        ImageIndex = 6
        OnClick = ToolButton17Click
      end
      object ToolButton18: TToolButton
        Left = 352
        Top = 0
        Hint = 'Move Minus One Month'
        Caption = 'ToolButton18'
        ImageIndex = 7
        OnClick = ToolButton18Click
      end
      object ToolButton36: TToolButton
        Left = 378
        Top = 0
        Width = 8
        Caption = 'ToolButton36'
        ImageIndex = 23
        Style = tbsSeparator
      end
      object ToolButton34: TToolButton
        Left = 386
        Top = 0
        Hint = 'Scroll Down'
        Caption = 'ToolButton34'
        ImageIndex = 21
        OnClick = ToolButton34Click
      end
      object ToolButton35: TToolButton
        Left = 412
        Top = 0
        Hint = 'Scroll Up'
        Caption = 'ToolButton35'
        ImageIndex = 22
        OnClick = ToolButton35Click
      end
      object ToolButton20: TToolButton
        Left = 438
        Top = 0
        Width = 8
        Caption = 'ToolButton20'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton10: TToolButton
        Left = 446
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ProjectColorBox: TColorBox
        Left = 454
        Top = 0
        Width = 145
        Height = 22
        Hint = 'Set Colour of Project Titles'
        Selected = -16777216
        ItemHeight = 16
        TabOrder = 0
        OnChange = ProjectColorBoxChange
      end
      object ComboBox1: TComboBox
        Left = 599
        Top = 0
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = 'One Month'
        OnChange = ComboBox1Change
        Items.Strings = (
          'Open Format (with Zoom)'
          'One Month'
          'One Week'
          'One Day'
          'One Hour')
      end
      object ToolButton23: TToolButton
        Left = 744
        Top = 0
        Width = 8
        Caption = 'ToolButton23'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolButton22: TToolButton
        Left = 752
        Top = 0
        Hint = 'Create a New Task'
        Caption = 'ToolButton22'
        ImageIndex = 9
        OnClick = ToolButton22Click
      end
      object ToolButton21: TToolButton
        Left = 778
        Top = 0
        Hint = 'Edit the Current Selected Task'
        Caption = 'ToolButton21'
        ImageIndex = 14
        OnClick = ToolButton21Click
      end
      object ToolButton9: TToolButton
        Left = 804
        Top = 0
        Hint = 'Delete Selected Task'
        Caption = 'ToolButton9'
        ImageIndex = 11
        OnClick = ToolButton9Click
      end
      object ToolButton8: TToolButton
        Left = 830
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton24: TToolButton
        Left = 838
        Top = 0
        Hint = 'Create a New Item For the Selected Task'
        Caption = 'ToolButton24'
        ImageIndex = 10
        OnClick = ToolButton24Click
      end
      object ToolButton12: TToolButton
        Left = 864
        Top = 0
        Hint = 'Edit the Current Selected Item'
        Caption = 'ToolButton12'
        ImageIndex = 13
        OnClick = ToolButton12Click
      end
      object ToolButton11: TToolButton
        Left = 890
        Top = 0
        Hint = 'Delete Selected Item'
        Caption = 'ToolButton11'
        ImageIndex = 12
        OnClick = ToolButton11Click
      end
      object ToolButton25: TToolButton
        Left = 916
        Top = 0
        Width = 8
        Caption = 'ToolButton25'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object ToolButton28: TToolButton
        Left = 924
        Top = 0
        Hint = 'Toggle Resource Chart'
        Caption = 'ToolButton28'
        ImageIndex = 17
        OnClick = ToolButton28Click
      end
      object ToolButton30: TToolButton
        Left = 950
        Top = 0
        Width = 8
        Caption = 'ToolButton30'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object ToolButton29: TToolButton
        Left = 958
        Top = 0
        Caption = 'ToolButton29'
        ImageIndex = 18
        OnClick = ToolButton29Click
      end
      object ToolButton31: TToolButton
        Left = 984
        Top = 0
        Caption = 'ToolButton31'
        ImageIndex = 19
        OnClick = ToolButton31Click
      end
      object ToolButton32: TToolButton
        Left = 1010
        Top = 0
        Width = 8
        Caption = 'ToolButton32'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object ToolButton33: TToolButton
        Left = 1018
        Top = 0
        Hint = 'Grid Lines On / Off'
        Caption = 'ToolButton33'
        ImageIndex = 20
        OnClick = ToolButton33Click
      end
      object ToolButton37: TToolButton
        Left = 1044
        Top = 0
        Hint = 'Show Weeks on Grid'
        Caption = 'ToolButton37'
        ImageIndex = 23
        OnClick = ToolButton37Click
      end
      object ToolButton38: TToolButton
        Left = 1070
        Top = 0
        Hint = 'Show days on grid'
        Caption = 'ToolButton38'
        ImageIndex = 24
        OnClick = ToolButton38Click
      end
      object ToolButton41: TToolButton
        Left = 1096
        Top = 0
        Width = 8
        Caption = 'ToolButton41'
        ImageIndex = 27
        Style = tbsSeparator
      end
      object ToolButton39: TToolButton
        Left = 1104
        Top = 0
        Hint = 'Add a Demo Date Block'
        Caption = '12'
        ImageIndex = 25
        OnClick = ToolButton39Click
      end
      object ToolButton40: TToolButton
        Left = 1130
        Top = 0
        Hint = 'Export Gantt to Outlook Tasks'
        Caption = 'ToolButton40'
        ImageIndex = 26
        OnClick = ToolButton40Click
      end
    end
  end
  object ImageList1: TImageList
    Left = 559