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

Revert an earlier change in 82b9902b12. The checks are needed.

Browse Source
This commit is contained in:
Juha 2022-03-06 09:09:54 +02:00
parent d921dc84fd
commit a1dca01b66
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/listcolumn.inc
View File

@ -188,10 +188,10 @@ var
W: TWidth;
begin
W := AValue;
if W < MinWidth then
if (MinWidth > 0) and (W < MinWidth) then
W := MinWidth
else
if W > MaxWidth then
if (MaxWidth > 0) and (W > MaxWidth) then
W := MaxWidth;
if Width = W then Exit; // compare with Width instead of FWidth - FWidth is not updated from the WS automatically
FWidth := W;