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

LCL: grids: fixed regression from r50262 #fa277e1eb3. Issue #28959

Browse Source 
git-svn-id: trunk@50371 -
This commit is contained in:
ondrej 2015-11-17 17:56:11 +00:00
parent 904373f6ce
commit b8b626d91e
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/grids.pas
View File

@ -11646,7 +11646,7 @@ procedure TGridColumn.SetWidth(const AValue: Integer);
begin begin
if (AValue=0) and not Visible then if (AValue=0) and not Visible then
exit; exit;
if AValue>0 then begin if AValue>=0 then begin
if FWidth = nil then begin if FWidth = nil then begin
if AValue=GetDefaultWidth then if AValue=GetDefaultWidth then
exit; exit;