mainganttunit.dfm

Gantt source file example to use in delphi 7

object GanttForm: TGanttForm
  Left = 32
  Top = 247
  Width = 1234
  Height = 724
  Caption = 'Gantt Creator (c) Dancemammal.com 2007 Projects'
  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: TGanttProjectChart
    Left = 0
    Top = 29
    Width = 1226
    Height = 643
    Align = alClient
    OnDblClick = GanttChart1DblClick
    OnSelectItem = GanttChart1SelectItem
    OnSelectProject = GanttChart1SelectProject
    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 = 4
    StartMonth = 6
    GridStartDate = 39234
    GanttTitle = 'Dancemammal.com Gantt Creator Component'
    GanttProjectsTitle = 'Duration : '
    ProjectTitleColour = cl3DLight
    ProjectLinesColour = 15921906
    ShadowColour = clTeal
    GridLinesColor = 15921906
    WeekendColor = 15724527
    TodayColor = clSkyBlue
    StartLinking = False
    ProjectHeight = 16
    DayWidth = 31
    DrawLinkLength = 5
    ShowItemLength = True
    Shadows = True
    ShadowSize = 3
    TitlesBoxWidth = 300
    TitlesBoxHeight = 45
    ShowGridLines = True
    TopMostProject = 0
    ShowHeaderDayNumbers = True
    ShowHeaderWeeks = True
    ShowAllDays = False
    ShowHeaderProjectDays = True
    UseISO8601Weeks = True
    RoundTitles = True
    ScrollBars = ssVertical
    GanttLanguage = LgEnglish
    ItemCanMoveProject = True
    ItemLinksPenSize = 1
    ShowResourceChart = True
    GanttTimeType = ttMonth
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 672
    Width = 1226
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'Ok'
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 1226
    Height = 29
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 1222
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 1209
      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 ToolButton43: TToolButton
        Left = 146
        Top = 0
        Hint = 'Print WYSIWYG Chart'
        Caption = 'ToolButton43'
        ImageIndex = 3
        OnClick = ToolButton43Click
      end
      object ToolButton5: TToolButton
        Left = 172
        Top = 0
        Hint = 'Print Gantt Chart'
        Caption = 'ToolButton5'
        ImageIndex = 3
        OnClick = ToolButton5Click
      end
      object ToolButton42: TToolButton
        Left = 198
        Top = 0
        Hint = 'Print Month Selection'
        Caption = 'ToolButton42'
        ImageIndex = 3
        OnClick = ToolButton42Click
      end
      object ToolButton15: TToolButton
        Left = 224
        Top = 0
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton19: TToolButton
        Left = 232
        Top = 0
        Hint = 'Dragging and Editing'
        Caption = 'ToolButton19'
        Down = True
        Grouped = True
        ImageIndex = 8
        Style = tbsCheck
        OnClick = ToolButton6Click
      end
      object ToolButton6: TToolButton
        Left = 258
        Top = 0
        Hint = 'Create Links between Items'
        Caption = 'ToolButton6'
        Grouped = True
        ImageIndex = 4
        Style = tbsCheck
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 284
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton16: TToolButton
        Left = 292
        Top = 0
        Hint = 'Remove Links Between Items'
        Caption = 'ToolButton16'
        ImageIndex = 5
        OnClick = ToolButton16Click
      end
      object ToolButton2: TToolButton
        Left = 318
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton17: TToolButton