Fixed a small save bug

This commit is contained in:
Christian Hammacher 2005-09-12 16:08:45 +00:00
parent 0d65bb64f9
commit 12bf140931
5 changed files with 7 additions and 3 deletions

View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=2
Release=0
Build=3
Build=4
Debug=0
PreRelease=0
Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.2.0.3
FileVersion=1.2.0.4
InternalName=
LegalCopyright=
LegalTrademarks=

Binary file not shown.

Binary file not shown.

View File

@ -122,6 +122,7 @@ begin
eIdent := 0;
eTempIdent := 0;
Cancel := False;
ShowProgress(False);
frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count *2 -2;
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
@ -227,6 +228,7 @@ var i: integer;
begin
Screen.Cursor := crHourGlass;
frmMain.sciEditor.Enabled := False;
Cancel := False;
ShowProgress(False);
frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count -1;
@ -291,7 +293,7 @@ end;
function Between(eText, eFirst, eSecond: String): String;
var eTemp: String;
begin
if (Pos(eFirst, eText) = 0) and (Pos(eSecond, eText) = 0) then
if (Pos(eFirst, eText) = 0) or (Pos(eSecond, eText) = 0) then
Result := ''
else begin
eTemp := eText;

View File

@ -808,6 +808,7 @@ begin
end;
Result := True;
Cancel := False;
ShowProgress(True);
try
@ -1080,6 +1081,7 @@ begin
end;
Screen.Cursor := crHourGlass;
Cancel := False;
ShowProgress(True);
AssignFile(F, AFilename);