Delphi 5 for Professionals/DELPHI5.iso/AddOns/Components/TEECHART/Delphi1_And_Delphi2/EXAMPLES/EXTENDED/UQUALI.DFM/UQUALI.txt

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

object FormQuality: TFormQuality
  Left = 120
  Top = 46
  ActiveControl = Chart1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'TeeChart-Pro -- Quality Control SPC Charting'
  ClientHeight = 449
  ClientWidth = 506
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  TextHeight = 13
  object Label1: TLabel
    Left = 312
    Top = 360
    Width = 52
    Height = 13
    Caption = 'Upper limit:'
  end
  object Label2: TLabel
    Left = 312
    Top = 384
    Width = 52
    Height = 13
    Caption = 'Lower limit:'
  end
  object Chart1: TChart
    Left = 2
    Top = 35
    Width = 502
    Height = 302
    AnimatedZoom = True
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Font.Color = clBlue
    Title.Font.Height = -16
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      'Quality Control Chart')
    BottomAxis.Grid.Visible = False
    BottomAxis.EndPosition = 100.000000000000000000
    BottomAxis.Title.Caption = 'Samples'
    Chart3DPercent = 10
    LeftAxis.Grid.Style = psSolid
    LeftAxis.LabelsFont.Color = clRed
    LeftAxis.LabelsFont.Height = -11
    LeftAxis.LabelsFont.Name = 'Arial'
    LeftAxis.LabelsFont.Style = []
    LeftAxis.EndPosition = 100.000000000000000000
    LeftAxis.Title.Caption = 'Production (number of pieces)'
    Legend.Alignment = laBottom
    Legend.Color = clAqua
    Legend.ColorWidth = 37
    RightAxis.AxisValuesFormat = '#,##0.###%'
    RightAxis.Grid.Visible = False
    RightAxis.LabelsFont.Color = clGreen
    RightAxis.LabelsFont.Height = -11
    RightAxis.LabelsFont.Name = 'Arial'
    RightAxis.LabelsFont.Style = [fsBold]
    RightAxis.EndPosition = 100.000000000000000000
    RightAxis.Title.Caption = 'SPC %'
    TopAxis.EndPosition = 100.000000000000000000
    TabOrder = 0
    object Good: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = 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
    end
    object Bad: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clGreen
      Title = 'Bad % on Good'
      VertAxis = aRightAxis
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = 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
    end
    object Upper: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clYellow
      Title = 'Upper %'
      VertAxis = aRightAxis
      LinePen.Color = clYellow
      LinePen.Width = 3
      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
    end
    object Lower: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clBlue
      Title = 'Lower %'
      VertAxis = aRightAxis
      LinePen.Color = clBlue
      LinePen.Width = 3
      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
    end
  end
  object Memo1: TMemo
    Left = 8
    Top = 344
    Width = 281
    Height = 97
    Lines.Strings = (
      '"Good" is the number of correctly produced parts.'
      '"Bad" is the percent of wrong parts over the "Good".'
      ''
      'The "Upper" and "Lower" line values are calculated '
      'using the "Good" and "Bad" series, and quality'
      'control statistical formulae.')
    TabOrder = 1
  end
  object Button1: TButton
    Left = 424
    Top = 416
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 2
    OnClick = Button1Click
  end
  object UpperEdit: TEdit
    Left = 374
    Top = 356
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'UpperEdit'
    OnChange = UpperEditChange
  end
  object LowerEdit: TEdit
    Left = 374
    Top = 380
    Width = 121
    Height = 21
    TabOrder = 4
    Text = 'LowerEdit'
    OnChange = LowerEditChange
  end
  object Button2: TButton
    Left = 304
    Top = 416
    Width = 75
    Height = 25
    Caption = '&Help !'
    TabOrder = 5
    OnClick = Button2Click
  end
  object TeeCommander1: TTeeCommander
    Left = 0
    Top = 0
    Width = 506
    Height = 33
    Panel = Chart1
    Align = alTop
    TabOrder = 6
  end
end