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

LCL: TCustomListView: update images on DPI change

Browse Source 
git-svn-id: branches/HiDPIImageList@57158 -
This commit is contained in:
ondrej 2018-01-27 13:52:14 +00:00
parent 71b81a6c94
commit 1d1f091f4d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlistview.inc
View File

@ -618,6 +618,7 @@ procedure TCustomListView.DoAutoAdjustLayout(
var
i: Integer;
C: TListColumn;
L: TListViewImageList;
begin
inherited;
@ -630,6 +631,9 @@ begin
C.MinWidth := Round(C.MinWidth * AXProportion);
C.Width := Round(C.Width * AXProportion);
end;
for L in TListViewImageList do
SetImageListWS(L);
end;
end;