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

MG: activated TCustomForm.OnCreate event

Browse Source 
git-svn-id: trunk@335 -
This commit is contained in:
lazarus 2001-10-03 17:34:27 +00:00
parent 68eca96428
commit 1a42b43afc
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customform.inc
View File

@ -669,6 +669,7 @@ begin
//Writeln('This is for information purposes only. This is not critical at this time.');
// MG: Ignoring is best at the moment. (Delphi raises an exception.)
end;
DoCreate;
finally
Exclude(FFormState, fsCreating);
end;
@ -939,8 +940,8 @@ end;
{ =============================================================================
$Log$
Revision 1.25 2001/09/30 08:34:49 lazarus
MG: fixed mem leaks and fixed range check errors
Revision 1.26 2001/10/03 17:34:26 lazarus
MG: activated TCustomForm.OnCreate event
Revision 1.24 2001/07/10 13:25:49 lazarus
MG: repaints reduced

7
lcl/include/wincontrol.inc
View File

@ -398,7 +398,8 @@ var
bShow: Boolean;
n: Integer;
begin
bShow := (FVisible or (csDesigning in ComponentState) and not (csNoDesignVisible in ControlStyle))
bShow := (FVisible or (csDesigning in ComponentState)
and not (csNoDesignVisible in ControlStyle))
and not (csReadingState in ControlState);
if bShow then
@ -1948,8 +1949,8 @@ end;
{ =============================================================================
$Log$
Revision 1.36 2001/09/30 08:34:50 lazarus
MG: fixed mem leaks and fixed range check errors
Revision 1.37 2001/10/03 17:34:27 lazarus
MG: activated TCustomForm.OnCreate event
Revision 1.35 2001/08/07 11:05:51 lazarus
MG: small bugfixes