moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-08-13 16:53:59 -04:00
Code Issues Releases Wiki Activity

.Simba -> .simba

Browse Source
This commit is contained in:
Raymond 2010-06-17 00:28:30 +02:00
parent 385bea53e3
commit 0cf36e3746
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/Simba/simbaunit.pas
View File

@ -2980,14 +2980,14 @@ begin
Result := false; Result := false;
with TSaveDialog.Create(nil) do with TSaveDialog.Create(nil) do
try try
filter := 'Simba Files|*.Simba;*.simb;*.cogat;*.mufa;*.txt;*.' + filter := 'Simba Files|*.simba;*.simb;*.cogat;*.mufa;*.txt;*.' +
LoadSettingDef('Settings/Extensions/FileExtension','sex')+ LoadSettingDef('Settings/Extensions/FileExtension','sex')+
'|Any files|*.*'; '|Any files|*.*';
if Execute then if Execute then
begin; begin;
if ExtractFileExt(FileName) = '' then if ExtractFileExt(FileName) = '' then
begin; begin;
ScriptFile := FileName + '.Simba'; ScriptFile := FileName + '.simba';
end else end else
ScriptFile := FileName; ScriptFile := FileName;
CurrScript.SynEdit.Lines.SaveToFile(ScriptFile); CurrScript.SynEdit.Lines.SaveToFile(ScriptFile);