paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 14:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced up/down with more meaningful forward/backward search

Browse Source 
git-svn-id: trunk@6568 -
This commit is contained in:
mattias 2005-01-13 18:44:01 +00:00
parent 3e8ff569bb
commit d1d89f1a92
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/findreplacedialog.pp
View File

@ -160,7 +160,7 @@ begin
ReplaceWithLabel:=TLabel.Create(Self); ReplaceWithLabel:=TLabel.Create(Self);
with ReplaceWithLabel do begin with ReplaceWithLabel do begin
Name:='ReplaceWithLabel'; Name:='ReplaceWithLabel';
Parent:=Self; Parent:=Self;
SetBounds(x,y+3,ComboX-x,Height); SetBounds(x,y+3,ComboX-x,Height);
Caption:=dlgReplaceWith; Caption:=dlgReplaceWith;
FocusControl:= ReplaceTextComboBox; FocusControl:= ReplaceTextComboBox;
@ -289,8 +289,8 @@ begin
with Items do begin with Items do begin
BeginUpdate; BeginUpdate;
Clear; Clear;
Add(dlgUpWord); Add(lisFRForwardSearch);
Add(dlgDownWord); Add(lisFRBackwardSearch);
EndUpdate; EndUpdate;
end; end;
ItemIndex:=1; ItemIndex:=1;

2
ide/lazarusidestrconsts.pas
View File

@ -1060,6 +1060,8 @@ resourcestring
dlgGlobal = 'Global'; dlgGlobal = 'Global';
dlgSelectedText = 'Selected Text'; dlgSelectedText = 'Selected Text';
dlgDirection = 'Direction'; dlgDirection = 'Direction';
lisFRForwardSearch = 'Forward search';
lisFRBackwardSearch = 'Backward search';
dlgUpWord = 'Up'; dlgUpWord = 'Up';
dlgDownWord = 'Down'; dlgDownWord = 'Down';
dlgReplaceAll = 'Replace All'; dlgReplaceAll = 'Replace All';