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

Small bugfix, added another feature (saves now the last keywords)

Browse Source
This commit is contained in:
Christian Hammacher
2005-11-05 17:39:12 +00:00
parent 1cb99082e2
commit a66f13fc91
6 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
editor/studio/UnitfrmMain.pas
View File

@ -1535,7 +1535,6 @@ begin
exit;
end;
end;
eSavedFiles.Add(eItem.FileName);
end;
end;
end;
@ -1560,7 +1559,6 @@ begin
exit;
end;
end;
eSavedFiles.Add(eItem.FileName);
end;
end;
end;
@ -1585,7 +1583,6 @@ begin
exit;
end;
end;
eSavedFiles.Add(eItem.FileName);
end;
end;
end;
@ -1601,21 +1598,20 @@ begin
end
else
Application.Terminate;
if eSavedFiles.Count = 0 then begin
for i := 0 to PawnProjects.Count - 1 do begin
if (not TDocument(PawnProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(PawnProjects.Items[i]).FileName);
end;
for i := 0 to CPPProjects.Count - 1 do begin
if (not TDocument(CPPProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(CPPProjects.Items[i]).FileName);
end;
for i := 0 to OtherProjects.Count - 1 do begin
if (not TDocument(OtherProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(OtherProjects.Items[i]).FileName);
end;
for i := 0 to PawnProjects.Count - 1 do begin
if (not TDocument(PawnProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(PawnProjects.Items[i]).FileName);
end;
for i := 0 to CPPProjects.Count - 1 do begin
if (not TDocument(CPPProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(CPPProjects.Items[i]).FileName);
end;
for i := 0 to OtherProjects.Count - 1 do begin
if (not TDocument(OtherProjects.Items[i]).Untitled) then
eSavedFiles.Add(TDocument(OtherProjects.Items[i]).FileName);
end;
eSavedFiles.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg');
eSavedFiles.Free;