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

LCL, fix hiding and then showing a dbgrid column (remained 0 width), bug reported by José Antonio Cuello

Browse Source 
git-svn-id: trunk@27813 -
This commit is contained in:
jesus 2010-10-22 19:42:09 +00:00
parent 421f4f7909
commit 87f28a9497
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -10260,6 +10260,8 @@ end;
procedure TGridColumn.SetWidth(const AValue: Integer); procedure TGridColumn.SetWidth(const AValue: Integer);
begin begin
if (AValue=0) and not Visible then
exit;
if FWidth = nil then begin if FWidth = nil then begin
if AValue=GetDefaultWidth then if AValue=GetDefaultWidth then
exit; exit;