gflAutoCrop

[madiazg]

Hello,
Hello, I have a problem with gflAutoCrop:

Code: Select all

procedure TFormEdicion.Button1Click(Sender: TObject);
var
  Pgfl_colorRotar: TGFL_COLOR;
begin
.
.
.
  Pgfl_colorRotar.Red := 0;
  Pgfl_colorRotar.Green := 0;
  Pgfl_colorRotar.Blue := 0;
  Pgfl_ColorRotar.Alpha := 0;
  eE := gflRotateFine(gfl_bmpE,nil,5,Pgfl_colorRotar); //OK
  eE := gflAutoCrop(gfl_bmpE,nil,Pgfl_colorRotar,0); //ERROR
end;

Error: Types of actual and formal var parameters must be identical

What am I doing badly?

I am using Turbo Delphi .

Regards...

[madiazg]

in libgfl.pas:

ERROR:

Code: Select all

function gflAutoCrop(src: PGFL_BITMAP; dst: PPGFL_BITMAP;
  var color: PGFL_COLOR; tolerance: GFL_INT32): GFL_ERROR; stdcall;

OK:

Code: Select all

function gflAutoCrop(src: PGFL_BITMAP; dst: PPGFL_BITMAP;
  var color: TGFL_COLOR; tolerance: GFL_INT32): GFL_ERROR; stdcall;