@@ -2,6 +2,10 @@ program ButtonGenerator;
{$mode objfpc}{$H+}
+{$IFDEF Windows}
+ {$AppType Console}
+{$ENDIF}
+
uses
{$IFDEF UNIX}
cthreads,
@@ -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