paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 11:08:00 +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

7
lcl/include/customform.inc
View File

@ -658,7 +658,7 @@ end;
{------------------------------------------------------------------------------}
constructor TCustomForm.Create(AOwner : TComponent);
begin
try
try
CreateNew(AOwner, 1);
if (ClassType <> TForm) and not (csDesigning in ComponentState) then
begin
@ -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

15
lcl/include/wincontrol.inc
View File

@ -328,7 +328,7 @@ Begin
End;
{------------------------------------------------------------------------------}
{ TWinControl GetClientOrigin }
{ TWinControl GetClientOrigin }
{------------------------------------------------------------------------------}
Function TWinControl.GetClientOrigin: TPoint;
Begin
@ -340,7 +340,7 @@ Begin
end;
{------------------------------------------------------------------------------}
{ TWinControl ReCreateWnd }
{ TWinControl ReCreateWnd }
{------------------------------------------------------------------------------}
Procedure TWinControl.ReCreateWnd;
Begin
@ -353,7 +353,7 @@ Begin
end;
{------------------------------------------------------------------------------}
{ TWinControl SetBorderWidth }
{ TWinControl SetBorderWidth }
{------------------------------------------------------------------------------}
Procedure TWinControl.SetBorderWidth(value : TBorderWidth);
Begin
@ -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
@ -1656,7 +1657,7 @@ begin
if Parent <> nil then AddControl;
AttachSignals;
InitializeWnd;
InitializeWnd;
if FWInControls <> nil then begin
for n := 0 to FWInControls.Count - 1 do
@ -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