paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +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) TReplaceDialog = class(TFindDialog)
protected protected
procedure DoCloseForm(Sender: TObject; var CloseAction: TCloseAction);override; procedure DoCloseForm(Sender: TObject; var CloseAction: TCloseAction); override;
function CreateForm:TForm;override; function CreateForm: TForm; override;
procedure UpdateValues;override; procedure UpdateValues; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
published published

2
lcl/include/finddialog.inc
View File

@ -164,7 +164,7 @@ end;
function TFindDialog.CreateForm: TForm; function TFindDialog.CreateForm: TForm;
begin begin
Result:=TFindDialogForm.Create(Self); Result:=TFindDialogForm.Create(nil);
with TFindDialogForm(Result) do begin with TFindDialogForm(Result) do begin
FindButton.Caption:=rsFind; FindButton.Caption:=rsFind;
CancelButton.Caption:=rsMbCancel; CancelButton.Caption:=rsMbCancel;

2
lcl/include/replacedialog.inc
View File

@ -82,7 +82,7 @@ end;
function TReplaceDialog.CreateForm: TForm; function TReplaceDialog.CreateForm: TForm;
begin begin
Result:=TReplaceDialogForm.Create(Self); Result:=TReplaceDialogForm.Create(nil);
with TReplaceDialogForm(Result) do begin with TReplaceDialogForm(Result) do begin
FindMoreButton.Caption:=rsFindMore; FindMoreButton.Caption:=rsFindMore;
ReplaceButton.Caption:=rsReplace; ReplaceButton.Caption:=rsReplace;