Browse Source

win32: fixed alloc draw buffer

mattias 9 months ago
parent
commit
0b3cc60530
2 changed files with 5 additions and 1 deletions
  1. 4 0
      demo/ButtonGenerator/ButtonGenerator.lpr
  2. 1 1
      src/win32/fresnel.win32.pas

+ 4 - 0
demo/ButtonGenerator/ButtonGenerator.lpr

@@ -2,6 +2,10 @@ program ButtonGenerator;
 
 {$mode objfpc}{$H+}
 
+{$IFDEF Windows}
+  {$AppType Console}
+{$ENDIF}
+
 uses
   {$IFDEF UNIX}
   cthreads,

+ 1 - 1
src/win32/fresnel.win32.pas

@@ -119,7 +119,7 @@ begin
   aStride:=aWidth*4;
   aBuffer:=0;
   aData:=nil;
-  aBitmapInfo:=AllocMem(SizeOf(TBITMAPINFOHEADER));
+  aBitmapInfo:=AllocMem(SizeOf(TBITMAPINFOHEADER)+SizeOf(ColorMasks));
   try
     with aBitmapInfo^.bmiHeader do
     begin