From 47d6c3a6c57ef618a4db0f879e7bdb0f548fce92 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 25 Jul 2006 22:38:55 +0000
Subject: [PATCH] fixed Test dialog of find and replace dialog components

git-svn-id: trunk@9677 -
---
 lcl/dialogs.pp                | 6 +++---
 lcl/include/finddialog.inc    | 2 +-
 lcl/include/replacedialog.inc | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index 8b6ae56015..76d8ece4ce 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -351,9 +351,9 @@ type
 
   TReplaceDialog = class(TFindDialog)
   protected
-    procedure DoCloseForm(Sender: TObject; var CloseAction: TCloseAction);override;
-    function CreateForm:TForm;override;
-    procedure UpdateValues;override;
+    procedure DoCloseForm(Sender: TObject; var CloseAction: TCloseAction); override;
+    function CreateForm: TForm; override;
+    procedure UpdateValues; override;
   public
     constructor Create(AOwner: TComponent); override;
   published
diff --git a/lcl/include/finddialog.inc b/lcl/include/finddialog.inc
index 0d67de4e61..0a2be615cb 100644
--- a/lcl/include/finddialog.inc
+++ b/lcl/include/finddialog.inc
@@ -164,7 +164,7 @@ end;
 
 function TFindDialog.CreateForm: TForm;
 begin
-  Result:=TFindDialogForm.Create(Self);
+  Result:=TFindDialogForm.Create(nil);
   with TFindDialogForm(Result) do begin
     FindButton.Caption:=rsFind;
     CancelButton.Caption:=rsMbCancel;
diff --git a/lcl/include/replacedialog.inc b/lcl/include/replacedialog.inc
index f670763097..edd5d0071a 100644
--- a/lcl/include/replacedialog.inc
+++ b/lcl/include/replacedialog.inc
@@ -82,7 +82,7 @@ end;
 
 function TReplaceDialog.CreateForm: TForm;
 begin
-  Result:=TReplaceDialogForm.Create(Self);
+  Result:=TReplaceDialogForm.Create(nil);
   with TReplaceDialogForm(Result) do begin
     FindMoreButton.Caption:=rsFindMore;
     ReplaceButton.Caption:=rsReplace;