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

Text File | 1998-10-24 | 5.6 KB | 221 lines

object LinkedTablesForm: TLinkedTablesForm
  Left = 89
  Top = 39
  Width = 560
  Height = 476
  ActiveControl = DBNavigator1
  Caption = 'TeeChart Linked Tables Demo'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  TextHeight = 13
  object DBChart1: TDBChart
    Left = 0
    Top = 216
    Width = 552
    Height = 233
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Pen.Color = clAqua
    BackWall.Pen.Style = psDashDot
    Foot.Alignment = taRightJustify
    Foot.Font.Color = clBlue
    Foot.Font.Height = -15
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsBold]
    Foot.Frame.Color = clScrollBar
    Foot.Visible = False
    Title.Font.Color = clNavy
    Title.Font.Height = -13
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold, fsItalic]
    Title.Frame.Color = clScrollBar
    Title.Text.Strings = (
      'Linked Tables Chart Demo')
    BottomAxis.LabelsAngle = 90
    BottomAxis.LabelsFont.Color = clGreen
    BottomAxis.LabelsFont.Height = -13
    BottomAxis.LabelsFont.Name = 'Arial'
    BottomAxis.LabelsFont.Style = [fsBold]
    BottomAxis.LabelStyle = talText
    BottomAxis.EndPosition = 100.000000000000000000
    Chart3DPercent = 90
    Frame.Color = clAqua
    Frame.Style = psDashDot
    LeftAxis.EndPosition = 100.000000000000000000
    Legend.Color = clBlue
    Legend.ColorWidth = 13
    Legend.Font.Color = clYellow
    Legend.Font.Height = -13
    Legend.Font.Name = 'Arial'
    Legend.Font.Style = [fsBold, fsItalic]
    Legend.Frame.Color = clWhite
    Legend.Frame.Width = 4
    Legend.TextStyle = ltsRightValue
    Legend.TopPos = 5
    RightAxis.LabelsFont.Color = clRed
    RightAxis.LabelsFont.Height = -13
    RightAxis.LabelsFont.Name = 'Arial'
    RightAxis.LabelsFont.Style = [fsItalic]
    RightAxis.EndPosition = 100.000000000000000000
    RightAxis.TickLength = 12
    RightAxis.Ticks.Color = clWhite
    RightAxis.Ticks.Width = 2
    TopAxis.EndPosition = 100.000000000000000000
    View3DOptions.Elevation = 359
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 35
    View3DOptions.Rotation = 341
    View3DOptions.Zoom = 80
    Align = alClient
    TabOrder = 0
    object AreaSeries1: TAreaSeries
      ColorEachPoint = True
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Table2
      SeriesColor = clRed
      VertAxis = aRightAxis
      XLabelsSource = 'SaleDate'
      DrawArea = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'AmountPaid'
      Left = 40
      Top = 258
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 48
    Width = 552
    Height = 75
    Align = alTop
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 552
    Height = 48
    Align = alTop
    TabOrder = 2
    object DBNavigator1: TDBNavigator
      Left = 12
      Top = 11
      Width = 225
      Height = 26
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 406
      Top = 8
      Width = 95
      Height = 33
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Kind = bkClose
    end
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 123
    Width = 552
    Height = 93
    Align = alTop
    DataSource = DataSource2
    TabOrder = 3
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 480
    Top = 144
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 416
    Top = 144
    object Table1CustNo: TFloatField
      DisplayWidth = 12
      FieldName = 'CustNo'
    end
    object Table1Company: TStringField
      DisplayWidth = 29
      FieldName = 'Company'
      Size = 30
    end
    object Table1City: TStringField
      DisplayWidth = 18
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      DisplayWidth = 7
      FieldName = 'State'
    end
    object Table1Country: TStringField
      DisplayWidth = 14
      FieldName = 'Country'
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'ORDERS.DB'
    Left = 272
    Top = 144
    object Table2OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object Table2CustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
      Visible = False
    end
    object Table2SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object Table2AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 336
    Top = 144
  end
end