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

LazVirtualTreeview: Use default hint kind if not set by OnGetHintKind (ported from blikblum's repo, PR #34).

Browse Source
This commit is contained in:
wp_xyz 2024-07-08 19:14:09 +02:00
parent 40f2a90d83
commit 6248e7d959
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -31771,12 +31771,13 @@ procedure TBaseVirtualTree.DoGetHintKind(Node: PVirtualNode; Column:
TColumnIndex; var Kind: TVTHintKind);
begin
Kind := DefaultHintKind;
if Assigned(FOnGetHintKind) then
FOnGetHintKind(Self, Node, Column, Kind)
else
Kind := DefaultHintKind;
FOnGetHintKind(Self, Node, Column, Kind);
end;
//----------------------------------------------------------------------------------------------------------------------
function TBaseVirtualTree.GetDefaultHintKind: TVTHintKind;
begin