[JVCL-Checkins] dev/JVCL3/qcommon QWindows.pas,1.64,1.65 - Bugfixes

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/qcommon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10941/qcommon

Modified Files:
	QWindows.pas 
Log Message:
Bugfixes


Index: QWindows.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qcommon/QWindows.pas,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** QWindows.pas	20 Feb 2005 18:56:04 -0000	1.64
--- QWindows.pas	22 Mar 2005 15:15:16 -0000	1.65
***************
*** 3545,3549 ****
  begin
    SetLength(pts, Count);
!   p := PPoint(Points);
    for i := 0 to Count - 1 do
    begin
--- 3545,3549 ----
  begin
    SetLength(pts, Count);
!   p := PPoint(@Points);
    for i := 0 to Count - 1 do
    begin
***************
*** 4068,4071 ****
--- 4068,4072 ----
    begin
      QWidget_releaseMouse(Handle);
+     SetMouseGrabControl(nil);  // inform CLX
      Result := True;
    end