From ffaf004a69fedf3f752078eeb42eb398aff05cb2 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 23 Nov 2009 13:13:30 +0000
Subject: [PATCH] lcl: set default parameter for TCustomForm.CreateNew as it is
 delphi compatible and Marco van de Voort requested

git-svn-id: trunk@22720 -
---
 lcl/forms.pp               | 2 +-
 lcl/include/customform.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index c432177a13..0f324ff091 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -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;
 
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 92f01ef0c8..de0b5811e4 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -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);