[lazarus] Patch: SetCursor AV (win32)

[Vincent Snijders]

On Wed, 2 Jul 2003 18:18:47 +0200 (W. Europe Daylight Time)
Michael Van Canneyt <michael.vancanneyt at wisa.be> wrote:

> 
> 
> On Wed, 2 Jul 2003, Mattias Gaertner wrote:
> 
> > On Wed, 2 Jul 2003 17:07:37 +0200
> > "Micha Nelissen" <mdvpost at hotmail.com> wrote:
> >
> > > Hi,
> > >
> > > Attached is a patch to fix AV's when TControl.SetCursor is called. A
> > > lookup map was needed to translate between TCursor and win32 IDC_*
> > > constants. It would be nice if those were defined as constants instead of
> > > functions, therefore I have included them as constants.
> >
> > ok
> 
> Despite all these patches, all examples crash with a double exception
> message on my machine :/
> 
> Michael.

Attached is a patch to solve this AV. It was due to too much (or not enough) clean up in the critical section code.

-It also does some clean up. 
-Moves EndPaint to the correct alphabetical position.

Regards,
Vincent.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: gz00026.gz
Type: application/octet-stream
Size: 1490 bytes
Desc: "critsect.patch.gz"
Url : http://localhost/pipermail/lazarus/attachments/20030702/d64cb471/gz00026.obj