gflCrop and GFL_RECT

[madiazg]

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

[xnview]

I don't know very well Delphi, but i think you must use TGFL_RECT

[gispos]

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

PGFL_Rect is a Pointer !
You must get memory like New and finally Dispose or use this:

Code: Select all

AreaAjusteFino : TGFL_RECT;

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

or 
pR: PGFL_RECT;
R: TGFL_RECT;

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

Gruß gispos

[madiazg]

Thank you very much.