Skip to content

Commit a81b13c

Browse files
joachimmarderjoachimmarder
authored
Merge pull request #1337 from chuacw/Multiselect
Multicell select feature with copy support
2 parents dfb9c38 + 8d89933 commit a81b13c

15 files changed

+2463
-920
lines changed

‎Demos/Multiselect/Multiselect.Main.dfm‎

Lines changed: 188 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,188 @@
1+
object Form1: TForm1
2+
Left = 0
3+
Top = 0
4+
Margins.Left = 7
5+
Margins.Top = 7
6+
Margins.Right = 7
7+
Margins.Bottom = 7
8+
Caption = 'Multiselect Demo'
9+
ClientHeight = 776
10+
ClientWidth = 1104
11+
Color = clBtnFace
12+
Font.Charset = DEFAULT_CHARSET
13+
Font.Color = clWindowText
14+
Font.Height = -27
15+
Font.Name = 'Segoe UI'
16+
Font.Style = []
17+
OldCreateOrder = True
18+
Position = poMainFormCenter
19+
OnCreate = FormCreate
20+
PixelsPerInch = 216
21+
TextHeight = 37
22+
object VirtualStringTree1: TVirtualStringTree
23+
Left = 0
24+
Top = 0
25+
Width = 828
26+
Height = 776
27+
Margins.Left = 7
28+
Margins.Top = 7
29+
Margins.Right = 7
30+
Margins.Bottom = 7
31+
Align = alClient
32+
DefaultNodeHeight = 46
33+
Header.AutoSizeIndex = 0
34+
Header.Height = 40
35+
Header.MaxHeight = 22500
36+
Header.MinHeight = 23
37+
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
38+
Indent = 41
39+
Margin = 9
40+
TabOrder = 0
41+
TextMargin = 9
42+
TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toSelectNextNodeOnRemoval]
43+
OnFreeNode = VirtualStringTree1FreeNode
44+
OnGetText = VirtualStringTree1GetText
45+
OnKeyPress = VirtualStringTree1KeyPress
46+
Touch.InteractiveGestures = [igPan, igPressAndTap]
47+
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
48+
Columns = <
49+
item
50+
MaxWidth = 9999
51+
MinWidth = 9
52+
Position = 0
53+
Spacing = 2
54+
Text = 'table_schema'
55+
Width = 212
56+
end
57+
item
58+
MaxWidth = 9999
59+
MinWidth = 9
60+
Position = 1
61+
Spacing = 2
62+
Text = 'table_name'
63+
Width = 191
64+
end
65+
item
66+
MaxWidth = 9999
67+
MinWidth = 9
68+
Position = 2
69+
Spacing = 2
70+
Text = 'table_type'
71+
Width = 204
72+
end
73+
item
74+
MaxWidth = 9999
75+
MinWidth = 9
76+
Position = 3
77+
Spacing = 2
78+
Text = 'table_version'
79+
Width = 183
80+
end>
81+
end
82+
object Panel1: TPanel
83+
Left = 828
84+
Top = 0
85+
Width = 276
86+
Height = 776
87+
Margins.Left = 7
88+
Margins.Top = 7
89+
Margins.Right = 7
90+
Margins.Bottom = 7
91+
Align = alRight
92+
Anchors = []
93+
BevelOuter = bvNone
94+
Caption = 'Panel1'
95+
TabOrder = 1
96+
DesignSize = (
97+
276
98+
776)
99+
object btnSelect4CellsLeftToRight: TButton
100+
Left = 44
101+
Top = 6
102+
Width = 216
103+
Height = 90
104+
Margins.Left = 7
105+
Margins.Top = 7
106+
Margins.Right = 7
107+
Margins.Bottom = 7
108+
Anchors = [akRight]
109+
Caption = 'Select 4 cells'#13#10'left to right'
110+
TabOrder = 0
111+
WordWrap = True
112+
OnClick = btnSelect4CellsLeftToRightClick
113+
end
114+
object btnSelect4CellsRightToLeft: TButton
115+
Left = 44
116+
Top = 110
117+
Width = 216
118+
Height = 90
119+
Margins.Left = 7
120+
Margins.Top = 7
121+
Margins.Right = 7
122+
Margins.Bottom = 7
123+
Anchors = [akRight]
124+
Caption = 'Select 4 cells'#13#10'right to left'
125+
TabOrder = 1
126+
WordWrap = True
127+
OnClick = btnSelect4CellsRightToLeftClick
128+
end
129+
object btnClickRow2Col1: TButton
130+
Left = 14
131+
Top = 293
132+
Width = 252
133+
Height = 56
134+
Margins.Left = 7
135+
Margins.Top = 7
136+
Margins.Right = 7
137+
Margins.Bottom = 7
138+
Anchors = [akRight]
139+
Caption = 'Select row 2, cell 1'
140+
TabOrder = 2
141+
OnClick = btnClickRow2Col1Click
142+
end
143+
object btnClickRow1Col1: TButton
144+
Left = 14
145+
Top = 222
146+
Width = 252
147+
Height = 57
148+
Margins.Left = 7
149+
Margins.Top = 7
150+
Margins.Right = 7
151+
Margins.Bottom = 7
152+
Anchors = [akRight]
153+
Caption = 'Select row 1, cell 1'
154+
TabOrder = 3
155+
OnClick = btnClickRow1Col1Click
156+
end
157+
object btnSelectRow3Col1Row4Col2: TButton
158+
Left = 14
159+
Top = 363
160+
Width = 252
161+
Height = 118
162+
Margins.Left = 7
163+
Margins.Top = 7
164+
Margins.Right = 7
165+
Margins.Bottom = 7
166+
Anchors = [akRight]
167+
Caption = 'Select row 3, col 2, row 4, col 3'#13#10'Copy'
168+
TabOrder = 4
169+
WordWrap = True
170+
OnClick = btnSelectRow3Col1Row4Col2Click
171+
end
172+
object btnSelectRow2_3_Copy: TButton
173+
Left = 14
174+
Top = 495
175+
Width = 252
176+
Height = 72
177+
Margins.Left = 7
178+
Margins.Top = 7
179+
Margins.Right = 7
180+
Margins.Bottom = 7
181+
Anchors = [akRight]
182+
Caption = 'Select row 2-3, copy'
183+
TabOrder = 5
184+
WordWrap = True
185+
OnClick = btnSelectRow2_3_CopyClick
186+
end
187+
end
188+
end

0 commit comments

Comments
 (0)