#7 Memory leakage reported by MemProof

[Anonymous]

I have used MemProof to inspect any memoy leakage in
my application, and discovered that there were to
allocated cursors that weren't released in the
Rxconst.pas unit.
I tried to edit the above unit (which I herewith attach) to
correct the error, and infact the leakage report is now ok.
Please test if the modification to Rxconst.pas is ok.

Modifications are enclosed between
{_rc_ 13/11/2002}
comments

Thank you

[Nobody/Anonymous]

Logged In: NO

This is the modified source code.
My email address: r.cappa@tin.it

{ _rc_ 13/11/2002 }
var
rc_Hand: HCursor;
rc_DragHand: HCursor;
{ _rc_ 13/11/2002 }

initialization
{ _rc_ 13/11/2002 }
rc_Hand := LoadCursor(hInstance, 'RX_HANDCUR');
rc_DragHand := LoadCursor(hInstance, 'RX_DRAGCUR');
{ _rc_ 13/11/2002 }

//Screen.Cursors[crHand] := LoadCursor
(hInstance, 'RX_HANDCUR');
//Screen.Cursors[crDragHand] := LoadCursor
(hInstance, 'RX_DRAGCUR');

{ _rc_ 13/11/2002 }
Screen.Cursors[crHand] := rc_Hand;
Screen.Cursors[crDragHand] := rc_DragHand;

finalization
DestroyCursor(rc_Hand);
DestroyCursor(rc_DragHand);
{ _rc_ 13/11/2002 }

end.