unitfrmassociation.~dfm

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

object FrmAssociation: TFrmAssociation
  Left = 85
  Top = 105
  BorderStyle = bsSingle
  Caption = 'Association'
  ClientHeight = 572
  ClientWidth = 872
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 8
    Width = 865
    Height = 561
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 121
      Height = 169
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 63
        Height = 13
        Caption = 'Min Support: '
      end
      object Label2: TLabel
        Left = 11
        Top = 77
        Width = 74
        Height = 13
        Caption = 'Min Confidence'
      end
      object ComboBox1: TComboBox
        Left = 16
        Top = 40
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = 'ComboBox1'
        Items.Strings = (
          '0.002'
          '0.003'
          '0.004'
          '0.005'
          '0.006'
          '0.007'
          '0.008'
          '0.009'
          '')
      end
      object ComboBox2: TComboBox
        Left = 16
        Top = 104
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = 'ComboBox2'
        Items.Strings = (
          '0.02'
          '0.03'
          '0.04'
          '0.05'
          '0.06'
          '0.07'
          '0.08'
          '0.09')
      end
      object Button1: TButton
        Left = 24
        Top = 136
        Width = 59
        Height = 25
        Caption = 'OK'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object Chart1: TChart
      Left = 136
      Top = 16
      Width = 721
      Height = 537
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        'TChart')
      Title.Visible = False
      BottomAxis.AxisValuesFormat = '#,##0.####'
      Legend.Visible = False
      View3D = False
      View3DWalls = False
      BevelOuter = bvLowered
      TabOrder = 1
      OnClick = Chart1Click
      OnDblClick = Chart1DblClick
      OnMouseDown = Chart1MouseDown
      object Series3: TBubbleSeries
        Marks.ArrowLength = 0
        Marks.Frame.Visible = False
        Marks.Style = smsValue
        Marks.Transparent = True
        Marks.Visible = True
        SeriesColor = clYellow
        Pointer.HorizSize = 46
        Pointer.InflateMargins = True
        Pointer.Style = psCircle
        Pointer.VertSize = 46
        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
        RadiusValues.DateTime = False
        RadiusValues.Name = 'Radius'
        RadiusValues.Multiplier = 1.000000000000000000
        RadiusValues.Order = loNone
      end
    end
    object ListBox1: TListBox
      Left = 8
      Top = 192
      Width = 121
      Height = 337
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 240
    object ItemSet1: TMenuItem
      Caption = 'ItemSet'
      object N1ItemSet1: TMenuItem
        Caption = '1ItemSet'
        OnClick = N1ItemSet1Click
      end
      object N2ItemSet1: TMenuItem
        Caption = '2ItemSet'
        OnClick = N2ItemSet1Click
      end
    end
  end
end