res binary export fix for maps

RetroNick2020 · Jun 28, 2022 · fb16639 · fb16639
1 parent 603930b
commit fb16639
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/mapexiportprops.pas b/mapexiportprops.pas
@@ -78,7 +78,7 @@ procedure TMapExportForm.InitComboBoxes;
    Combocompiler.Items.Clear;
    ComboCompiler.Items.Add('None');
    ComboCompiler.Items.Add('Basic');
-   ComboCompiler.Items.Add('Basic (Line#');
+   ComboCompiler.Items.Add('Basic (Line#)');
    ComboCompiler.Items.Add('C');
    ComboCompiler.Items.Add('Pascal');
    ComboCompiler.ItemIndex:=0;

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.1 R47';
+  ProgramName ='Raster Master v1.1 R48';
   ProgramLicense = 'Released under MIT License';
 
 type

diff --git a/rwmap.pas b/rwmap.pas
@@ -589,7 +589,7 @@ procedure ResExportMaps(var F:File);
   Tile  : TileRec;
   mwidth,mheight : integer;
   MapCount : integer;
-  Line     : array[0..255] of integer;
+  Line     : array[0..255] of smallint;
 begin
  MapCount:=MapCoreBase.GetMapCount;
 
@@ -605,7 +605,7 @@ procedure ResExportMaps(var F:File);
      Line[1]:=mheight;
      Line[2]:=MapProps.tilewidth;
      Line[3]:=MapProps.tileheight;
-     Blockwrite(F,Line,4*sizeof(integer));  //write the header
+     Blockwrite(F,Line,4*sizeof(smallint));  //write the header
 
      for j:=0 to mheight -1 do
      begin
@@ -615,7 +615,7 @@ procedure ResExportMaps(var F:File);
          Line[i]:=Tile.ImageIndex;
        end;
        {$I-}
-       Blockwrite(F,Line,mwidth*sizeof(integer));
+       Blockwrite(F,Line,mwidth*sizeof(smallint));
        {$I+}
        if IORESULT<>0 then exit;
      end;