Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Changed a few language strings (again) to English

Browse Source 
Fixed bug in the replace system
Fixed bug in the Autcomplete Check
Changed version number to 1.4
This commit is contained in:
Christian Hammacher
2005-12-01 16:30:26 +00:00
parent 83d2e1a510
commit 507a901a9e
8 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
editor/studio/UnitfrmMain.pas
View File

@ -1204,12 +1204,15 @@ begin
if frmReplace.ShowModal = mrOk then begin
if not Plugin_SearchReplace(frmReplace.cboSearchFor.Text, frmReplace.cboReplaceWith.Text, frmReplace.cboSearchFor.Items.Text, frmReplace.cboReplaceWith.Items.Text, frmSearch.chkCaseSensivity.Checked, frmSearch.chkWholeWordsOnly.Checked, frmSearch.chkSearchFromCaret.Checked, frmSearch.chkSelectedTextOnly.Checked, frmSearch.chkRegularExpression.Checked, frmSearch.chkForward.Checked) then
exit;
with sciSearchReplace do begin
SearchBackwards := frmReplace.chkBackward.Checked;
SearchCaseSensitive := frmReplace.chkCaseSensivity.Checked;
if (frmReplace.chkReplaceAll.Checked) and (LowerCase(frmReplace.cboSearchFor.Text) = LowerCase(frmReplace.cboReplaceWith.Text)) then
SearchCaseSensitive := True;
SearchFromCaret := frmReplace.chkSearchFromCaret.Checked;
// I don't like this but it works so far
if (frmReplace.chkReplaceAll.Checked) and (Pos(LowerCase(frmReplace.cboSearchFor.Text), LowerCase(frmReplace.cboReplaceWith.Text)) <> 0) then
SearchFromCaret := True
else
SearchFromCaret := frmReplace.chkSearchFromCaret.Checked;
SearchSelectionOnly := frmReplace.chkSelectedTextOnly.Checked;
SearchWholeWords := frmReplace.chkWholeWordsOnly.Checked;
SearchRegex := frmReplace.chkRegularExpression.Checked;
@ -1991,7 +1994,8 @@ begin
for i := 0 to eACList.Count -1 do begin
if eFunction = LowerCase(Trim(TACFunction(eACList.Items[i]).Name)) then begin
if TACFunction(eACList.Items[i]).Items.Count > GetFunctionPos then begin
ListToDisplay.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll]);
if Trim(TACFunction(eACList.Items[i]).Items[GetFunctionPos]) <> '' then
ListToDisplay.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll]);
break;
end;
end;