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

LCL: TListView: fix setting column width. Issue #32920

Browse Source 
git-svn-id: trunk@56909 -
This commit is contained in:
ondrej 2018-01-01 20:48:32 +00:00
parent 12997708a7
commit 44d4157a28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/listcolumn.inc
View File

@ -178,7 +178,7 @@ begin
else
if (MaxWidth > 0) and (W > MaxWidth) then
W := MaxWidth;
if FWidth = W then Exit;
if Width = W then Exit; // compare with Width instead of FWidth - FWidth is not updated from the WS automatically
FWidth := W;
Changed(False);
if not WSUpdateAllowed then Exit;