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

ide: add accelerators for buttons to Find/Replace dialogs (remaining part of issue #0001379)

Browse Source 
git-svn-id: trunk@20046 -
This commit is contained in:
paul 2009-05-19 09:02:46 +00:00
parent e932577e22
commit 4887666b01
3 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/findinfilesdlg.pas
View File

@ -242,9 +242,9 @@ procedure TLazFindInFilesDialog.UpdateReplaceCheck;
begin
ReplaceTextComboBox.Enabled:=ReplaceCheckBox.Checked;
if ReplaceCheckBox.Checked then
ButtonPanel1.OKButton.Caption := lisMenuReplace
ButtonPanel1.OKButton.Caption := lisBtnReplace
else
ButtonPanel1.OKButton.Caption := lisMenuFind;
ButtonPanel1.OKButton.Caption := lisBtnFind;
end;
initialization

28
ide/findreplacedialog.pp
View File

@ -227,12 +227,14 @@ begin
ReplaceAllButton.Visible:=ReplaceWithCheckbox.Checked;
ReplaceTextComboBox.Enabled:=ReplaceAllButton.Visible;
PromptOnReplaceCheckBox.Enabled:=ReplaceAllButton.Visible;
if ReplaceAllButton.Visible then begin
Caption:=lisMenuReplace;
OkButton.Caption:=lisMenuReplace;
end else begin
Caption:=lisMenuFind;
OkButton.Caption:=lisMenuFind;
if ReplaceAllButton.Visible then
begin
Caption := lisMenuReplace;
OkButton.Caption := lisBtnReplace;
end else
begin
Caption := lisMenuFind;
OkButton.Caption := lisBtnFind;
end;
end;
@ -347,12 +349,14 @@ begin
ReplaceTextComboBox.Enabled:=ReplaceAllButton.Visible;
PromptOnReplaceCheckBox.Enabled:=ReplaceAllButton.Visible;
if ssoReplace in NewOptions then begin
Caption:=lisMenuReplace;
OkButton.Caption:=lisMenuReplace;
end else begin
Caption:=lisMenuFind;
OkButton.Caption:=lisMenuFind;
if ssoReplace in NewOptions then
begin
Caption := lisMenuReplace;
OkButton.Caption := lisBtnReplace;
end else
begin
Caption := lisMenuFind;
OkButton.Caption := lisBtnFind;
end;
//DebugLn(['TLazFindReplaceDialog.SetOptions END ssoSelectedOnly=',ssoSelectedOnly in NewOptions,' SelectedRadioButton.Checked=',SelectedRadioButton.Checked]);
end;

2
ide/lazarusidestrconsts.pas
View File

@ -232,10 +232,12 @@ resourcestring
lisMenuInsertChangeLogEntry = 'ChangeLog entry';
lisMenuFind = 'Find';
lisBtnFind = '&Find';
lisMenuFindNext = 'Find &Next';
lisMenuFind2 = '&Find ...';
lisMenuFindPrevious = 'Find &Previous';
lisMenuFindInFiles = 'Find &in files ...';
lisBtnReplace = '&Replace';
lisMenuReplace = 'Replace';
lisMenuIncrementalFind = 'Incremental Find';
lisMenuReplace2 = '&Replace ...';