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

lcl: set default parameter for TCustomForm.CreateNew as it is delphi compatible and Marco van de Voort requested

Browse Source 
git-svn-id: trunk@22720 -
This commit is contained in:
paul 2009-11-23 13:13:30 +00:00
parent bbdc3ac65d
commit ffaf004a69
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -529,7 +529,7 @@ type
procedure UpdateActions; virtual;
public
constructor Create(AOwner: TComponent); override;
constructor CreateNew(AOwner: TComponent; Num : Integer{=0}); virtual;
constructor CreateNew(AOwner: TComponent; Num: Integer = 0); virtual;
destructor Destroy; override;
procedure BeforeDestruction; override;

2
lcl/include/customform.inc
View File

@ -1571,7 +1571,7 @@ end;
{------------------------------------------------------------------------------
constructor TCustomForm.CreateNew(AOwner: TComponent; Num : Integer);
------------------------------------------------------------------------------}
constructor TCustomForm.CreateNew(AOwner: TComponent; Num : Integer);
constructor TCustomForm.CreateNew(AOwner: TComponent; Num: Integer = 0);
begin
Include(FFormState,fsFirstShow);
//DebugLn('[TCustomForm.CreateNew] Class=',Classname);