cocoa: fix in TListBox.setItemIndex to replace the selection, rather than extend it. #34290

git-svn-id: trunk@59036 -
This commit is contained in:
dmitry 2018-09-16 17:55:14 +00:00
parent d17ec595bb
commit e7701af802

View File

@ -1963,7 +1963,7 @@ begin
list := GetListBox(ACustomListBox);
if not Assigned(list) then Exit();
list.selectRowIndexes_byExtendingSelection(NSIndexSet.indexSetWithIndex(AIndex), True)
list.selectRowIndexes_byExtendingSelection(NSIndexSet.indexSetWithIndex(AIndex), false);
end;
class procedure TCocoaWSCustomListBox.SetSelectionMode(const ACustomListBox: TCustomListBox; const AExtendedSelect, AMultiSelect: boolean);