paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 07:41:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, added dbgrid option dgPersistentMultiSelect to support dbgrid old multiselect behaviour, issue #11836

Browse Source 
git-svn-id: trunk@16098 -
This commit is contained in:
jesus 2008-08-18 05:49:26 +00:00
parent 849470df8f
commit 33235f2ad7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -63,7 +63,8 @@ type
dgCancelOnExit, // Ya
dgMultiselect, // Ya
dgHeaderHotTracking,
dgHeaderPushedLook
dgHeaderPushedLook,
dgPersistentMultiSelect
);
TDbGridOptions = set of TDbGridOption;
@ -1696,6 +1697,9 @@ var
N: Integer;
CurBookmark: TBookmarkStr;
begin
if dgPersistentMultiSelect in Options then
exit;
if (ssShift in Shift) then begin
CurBookmark := FDatalink.DataSet.Bookmark;
@ -2784,7 +2788,7 @@ end;
procedure TCustomDBGrid.ClearSelection(selCurrent:boolean=false);
begin
if (dgMultiSelect in Options) then begin
if [dgMultiSelect,dgPersistentMultiSelect]*Options=[dgMultiSelect] then begin
if SelectedRows.Count>0 then
SelectedRows.Clear;
if SelCurrent then