Page 2 of 2

Posted: Sat Feb 11, 2006 10:42 pm
by mkeeley
Thanks that seems to work fine!

So in LibGFL.pas 3 lines need changing.

Code: Select all


Starting Line 135, Alpha added:

// Color
type PGFL_COLOR = ^TGFL_COLOR;
  TGFL_COLOR = record
    Red: GFL_UINT16;
    Green: GFL_UINT16;
    Blue: GFL_UINT16;
    Alpha : GFL_UINT16;
  end;

Code: Select all


Starting Line 542, PGFL_COLOR changed to TGFL_COLOR:

function gflGetColorAt(src: PGFL_BITMAP; x, y: GFL_INT32; var color: TGFL_COLOR): GFL_ERROR; stdcall;
function gflSetColorAt(src: PGFL_BITMAP; x, y: GFL_INT32; var color: TGFL_COLOR): GFL_ERROR; stdcall;

Thanks again.

Marc