mainganttunit.dfm

Gantt source file example to use in delphi 7

object GanttForm: TGanttForm
  Left = 82
  Top = 99
  Width = 1245
  Height = 663
  Caption = 'Gantt Creator (c) Dancemammal.com 2007'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GanttChart1: TGanttChart
    Left = 0
    Top = 29
    Width = 1237
    Height = 582
    Align = alClient
    OnSelectItem = GanttChart1SelectItem
    OnSelectProject = GanttChart1SelectProject
    OnDblClickItemEvent = GanttChart1DblClickItemEvent
    PrintOptions.TopMargin = 60
    PrintOptions.PrintHeader.Alignment = taCenter
    PrintOptions.PrintHeader.Caption = 'Project Main Gantt Chart'
    PrintOptions.PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintOptions.PrintHeader.Font.Color = clWindowText
    PrintOptions.PrintHeader.Font.Height = -11
    PrintOptions.PrintHeader.Font.Name = 'MS Sans Serif'
    PrintOptions.PrintHeader.Font.Style = []
    PrintOptions.PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintOptions.PrintFooter.Font.Color = clWindowText
    PrintOptions.PrintFooter.Font.Height = -11
    PrintOptions.PrintFooter.Font.Name = 'MS Sans Serif'
    PrintOptions.PrintFooter.Font.Style = []
    NumberofMonths = 3
    StartMonth = 1
    GridStartDate = 39245
    GanttTitle = 'Dancemammal.com Gantt Creator Component'
    GanttProjectsTitle = 'Projects : '
    ProjectTitleColour = clMoneyGreen
    ShadowColour = clTeal
    GridLinesColor = 15921906
    WeekendColor = 15724527
    TodayColor = clSkyBlue
    StartLinking = False
    ProjectHeight = 16
    DayWidth = 10
    DrawLinkLength = 5
    ShowItemLength = True
    Shadows = True
    ShadowSize = 3
    TitlesBoxWidth = 180
    TitlesBoxHeight = 45
    ShowGridLines = True
    TopMostProject = 0
    ShowHeaderDayNumbers = True
    ShowHeaderWeeks = True
    ShowAllDays = False
    ShowHeaderProjectDays = True
    UseISO8601Weeks = True
    RoundTitles = True
    ScrollBars = ssBoth
    GanttLanguage = LgEnglish
    ItemCanMoveProject = True
    ItemLinksPenSize = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 611
    Width = 1237
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'Ok'
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 1237
    Height = 29
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 1233
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 1220
      Height = 25
      ButtonWidth = 26
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Hint = 'Open Gantt Chart'
        Caption = 'ToolButton1'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object ToolButton3: TToolButton
        Left = 26
        Top = 0
        Hint = 'Save Gantt Chart'
        Caption = 'ToolButton3'
        ImageIndex = 1
        OnClick = ToolButton3Click
      end
      object ToolButton27: TToolButton
        Left = 52
        Top = 0
        Hint = 'Export as Bitmap File'
        Caption = 'ToolButton27'
        ImageIndex = 16
        OnClick = ToolButton27Click
      end
      object ToolButton13: TToolButton
        Left = 78
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 86
        Top = 0
        Hint = 'Clear Gantt Chart'
        Caption = 'ToolButton4'
        ImageIndex = 2
        OnClick = ToolButton4Click
      end
      object ToolButton26: TToolButton
        Left = 112
        Top = 0
        Hint = 'Edit Gantt Chart Details'
        Caption = 'ToolButton26'
        ImageIndex = 15
        OnClick = ToolButton26Click
      end
      object ToolButton14: TToolButton
        Left = 138
        Top = 0
        Width = 8
        Caption = 'ToolButton14'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 146
        Top = 0
        Hint = 'Print Gantt Chart'
        Caption = 'ToolButton5'
        ImageIndex = 3
        OnClick = ToolButton5Click
      end
      object ToolButton15: TToolButton
        Left = 172
        Top = 0
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton19: TToolButton
        Left = 180
        Top = 0
        Hint = 'Dragging and Editing'
        Caption = 'ToolButton19'
        Down = True
        Grouped = True
        ImageIndex = 8
        Style = tbsCheck
        OnClick = ToolButton6Click
      end
      object ToolButton6: TToolButton
        Left = 206
        Top = 0
        Hint = 'Create Links between Items'
        Caption = 'ToolButton6'
        Grouped = True
        ImageIndex = 4
        Style = tbsCheck
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 232
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton16: TToolButton
        Left = 240
        Top = 0
        Hint = 'Remove Links Between Items'
        Caption = 'ToolButton16'
        ImageIndex = 5
        OnClick = ToolButton16Click
      end
      object ToolButton2: TToolButton
        Left = 266
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton17: TToolButton
        Left = 274
        Top = 0
        Hint = 'Move plus one Month'
        Caption = 'ToolButton17'
        ImageIndex = 6
        OnClick = ToolButton17Click
      end
      object ToolButton18: TToolButton
        Left = 300
        Top = 0
        Hint = 'Move Minus One Month'
        Caption = 'ToolButton18'
        ImageIndex = 7
        OnClick = ToolButton18Click