freebasic bug fix

RetroNick2020 · Mar 28, 2022 · c2bc469 · c2bc469
1 parent 344b75e
commit c2bc469
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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 R41';
+ ProgramName ='Raster Master v1.0 R42';
  ProgramLicense = 'Released under MIT License';
 
 type

diff --git a/rwxgf2.pas b/rwxgf2.pas
@@ -400,7 +400,7 @@ function GetXImageSizeFB(width,height : integer) : longint;
 begin
  myWidth:=x2-x+1;
  myHeight:=y2-y+1;
- myHead.Width:=myWidth;
+ myHead.Width:=mywidth SHL 3;
  myHead.Height:=myHeight;
 
  Move(myHead,tempBuf,sizeof(tempBuf));