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

cocoa: implementing .MakeVisible() for TListView items

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2021-09-19 17:56:10 -04:00 committed by Maxim Ganetsky
parent 10e94128a0
commit 7fb476c5cd
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -1462,8 +1462,14 @@ end;
class procedure TCocoaWSCustomListView.ItemShow(const ALV: TCustomListView;
const AIndex: Integer; const AItem: TListItem; const PartialOK: Boolean);
var
lCocoaLV: TCocoaListView;
lTableLV: TCocoaTableListView;
begin
inherited ItemShow(ALV, AIndex, AItem, PartialOK);
//inherited ItemShow(ALV, AIndex, AItem, PartialOK);
if not CheckParams(lCocoaLV, lTableLV, ALV) then
Exit;
lTableLV.scrollRowToVisible(AItem.Index);
end;
class function TCocoaWSCustomListView.GetFocused(const ALV: TCustomListView): Integer;