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

editor/studio/AMXX_Studio.dof

@@ -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
+FileVersion=1.4.0.1
-InternalName=
+InternalName=gaben
-LegalCopyright=
+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

editor/studio/AMXX_Studio.dpr

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

editor/studio/UnitCodeUtils.pas

@@ -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;

editor/studio/UnitfrmMain.dfm

@@ -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

editor/studio/UnitfrmMain.pas

@@ -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
+      // I don't like this but it works so far
-        SearchCaseSensitive := True;
+      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;