XnView Software

madiazg wrote:Hello, I have a problem with gflCrop and GFL_RECT.
if:

Code: Select all

var
  AreaAjusteFino : PGFL_RECT;
.
.
AreaAjusteFino.x := 10;

then Error: Access violation at address...

but

Code: Select all

  AreaAjusteFino : TFL_RECT;
.
.
.
  e2 := gflCrop(gfl_bmp2,nil,AreaAjusteFino)

then 'Incompatible types: PGFL_RECT and TGFL_RECT'

What am I doing badly?[/code]

I am using Turbo Delphi .

Regards...

AreaAjusteFino : TGFL_RECT;

e2 := gflCrop(gfl_bmp2,nil,@AreaAjusteFino)  // operator @

or 
pR: PGFL_RECT;
R: TGFL_RECT;

pR := @R;
pR.x := 10;