ganttdetailsunit.dfm

Gantt source file example to use in delphi 7

object GanttDetailsForm: TGanttDetailsForm
  Left = 421
  Top = 10
  Width = 614
  Height = 324
  Caption = 'Gantt Details'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 49
    Top = 47
    Width = 85
    Height = 13
    Caption = 'Gantt Project Title'
  end
  object Label3: TLabel
    Left = 35
    Top = 77
    Width = 100
    Height = 13
    Caption = 'Item Shadows Colour'
  end
  object Label4: TLabel
    Left = 78
    Top = 200
    Width = 55
    Height = 13
    Caption = 'Start Month'
  end
  object Label6: TLabel
    Left = 82
    Top = 137
    Width = 50
    Height = 13
    Caption = 'Day Width'
  end
  object Label7: TLabel
    Left = 49
    Top = 108
    Width = 85
    Height = 13
    Caption = 'Task Titles Colour'
  end
  object Label2: TLabel
    Left = 69
    Top = 169
    Width = 63
    Height = 13
    Caption = 'Tasks Height'
  end
  object Label5: TLabel
    Left = 50
    Top = 231
    Width = 77
    Height = 13
    Caption = 'Titles Box Width'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 606
    Height = 26
    Align = alTop
    Caption = 'Edit Gantt Chart Details'
    Color = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 257
    Width = 606
    Height = 34
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 301
      Top = 4
      Width = 75
      Height = 25
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 0
    end
    object Button2: TButton
      Left = 220
      Top = 4
      Width = 75
      Height = 25
      Caption = '&Ok'
      Default = True
      ModalResult = 1
      TabOrder = 1
    end
  end
  object ItemNameEdit: TEdit
    Left = 144
    Top = 43
    Width = 299
    Height = 21
    TabOrder = 2
    Text = 'Project One'
  end
  object ShadowColorBox: TColorBox
    Left = 144
    Top = 73
    Width = 145
    Height = 22
    Selected = clMoneyGreen
    ItemHeight = 16
    TabOrder = 3
  end
  object StartComboBox: TComboBox
    Left = 144
    Top = 196
    Width = 146
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 4
    Text = 'January'
    Items.Strings = (
      'January'
      'February'
      'March'
      'April'
      'May'
      'June'
      'July'
      'August'
      'September'
      'October'
      'November'
      'December')
  end
  object LengthSpinEdit: TSpinEdit
    Left = 144
    Top = 133
    Width = 146
    Height = 22
    MaxValue = 50
    MinValue = 10
    TabOrder = 5
    Value = 10
  end
  object TitlesColorBox: TColorBox
    Left = 144
    Top = 103
    Width = 145
    Height = 22
    Selected = clNavy
    ItemHeight = 16
    TabOrder = 6
  end
  object ProjectHeightEdit: TSpinEdit
    Left = 144
    Top = 164
    Width = 146
    Height = 22
    MaxValue = 100
    MinValue = 10
    TabOrder = 7
    Value = 16
  end
  object CheckBox1: TCheckBox
    Left = 317
    Top = 72
    Width = 97
    Height = 17
    Caption = 'Show Shadows'
    TabOrder = 8
  end
  object CheckBox2: TCheckBox
    Left = 317
    Top = 94
    Width = 145
    Height = 17
    Caption = 'Show Item day Length'
    TabOrder = 9
  end
  object TitlesSpinEdit: TSpinEdit
    Left = 144
    Top = 226
    Width = 146
    Height = 22
    MaxValue = 1000
    MinValue = 180
    TabOrder = 10
    Value = 250
  end
end