Minor Bug, GFL SDK 2.82 for Delphi

[stolarz]

is:

Code: Select all

function gflAllockBitmap(BType: GFL_BITMAP_TYPE;
  width, height, line_padding: GFL_INT32;
  var color: PGFL_COLOR): PGFL_BITMAP; stdcall;

should be:

Code: Select all

function gflAllockBitmap(BType: GFL_BITMAP_TYPE;
  width, height, line_padding: GFL_INT32;
  color: PGFL_COLOR): PGFL_BITMAP; stdcall;

[stolarz]

or:

Code: Select all

function gflAllockBitmap(BType: GFL_BITMAP_TYPE;
  width, height, line_padding: GFL_INT32;
  var color: TGFL_COLOR): PGFL_BITMAP; stdcall;

[gispos]

Download the updated lib.pas at: http://newsgroup.xnview.com/viewtopic.php?t=14526
and test it.
The updated lib code is:

Code: Select all

function gflAllockBitmap(BType: GFL_BITMAP_TYPE;
  width, height, line_padding: GFL_INT32;
  const color: PGFL_COLOR): PGFL_BITMAP; stdcall;

function gflAllockBitmapEx(BType: GFL_BITMAP_TYPE; width, height: GFL_INT32;
  bits_per_component: GFL_UINT16; padding: GFL_UINT32;
  const color: PGFL_COLOR): PGFL_BITMAP; stdcall;

I think the color declarations must be “var” or “const”, otherwise the color will not always read correct!

Gruß gispos