unitfrmmain.~dfm
来自「关联规则算法的实现和表示Delphi源码」· ~DFM 代码 · 共 419 行 · 第 1/2 页
~DFM
419 行
object FrmMain: TFrmMain
Left = 136
Top = 75
Width = 860
Height = 630
Caption = 'iAnalysis'
Color = clInactiveBorder
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 192
Top = 24
Width = 809
Height = 57
Align = alCustom
Columns = <
item
AutoSize = True
Caption = #26102#38388
end
item
AutoSize = True
Caption = #22269#23478
end
item
AutoSize = True
Caption = #22478#24066
end
item
AutoSize = True
Caption = #23458#25143
end
item
AutoSize = True
Caption = #21830#21697#31181#31867
end
item
AutoSize = True
Caption = #21830#21697
end
item
AutoSize = True
Caption = 'Quantity'
end
item
AutoSize = True
Caption = 'totalPrice'
end>
TabOrder = 0
ViewStyle = vsReport
end
object StatusBar1: TStatusBar
Left = 0
Top = 662
Width = 1005
Height = 27
Panels = <
item
Text = ' Retail Analysis System'
Width = 400
end
item
Text = 'Based On MS Analysis Service'
Width = 200
end>
end
object TreeView1: TTreeView
Left = 32
Top = 24
Width = 153
Height = 649
Align = alCustom
AutoExpand = True
Indent = 19
ReadOnly = True
TabOrder = 2
OnDblClick = TreeView1DblClick
OnMouseDown = TreeView1MouseDown
Items.Data = {
03000000210000000000000000000000FFFFFFFFFFFFFFFF0000000003000000
08D2BBCEACCAD3BDC71D0000000000000000000000FFFFFFFFFFFFFFFF000000
000200000004CAB1BCE41B0000000000000000000000FFFFFFFFFFFFFFFF0000
00000000000002C4EA1B0000000000000000000000FFFFFFFFFFFFFFFF000000
000000000002D4C21D0000000000000000000000FFFFFFFFFFFFFFFF00000000
0300000004BFCDBBA71D0000000000000000000000FFFFFFFFFFFFFFFF000000
000000000004B9FABCD21D0000000000000000000000FFFFFFFFFFFFFFFF0000
00000000000004B3C7CAD01D0000000000000000000000FFFFFFFFFFFFFFFF00
0000000000000004BFCDBBA71D0000000000000000000000FFFFFFFFFFFFFFFF
000000000200000004C9CCC6B71D0000000000000000000000FFFFFFFFFFFFFF
FF000000000000000004D6D6C0E01D0000000000000000000000FFFFFFFFFFFF
FFFF000000000000000004C9CCC6B7210000000000000000000000FFFFFFFFFF
FFFFFF000000000300000008B6FECEACCAD3BDC7220000000000000000000000
FFFFFFFFFFFFFFFF000000000000000009CAB1BCE42BBFCDBBA7220000000000
000000000000FFFFFFFFFFFFFFFF000000000000000009CAB1BCE42BC9CCC6B7
220000000000000000000000FFFFFFFFFFFFFFFF000000000000000009BFCDBB
A72BC9CCC6B7210000000000000000000000FFFFFFFFFFFFFFFF000000000100
000008C8FDCEACCAD3BDC7270000000000000000000000FFFFFFFFFFFFFFFF00
000000000000000ECAB1BCE42BBFCDBBA72BC9CCC6B7}
end
object ToolBar1: TToolBar
Left = 0
Top = 17
Width = 33
Height = 645
Align = alLeft
ButtonHeight = 30
ButtonWidth = 29
Caption = 'ToolBar1'
Images = ImageList1
TabOrder = 3
object ToolButton1: TToolButton
Left = 0
Top = 2
Action = ActionETL
ImageIndex = 0
Wrap = True
end
object ToolButton2: TToolButton
Left = 0
Top = 32
Action = ActionOLAP
ImageIndex = 2
end
object ToolButton3: TToolButton
Left = 0
Top = 32
Width = 8
Caption = 'ToolButton3'
ImageIndex = 2
Wrap = True
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 0
Top = 67
Action = ActionAssociation
ImageIndex = 1
Wrap = True
end
object ToolButton5: TToolButton
Left = 0
Top = 97
Caption = 'ToolButton5'
ImageIndex = 3
end
end
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1005
Height = 17
Caption = 'ToolBar2'
TabOrder = 4
end
object Chart1: TChart
Left = 192
Top = 91
Width = 813
Height = 571
BackWall.Brush.Color = clWhite
BackWall.Color = clCaptionText
Title.Text.Strings = (
'TChart')
Title.Visible = False
BackColor = clCaptionText
Legend.Visible = False
View3D = False
View3DWalls = False
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clWhite
TabOrder = 5
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
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 Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?