unitfrmyearandproduct.dfm

来自「关联规则算法的实现和表示Delphi源码」· DFM 代码 · 共 128 行

object FrmYearAndProduct: TFrmYearAndProduct
  Left = 192
  Top = 110
  BorderStyle = bsDialog
  Caption = 'YearAndProduct'
  ClientHeight = 579
  ClientWidth = 784
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 16
    Top = 8
    Width = 745
    Height = 553
    Caption = 'Panel1'
    TabOrder = 0
    object Label2: TLabel
      Left = 624
      Top = 184
      Width = 87
      Height = 13
      Caption = 'Category  Detail:   '
    end
    object Chart1: TChart
      Left = 16
      Top = 32
      Width = 601
      Height = 505
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        'TChart')
      Title.Visible = False
      Legend.Visible = False
      View3D = False
      View3DWalls = False
      BevelInner = bvLowered
      BevelOuter = bvLowered
      TabOrder = 0
      OnDblClick = Chart1DblClick
      object Series1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        BarStyle = bsRectGradient
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1.000000000000000000
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1.000000000000000000
        YValues.Order = loNone
      end
    end
    object GroupBox1: TGroupBox
      Left = 624
      Top = 32
      Width = 105
      Height = 49
      TabOrder = 1
      object Label1: TLabel
        Left = 0
        Top = 16
        Width = 25
        Height = 13
        Caption = 'Year:'
      end
      object ComboBox1: TComboBox
        Left = 32
        Top = 16
        Width = 57
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = '1996'
        OnChange = ComboBox1Change
        Items.Strings = (
          '1996'
          '1997'
          '1998')
      end
    end
    object RadioGroup1: TRadioGroup
      Left = 624
      Top = 96
      Width = 113
      Height = 65
      Caption = #19979#38075
      TabOrder = 2
    end
    object RadioButton1: TRadioButton
      Left = 632
      Top = 112
      Width = 89
      Height = 17
      Caption = #26376#20221
      TabOrder = 3
    end
    object RadioButton2: TRadioButton
      Left = 632
      Top = 136
      Width = 73
      Height = 17
      Caption = #21830#21697
      TabOrder = 4
    end
    object ListBox1: TListBox
      Left = 624
      Top = 208
      Width = 113
      Height = 329
      ItemHeight = 13
      TabOrder = 5
      OnDblClick = ListBox1DblClick
      OnMouseDown = ListBox1MouseDown
    end
  end
end