[JVCL-Checkins] dev/JVCL3/run JvButton.pas,1.41,1.42 - VisualCLX fix in MouseMove

[André S. <asn...@us...>]

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

Modified Files:
	JvButton.pas 
Log Message:
VisualCLX fix in MouseMove


Index: JvButton.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvButton.pas,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** JvButton.pas	15 Jun 2004 05:24:02 -0000	1.41
--- JvButton.pas	17 Jun 2004 13:50:56 -0000	1.42
***************
*** 33,41 ****
    SysUtils, Classes,
    {$IFDEF VCL}
!   Windows, Messages, Graphics, Controls, Forms, StdCtrls, Menus, Buttons,
    {$ENDIF VCL}
    {$IFDEF VisualCLX}
!   Qt, QGraphics, QControls, QForms, QStdCtrls, QMenus, QButtons, Types,
!   QWindows,
    {$ENDIF VisualCLX}
    JvComponent, JvConsts, JvTypes, JvExStdCtrls, JvThemes, JvFinalize;
--- 33,41 ----
    SysUtils, Classes,
    {$IFDEF VCL}
!   Windows, Messages,
    {$ENDIF VCL}
+   Graphics, Controls, Forms, StdCtrls, Menus, Buttons,
    {$IFDEF VisualCLX}
!   Qt, QWindows,
    {$ENDIF VisualCLX}
    JvComponent, JvConsts, JvTypes, JvExStdCtrls, JvThemes, JvFinalize;
***************
*** 337,344 ****
  begin
    inherited MouseMove(Shift, X, Y);
-   {$IFDEF VCL}
    if MouseCapture then
    begin
-   {$ENDIF VCL}
      if not InsideBtn(X, Y) then
      begin
--- 337,342 ----
***************
*** 351,357 ****
        RepaintBackground;
      end;
-   {$IFDEF VCL}
    end;
-   {$ENDIF VCL}
  end;
  
--- 349,353 ----