mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
.Simba -> .simba
This commit is contained in:
parent
385bea53e3
commit
0cf36e3746
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user