gflAutoCrop

Discussions on GFL SDK, the graphic library for reading and writing graphic files

Moderators: XnTriq, xnview

Post Reply
User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

gflAutoCrop

Post by madiazg » Fri Mar 07, 2008 11:50 pm

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...

User avatar
madiazg
Posts: 82
Joined: Wed Jul 18, 2007 8:00 pm
Location: Tenerife - Islas Canarias
Contact:

Post by madiazg » Sat Mar 08, 2008 1:04 am

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;

Post Reply