fixed Test dialog of find and replace dialog components

git-svn-id: trunk@9677 -
This commit is contained in:
mattias 2006-07-25 22:38:55 +00:00
parent 488f931a28
commit 47d6c3a6c5
3 changed files with 5 additions and 5 deletions

View File

@ -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;

View File

@ -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;