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

Fixed a small save bug

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/AMXX_Studio.dof
View File

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

BIN
editor/studio/AMXX_Studio.exe
View File

Binary file not shown.

BIN
editor/studio/AMXX_Studio.res
View File

Binary file not shown.

4
editor/studio/UnitCodeUtils.pas
View File

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

2
editor/studio/UnitMainTools.pas
View File

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