unitfrmmonthandproduct.dfm

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

object FrmMonthAndProduct: TFrmMonthAndProduct
  Left = 231
  Top = 182
  BorderStyle = bsDialog
  Caption = 'MonthAndProduct'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 673
    Height = 441
    Caption = 'Panel1'
    TabOrder = 0
    object Label3: TLabel
      Left = 544
      Top = 121
      Width = 49
      Height = 13
      Caption = 'Detail List:'
    end
    object Chart1: TChart
      Left = 16
      Top = 32
      Width = 513
      Height = 393
      AllowPanning = pmNone
      AllowZoom = False
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      BackWall.Pen.Visible = False
      Title.Text.Strings = (
        'TChart')
      Title.Visible = False
      AxisVisible = False
      ClipPoints = False
      Frame.Visible = False
      Legend.Visible = False
      View3D = False
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      View3DWalls = False
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 0
      object Series1: TPieSeries
        Marks.ArrowLength = 8
        Marks.Style = smsLabelPercent
        Marks.Visible = True
        SeriesColor = clRed
        OtherSlice.Text = 'Other'
        PieValues.DateTime = False
        PieValues.Name = 'Pie'
        PieValues.Multiplier = 1.000000000000000000
        PieValues.Order = loNone
      end
    end
    object GroupBox1: TGroupBox
      Left = 536
      Top = 32
      Width = 121
      Height = 73
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 28
        Height = 13
        Caption = 'Year: '
      end
      object Label2: TLabel
        Left = 8
        Top = 48
        Width = 45
        Height = 13
        Caption = 'Category:'
      end
      object ComboBox1: TComboBox
        Left = 40
        Top = 16
        Width = 73
        Height = 21
        Enabled = False
        ItemHeight = 13
        TabOrder = 0
        Text = 'ComboBox1'
      end
      object ComboBox2: TComboBox
        Left = 56
        Top = 48
        Width = 57
        Height = 21
        Enabled = False
        ItemHeight = 13
        TabOrder = 1
        Text = 'ComboBox2'
      end
    end
    object ListBox1: TListBox
      Left = 536
      Top = 144
      Width = 129
      Height = 281
      ItemHeight = 13
      TabOrder = 2
    end
  end
end