home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / QualityControl.dfm / QualityControl.txt
Encoding:
Text File  |  2001-09-10  |  5.0 KB  |  197 lines
  1. object FormQuality: TFormQuality
  2.   Left = 406
  3.   Top = 254
  4.   ActiveControl = Chart1
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsDialog
  7.   ClientHeight = 361
  8.   ClientWidth = 457
  9.   Color = clSilver
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Chart1: TChart
  21.     Left = 0
  22.     Top = 113
  23.     Width = 457
  24.     Height = 248
  25.     BackWall.Brush.Color = clWhite
  26.     BackWall.Brush.Style = bsClear
  27.     Legend.Alignment = laBottom
  28.     Legend.Color = clAqua
  29.     Legend.ColorWidth = 37
  30.     Legend.Symbol.Width = 37
  31.     Title.Font.Height = -16
  32.     Title.Font.Style = [fsBold]
  33.     Title.Text.Strings = (
  34.       'Quality Control Chart')
  35.     BottomAxis.Grid.Visible = False
  36.     BottomAxis.Title.Caption = 'Samples'
  37.     Chart3DPercent = 10
  38.     LeftAxis.Grid.Style = psSolid
  39.     LeftAxis.LabelsFont.Color = clRed
  40.     LeftAxis.Title.Caption = 'Production (number of pieces)'
  41.     RightAxis.AxisValuesFormat = '#,##0.###%'
  42.     RightAxis.Grid.Visible = False
  43.     RightAxis.LabelsFont.Color = clGreen
  44.     RightAxis.LabelsFont.Style = [fsBold]
  45.     RightAxis.Title.Caption = 'SPC %'
  46.     Zoom.Animated = True
  47.     Align = alClient
  48.     TabOrder = 0
  49.     object Good: TLineSeries
  50.       Marks.ArrowLength = 8
  51.       Marks.Visible = False
  52.       SeriesColor = clRed
  53.       Pointer.InflateMargins = True
  54.       Pointer.Style = psRectangle
  55.       Pointer.Visible = True
  56.       XValues.Name = 'X'
  57.       XValues.Order = loAscending
  58.       YValues.Name = 'Y'
  59.       YValues.Order = loNone
  60.     end
  61.     object Bad: TLineSeries
  62.       Marks.ArrowLength = 8
  63.       Marks.Visible = False
  64.       SeriesColor = clGreen
  65.       Title = 'Bad % on Good'
  66.       VertAxis = aRightAxis
  67.       Pointer.InflateMargins = True
  68.       Pointer.Style = psRectangle
  69.       Pointer.Visible = True
  70.       XValues.Name = 'X'
  71.       XValues.Order = loAscending
  72.       YValues.Name = 'Y'
  73.       YValues.Order = loNone
  74.     end
  75.     object Upper: TFastLineSeries
  76.       Marks.ArrowLength = 8
  77.       Marks.Visible = False
  78.       SeriesColor = clYellow
  79.       Title = 'Upper %'
  80.       VertAxis = aRightAxis
  81.       LinePen.Color = clYellow
  82.       LinePen.Width = 3
  83.       XValues.Name = 'X'
  84.       XValues.Order = loAscending
  85.       YValues.Name = 'Y'
  86.       YValues.Order = loNone
  87.     end
  88.     object Lower: TFastLineSeries
  89.       Marks.ArrowLength = 8
  90.       Marks.Visible = False
  91.       SeriesColor = clBlue
  92.       Title = 'Lower %'
  93.       VertAxis = aRightAxis
  94.       LinePen.Color = clBlue
  95.       LinePen.Width = 3
  96.       XValues.Name = 'X'
  97.       XValues.Order = loAscending
  98.       YValues.Name = 'Y'
  99.       YValues.Order = loNone
  100.     end
  101.   end
  102.   object Panel1: TPanel
  103.     Left = 0
  104.     Top = 0
  105.     Width = 457
  106.     Height = 113
  107.     Align = alTop
  108.     TabOrder = 1
  109.     object Label1: TLabel
  110.       Left = 320
  111.       Top = 12
  112.       Width = 52
  113.       Height = 13
  114.       Caption = '&Upper limit:'
  115.       FocusControl = UpperEdit
  116.     end
  117.     object Label2: TLabel
  118.       Left = 320
  119.       Top = 60
  120.       Width = 52
  121.       Height = 13
  122.       Caption = '&Lower limit:'
  123.       FocusControl = LowerEdit
  124.     end
  125.     object UpperEdit: TEdit
  126.       Left = 320
  127.       Top = 32
  128.       Width = 121
  129.       Height = 21
  130.       TabOrder = 0
  131.       Text = 'UpperEdit'
  132.       OnChange = UpperEditChange
  133.     end
  134.     object LowerEdit: TEdit
  135.       Left = 320
  136.       Top = 80
  137.       Width = 121
  138.       Height = 21
  139.       TabOrder = 1
  140.       Text = 'LowerEdit'
  141.       OnChange = LowerEditChange
  142.     end
  143.     object PageControl1: TPageControl
  144.       Left = 1
  145.       Top = 1
  146.       Width = 304
  147.       Height = 113
  148.       ActivePage = TabSheet2
  149.       TabOrder = 2
  150.       object TabSheet1: TTabSheet
  151.         Caption = 'Description'
  152.         object Memo1: TMemo
  153.           Left = 0
  154.           Top = 0
  155.           Width = 296
  156.           Height = 85
  157.           Align = alClient
  158.           ScrollBars = ssVertical
  159.           TabOrder = 0
  160.           WordWrap = False
  161.         end
  162.       end
  163.       object TabSheet2: TTabSheet
  164.         Caption = 'Help'
  165.         object Memo2: TMemo
  166.           Left = 0
  167.           Top = 0
  168.           Width = 296
  169.           Height = 85
  170.           Align = alClient
  171.           Lines.Strings = (
  172.             'Calculating and charting the Upper and Lower limits of an '
  173.             'SPC Quality Control series.'
  174.             
  175.               'This example includes formulae to calculate the SPC upper and lo' +
  176.               'wer '
  177.             
  178.               'limits. The Chart displays 2 series, one with the number of "goo' +
  179.               'd" parts '
  180.             
  181.               'and another with the percent of "bad" parts. With these two Seri' +
  182.               'es, '
  183.             'the example calculates two values: the upper and lower limits.'
  184.             'These limits are displayed using another two series.  '
  185.             
  186.               'Correctness of calculation depends very much on your particular ' +
  187.               'country rules.'
  188.             ' ')
  189.           ScrollBars = ssVertical
  190.           TabOrder = 0
  191.           WordWrap = False
  192.         end
  193.       end
  194.     end
  195.   end
  196. end
  197.