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

LCL-Win32: Show also empty ListView subitem as selected with RowSelect and OwnerData. Issue #38848, patch by Zaher Dirkey.

Browse Source 
git-svn-id: trunk@65092 -
This commit is contained in:
juha 2021-05-07 09:20:49 +00:00
parent 2f5e5ca72a
commit 66493736c2
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,23 +115,18 @@ var
else
txt := '';
end;
if txt <> '' then
if DataInfo^.hdr.code = UInt(LVN_GETDISPINFOA) then
begin
if DataInfo^.hdr.code = UInt(LVN_GETDISPINFOA) then
begin
LVInfo^.DispInfoTextA[LVInfo^.DispInfoIndex]:=Utf8ToAnsi(txt);
DataInfo^.item.pszText := @(LVInfo^.DispInfoTextA[LVInfo^.DispInfoIndex][1]);
end
else
begin
LVInfo^.DispInfoTextW[LVInfo^.DispInfoIndex]:=UTF8Decode(txt);
DataInfo^.item.pszText := @(LVInfo^.DispInfoTextW[LVInfo^.DispInfoIndex][1]);
end;
inc(LVInfo^.DispInfoIndex);
if LVInfo^.DispInfoIndex=LV_DISP_INFO_COUNT then LVInfo^.DispInfoIndex:=0;
LVInfo^.DispInfoTextA[LVInfo^.DispInfoIndex]:=Utf8ToAnsi(txt+#0);
DataInfo^.item.pszText := @(LVInfo^.DispInfoTextA[LVInfo^.DispInfoIndex][1]);
end
else
DataInfo^.item.pszText := nil;
begin
LVInfo^.DispInfoTextW[LVInfo^.DispInfoIndex]:=UTF8Decode(txt+#0);
DataInfo^.item.pszText := PChar(LVInfo^.DispInfoTextW[LVInfo^.DispInfoIndex]);
end;
inc(LVInfo^.DispInfoIndex);
if LVInfo^.DispInfoIndex=LV_DISP_INFO_COUNT then LVInfo^.DispInfoIndex:=0;
end;
if (DataInfo^.item.mask and LVIF_IMAGE) <> 0 then
begin