XnView Software

Posted: **Tue May 13, 2008 12:11 pm**

is:

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;

Posted: **Tue May 13, 2008 12:13 pm**

or:

Code: Select all

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

Posted: **Wed May 14, 2008 10:19 pm**

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

XnView Software

Minor Bug, GFL SDK 2.82 for Delphi

Minor Bug, GFL SDK 2.82 for Delphi