mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-24 14:19:13 +02:00
fixed Test dialog of find and replace dialog components
git-svn-id: trunk@9677 -
This commit is contained in:
parent
488f931a28
commit
47d6c3a6c5
@ -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;
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user