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

lcl: formatting

Browse Source 
git-svn-id: trunk@29777 -
This commit is contained in:
paul 2011-03-10 03:30:53 +00:00
parent c8c11611e7
commit e7845774d8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customform.inc
View File

@ -960,9 +960,10 @@ end;
procedure TCustomForm.EndFormUpdate; procedure TCustomForm.EndFormUpdate;
begin begin
dec(FFormUpdateCount); dec(FFormUpdateCount);
if FFormUpdateCount=0 then begin if FFormUpdateCount = 0 then
begin
FormEndUpdated; FormEndUpdated;
Visible:=(fsVisible in FFormState); Visible := (fsVisible in FFormState);
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.BeginFormUpdate'){$ENDIF}; EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.BeginFormUpdate'){$ENDIF};
end; end;
end; end;