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

fixed Test dialog of find and replace dialog components

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/dialogs.pp
View File

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

2
lcl/include/finddialog.inc
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;

2
lcl/include/replacedialog.inc
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;