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

Cocoa/ListView: in vsReport, Multi Selection improved

Browse Source
This commit is contained in:
rich2014 2024-08-06 00:43:44 +08:00
parent 36411545a9
commit 8985e4ed16
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoatables.pas
View File

@ -633,7 +633,7 @@ begin
Exit;
lclcb:= TLCLListViewCallback( self.callback.GetCallbackObject );
selection:= NSMutableIndexSet.alloc.initWithIndexSet( lclcb.selectionIndexSet );
selection:= NSMutableIndexSet.alloc.initWithIndexSet( self.selectedRowIndexes );
if isSelected then begin
if NOT self.allowsMultipleSelection then
selection.removeAllIndexes;
@ -642,8 +642,11 @@ begin
selection.removeIndex( index );
end;
if NOT selection.isEqualToIndexSet(lclcb.selectionIndexSet) then
self.selectRowIndexes_byExtendingSelection( selection, False );
if NOT selection.isEqualToIndexSet(self.selectedRowIndexes) then begin
lclcb.selectionIndexSet.removeAllIndexes;
lclcb.selectionIndexSet.addIndexes( selection );
self.selectRowIndexesByProgram( selection );
end;
selection.release;
end;
@ -2004,6 +2007,7 @@ end;
procedure TCocoaWSListView_TableViewHandler.SetSort(const AType: TSortType;
const AColumn: Integer; const ASortDirection: TSortDirection);
begin
_tableView.deselectAll(nil);
_tableView.reloadData();
{ //todo:
lNSColumn.setSortDescriptorPrototype(