Delphi 5 for Professionals/DELPHI5.iso/AddOns/Components/TEECHART/Delphi1_And_Delphi2/EXAMPLES/STANDARD/GANTT.DFM/GANTT.txt

Text File | 1998-10-24 | 5.1 KB | 186 lines

object GanttForm: TGanttForm
  Left = 96
  Top = 36
  Width = 565
  Height = 472
  Caption = 'TeeChart Gantt Series Demo'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 97
    Width = 557
    Height = 348
    AllowPanning = pmHorizontal
    BackWall.Brush.Color = clWhite
    BackWall.Color = clSilver
    Foot.Alignment = taRightJustify
    Foot.Font.Color = clYellow
    Foot.Font.Height = -12
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsItalic]
    Foot.Frame.Color = clScrollBar
    Foot.Text.Strings = (

        'Left drag (Up/Down) to Zoom. Right drag to Scroll. Invert Zoom r' +
        'ectangle to reset.')
    Foot.Visible = False
    Title.Font.Color = clWhite
    Title.Font.Height = -13
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Frame.Color = clScrollBar
    Title.Text.Strings = (
      'This demo shows the Gantt chart Type.'
      'Each Point is a Horizontal Bar that defines a Date Period.'
      '')
    BackColor = clSilver
    BottomAxis.Grid.Style = psSolid
    BottomAxis.LabelsAngle = 90
    BottomAxis.LabelsFont.Color = clWhite
    BottomAxis.LabelsFont.Height = -12
    BottomAxis.LabelsFont.Name = 'Arial'
    BottomAxis.LabelsFont.Style = []
    BottomAxis.LabelStyle = talValue
    BottomAxis.MinorTicks.Color = clWhite
    BottomAxis.EndPosition = 100.000000000000000000
    BottomAxis.TickInnerLength = 4
    BottomAxis.Ticks.Color = clLime
    BottomAxis.TicksInner.Color = 8388863
    BottomAxis.Title.Caption = 'Current Year'
    BottomAxis.Title.Font.Color = clMaroon
    BottomAxis.Title.Font.Height = -19
    BottomAxis.Title.Font.Name = 'Arial'
    BottomAxis.Title.Font.Style = [fsItalic]
    LeftAxis.Grid.Color = clLime
    LeftAxis.LabelsFont.Color = clAqua
    LeftAxis.LabelsFont.Height = -13
    LeftAxis.LabelsFont.Name = 'Arial'
    LeftAxis.LabelsFont.Style = []
    LeftAxis.LabelsSeparation = 3
    LeftAxis.LabelStyle = talText
    LeftAxis.EndPosition = 100.000000000000000000
    LeftAxis.Title.Font.Color = clPurple
    LeftAxis.Title.Font.Height = -16
    LeftAxis.Title.Font.Name = 'Arial'
    LeftAxis.Title.Font.Style = [fsBold, fsItalic]
    Legend.Visible = False
    RightAxis.EndPosition = 100.000000000000000000
    TopAxis.EndPosition = 100.000000000000000000
    View3D = False
    OnGetNextAxisLabel = Chart1GetNextAxisLabel
    Align = alClient
    Color = 8421440
    TabOrder = 0
    OnMouseMove = Chart1MouseMove
    object GanttSeries1: TGanttSeries
      ColorEachPoint = True
      Marks.ArrowLength = 0
      Marks.BackColor = clWhite
      Marks.Clip = True
      Marks.Font.Color = clNavy
      Marks.Font.Height = -9
      Marks.Font.Name = 'Arial'
      Marks.Font.Style = []
      Marks.Frame.Color = clRed
      Marks.Visible = True
      SeriesColor = clRed
      OnClick = GanttSeries1Click
      Pointer.Draw3D = False
      Pointer.HorizSize = 83
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.VertSize = 8
      Pointer.Visible = True
      XValues.DateTime = True
      XValues.Name = 'Start'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      ConnectingPen.Color = clRed
      ConnectingPen.Width = 2
      StartValues.DateTime = True
      StartValues.Name = 'Start'
      StartValues.Multiplier = 1.000000000000000000
      StartValues.Order = loAscending
      EndValues.DateTime = False
      EndValues.Name = 'End'
      EndValues.Multiplier = 1.000000000000000000
      EndValues.Order = loNone
      NextTask.DateTime = False
      NextTask.Name = 'NextTask'
      NextTask.Multiplier = 1.000000000000000000
      NextTask.Order = loNone
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 557
    Height = 97
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 295
      Top = 6
      Width = 62
      Height = 24
      Caption = 'Label1'
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Shape1: TShape
      Left = 296
      Top = 63
      Width = 77
      Height = 26
    end
    object Label2: TLabel
      Left = 295
      Top = 34
      Width = 62
      Height = 24
      Caption = 'Label1'
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 448
      Top = 58
      Width = 89
      Height = 33
      TabOrder = 0
      Kind = bkClose
    end
    object Memo1: TMemo
      Left = 8
      Top = 8
      Width = 265
      Height = 81
      Lines.Strings = (
        'Gantt Series are made of points with Start and End'
        'coordinates.'
        ''
        'This example shows how to get mouse position and '
        'how to customize bottom axis labels.')
      TabOrder = 1
    end
  end
end