paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 22:30:39 +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 begin
ReplaceTextComboBox.Enabled:=ReplaceCheckBox.Checked; ReplaceTextComboBox.Enabled:=ReplaceCheckBox.Checked;
if ReplaceCheckBox.Checked then if ReplaceCheckBox.Checked then
ButtonPanel1.OKButton.Caption := lisMenuReplace ButtonPanel1.OKButton.Caption := lisBtnReplace
else else
ButtonPanel1.OKButton.Caption := lisMenuFind; ButtonPanel1.OKButton.Caption := lisBtnFind;
end; end;
initialization initialization

20
ide/findreplacedialog.pp
View File

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

2
ide/lazarusidestrconsts.pas
View File

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