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

Win32: first attempt at implementing TListView.OnDataHint. Issue #30757.

Browse Source
This commit is contained in:
Bart 2023-02-22 18:58:14 +01:00
parent 17b66f88c4
commit d42c3fe93b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -295,7 +295,18 @@ var
end;
end;
end;
procedure HandleListViewOwnerDataHint(ALV: TCustomListViewAccess);
var
DataHintInfo: PNMLVCACHEHINT;
begin
debugln('HandleListViewOwnerDataHint');
DataHintInfo := PNMLVCACHEHINT(LPARAM);
if not Assigned(DataHintInfo) or (not ALV.OwnerData) then
Exit;
ALV.DoOwnerDataHint(DataHintInfo^.iFrom, DataHintInfo^.iTo);
end;
begin
Result := False;
case Msg of
@ -312,6 +323,8 @@ begin
end;
LVN_ODFINDITEM:
HandleListViewFindItem(TCustomListViewAccess(AWinControl));
LVN_ODCACHEHINT:
HandleListViewOwnerDataHint(TCustomListViewAccess(AWinControl));
end;
end;
end;