Changed a few language strings (again) to English

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

View File

@ -113,9 +113,9 @@ RootDir=C:\Programme\Borland\Delphi7\Bin\
IncludeVerInfo=1
AutoIncBuild=1
MajorVer=1
MinorVer=3
MinorVer=4
Release=0
Build=36
Build=1
Debug=0
PreRelease=0
Special=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.3.0.36
InternalName=
LegalCopyright=
FileVersion=1.4.0.1
InternalName=gaben
LegalCopyright=AMX Mod X Dev Team
LegalTrademarks=
OriginalFilename=
ProductName=AMXX-Studio
ProductVersion=1.2.0.0
ProductVersion=1.4.0.0
Comments=
[HistoryLists\hlConditionals]
Count=1

View File

@ -47,7 +47,6 @@ uses
- FlatStyle
- Toolbar2000, TBX, SpTBX, mbTBX Lib
- Scintilla and DelphiSci
- madExcept
}
{$R *.res}

Binary file not shown.

Binary file not shown.

View File

@ -456,10 +456,11 @@ var eStr: String;
begin
Result := 0;
eStr := StringReplace(frmMain.sciEditor.Lines[frmMain.sciEditor.GetCurrentLineNumber], '^"', '', [rfReplaceAll]);
eStr := Copy(eStr, 1, frmMain.sciEditor.GetCaretInLine);
while Between(eStr, '"', '"') <> '' do
eStr := StringReplace(eStr, Between(eStr, '"', '"'), '', [rfReplaceAll]);
while Between(eStr, '{', '}') <> '' do
eStr := StringReplace(eStr, Between(eStr, '"', '"'), '', [rfReplaceAll]);
eStr := StringReplace(eStr, Between(eStr, '{', '}'), '', [rfReplaceAll]);
for i := 0 to Length(eStr) -1 do begin
if eStr[i] = ',' then
Result := Result +1;

Binary file not shown.

View File

@ -756,7 +756,6 @@ object frmMain: TfrmMain
Align = alClient
OnModified = sciEditorModified
OnDblClick = sciEditorDblClick
OnCallTipClick = sciEditorCallTipClick
OnKeyUp = sciEditorKeyUp
OnKeyDown = sciEditorKeyDown
OnKeyPress = sciEditorKeyPress
@ -7781,7 +7780,7 @@ object frmMain: TfrmMain
OnBeforeShow = sciAutoCompleteBeforeShow
MaxWidth = 0
MaxHeight = 5
Left = 842
Left = 844
Top = 6
end
object ppmDocuments: TSpTBXPopupMenu

View File

@ -1204,11 +1204,14 @@ 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;
// 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;
@ -1991,6 +1994,7 @@ 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
if Trim(TACFunction(eACList.Items[i]).Items[GetFunctionPos]) <> '' then
ListToDisplay.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll]);
break;
end;