fix for Amiga Export

RetroNick2020 · Mar 27, 2021 · e180558 · e180558
1 parent 7e4c2a9
commit e180558
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/rmabout.pas b/rmabout.pas
@@ -8,7 +8,7 @@ interface
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,lclintf;
 
 Const
-  ProgramName ='Raster Master v1.0 Beta R7';
+  ProgramName ='Raster Master v1.0 Beta R8';
   ProgramLicense = 'Released under MIT License';
 
 type

diff --git a/rmmain.pas b/rmmain.pas
@@ -1945,6 +1945,7 @@ procedure TRMMainForm.AmigaBasicClick(Sender: TObject);
    GetOpenSaveRegion(x,y,x2,y2);
    if ExportDialog.Execute then
    begin
+       ext:=UpperCase(ExtractFileExt(ExportDialog.Filename));
        sourcemode:=Source32;   //PaletteModeAmiga32
        pm:=GetPaletteMode;
        case pm of         PaletteModeAmiga2:sourcemode:=Source2;