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

MG: changed except statements to more verbosity

Browse Source 
git-svn-id: trunk@974 -
This commit is contained in:
lazarus 2002-02-09 01:47:32 +00:00
parent 9ee351f174
commit 095d3690f3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/wincontrol.inc
View File

@ -466,6 +466,7 @@ procedure TWinControl.UpdateShowing;
var
bShow: Boolean;
n: Integer;
ok: boolean;
begin
bShow := (FVisible or (csDesigning in ComponentState)
and not (csNoDesignVisible in ControlStyle))
@ -486,11 +487,13 @@ begin
if FShowing <> bShow
then begin
FShowing := bShow;
ok:=false;
try
Perform(CM_SHOWINGCHANGED, 0, 0);
except
FShowing := not bShow;
raise;
ok:=true;
finally
if not ok then
FShowing := not bShow;
end;
end;
end;
@ -2015,6 +2018,9 @@ end;
{ =============================================================================
$Log$
Revision 1.56 2002/04/04 12:25:01 lazarus
MG: changed except statements to more verbosity
Revision 1.55 2002/03/31 23:20:38 lazarus
MG: fixed initial size of TPage