paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 02:39:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: ttreeview: multi selection and Ctrl click now selects one additional, not the whole group

Browse Source 
git-svn-id: trunk@10284 -
This commit is contained in:
mattias 2006-12-04 00:27:57 +00:00
parent 220d4e0e7c
commit c08c61fe53
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -3274,7 +3274,7 @@ var
begin begin
inherited KeyDown(Key, Shift); inherited KeyDown(Key, Shift);
if tvoAllowMultiSelect in FOptions then if (tvoAllowMultiSelect in FOptions) and (ssShift in Shift) then
lNode := FTreeNodes.FFirstMultiSelected lNode := FTreeNodes.FFirstMultiSelected
else else
lNode := Selected; lNode := Selected;