-
Notifications
You must be signed in to change notification settings - Fork 4
/
uTableFrame.dfm
98 lines (98 loc) · 2.46 KB
/
uTableFrame.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
object TableFrame: TTableFrame
Left = 0
Top = 0
Width = 674
Height = 526
ParentShowHint = False
ShowHint = False
TabOrder = 0
object sgTable: TStringGrid
Left = 0
Top = 31
Width = 674
Height = 495
Align = alClient
DefaultColWidth = 10
DefaultRowHeight = 18
DefaultDrawing = False
DoubleBuffered = True
DrawingStyle = gdsGradient
RowCount = 3
GradientEndColor = 15790320
GradientStartColor = 15790320
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing, goThumbTracking, goFixedColClick, goFixedRowClick]
ParentDoubleBuffered = False
PopupMenu = pmGrid
TabOrder = 0
OnContextPopup = sgTableContextPopup
OnDrawCell = sgTableDrawCell
OnFixedCellClick = sgTableFixedCellClick
OnGetEditText = sgTableGetEditText
OnKeyDown = sgTableKeyDown
OnMouseDown = sgTableMouseDown
OnMouseMove = sgTableMouseMove
OnMouseWheelDown = sgTableMouseWheelDown
OnMouseWheelUp = sgTableMouseWheelUp
OnSelectCell = sgTableSelectCell
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 674
Height = 31
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object cbFixColumns: TCheckBox
Left = 8
Top = 6
Width = 177
Height = 17
Caption = 'Lock first Columns'
TabOrder = 0
OnClick = cbFixColumnsClick
end
object seFixedColumns: TSpinEdit
Left = 72
Top = 4
Width = 33
Height = 22
Enabled = False
MaxValue = 9
MinValue = 1
TabOrder = 1
Value = 1
OnChange = cbFixColumnsClick
end
end
object pmGrid: TPopupMenu
Left = 392
Top = 160
object miGridAddNew: TMenuItem
Caption = 'Append'
OnClick = miGridAddNewClick
end
object miGridAddCopy: TMenuItem
Caption = 'Append copy'
OnClick = miGridAddCopyClick
end
object N1: TMenuItem
Caption = '-'
end
object miGridInsertNew: TMenuItem
Caption = 'Insert'
OnClick = miGridInsertNewClick
end
object miGridInsertCopy: TMenuItem
Caption = 'Insert copy'
OnClick = miGridInsertCopyClick
end
object N2: TMenuItem
Caption = '-'
end
object miGridDeleteRow: TMenuItem
Caption = 'Delete'
OnClick = miGridDeleteRowClick
end
end
end