paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +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.'); //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.) // MG: Ignoring is best at the moment. (Delphi raises an exception.)
end; end;
DoCreate;
finally finally
Exclude(FFormState, fsCreating); Exclude(FFormState, fsCreating);
end; end;
@ -939,8 +940,8 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.25 2001/09/30 08:34:49 lazarus Revision 1.26 2001/10/03 17:34:26 lazarus
MG: fixed mem leaks and fixed range check errors MG: activated TCustomForm.OnCreate event
Revision 1.24 2001/07/10 13:25:49 lazarus Revision 1.24 2001/07/10 13:25:49 lazarus
MG: repaints reduced MG: repaints reduced

7
lcl/include/wincontrol.inc
View File

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