DOCUMENT:Q317499 16-MAY-2002 [foxpro]
TITLE :BUG: Mouse Clicks Do Not Work on a Scrollable SDI Form
PRODUCT :Microsoft FoxPro
PROD/VER::6.0,7.0
OPER/SYS:
KEYWORDS:kbCtrl kbDesigner kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet kbvfp700 _IK283
======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:
- Microsoft Visual FoxPro for Windows, versions 6.0, 7.0
-------------------------------------------------------------------------------
SYMPTOMS
========
If you create a top-level (SDI) form in Visual FoxPro 6.0 or 7.0, mouse clicks
on controls on the form may seem to be ignored. This problem may occur if the
form is scrollable (with a ScrollBars property of more than 0), the form
contains a toolbar, and the toolbar is docked to the top of the form.
RESOLUTION
==========
To work around this problem:
1. Set the ScrollBars property of the form to 0.
2. Build a parent SDI form that contains a child MDI form (ShowWindow = 1 in the
top-level form) and the toolbar. Configure the child form so that it has no
title bar or border, and is maximized. In the Activate of the parent form,
create the toolbar and child form. Because the child form is maximized and
has no border or title bar, it seems as if there is only one form. The
problem that is described in this article does not occur if the toolbar is
docked to the top because it is actually docked in the parent form instead of
the child form (which contains the controls).
The following sample code demonstrates this workaround:
*-----------------------------------
* Sample workaround code from Microsoft Knowledge Base
* article Q317499.
*-----------------------------------
PUBLIC oform1
oform1=NEWOBJECT("frmPARENT")
oform1.SHOW
RETURN
**************************************************
DEFINE CLASS frmPARENT AS FORM
TOP = 21
LEFT = 34
HEIGHT = 235
WIDTH = 422
SHOWWINDOW = 2
CAPTION = "Form1"
NAME = "Form1"
mytoolbar = .F.
frmChild = .F.
PROCEDURE ACTIVATE
IF VARTYPE(THIS.mytoolbar) != "O"
THIS.mytoolbar = NEWOBJECT("testtoolbar")
THIS.mytoolbar.DOCK(0)
THIS.mytoolbar.VISIBLE = .T.
THIS.frmChild = NEWOBJECT("frmChild")
THIS.frmChild.VISIBLE=.T.
ENDIF
ENDPROC
ENDDEFINE
**************************************************
DEFINE CLASS frmChild AS FORM
TOP = 0
LEFT = 0
HEIGHT = 344
WIDTH = 428
SHOWWINDOW = 1
SCROLLBARS = 3
BORDERSTYLE = 0
CAPTION = ""
TITLEBAR = 0
WINDOWSTATE = 2
NAME = "Form1"
ADD OBJECT pageframe1 AS PageFrame WITH ;
PAGECOUNT = 2, ;
TOP = 72, ;
LEFT = 72, ;
WIDTH = 241, ;
HEIGHT = 169, ;
NAME = "Pageframe1", ;
Page1.CAPTION = "Page1", ;
Page1.NAME = "Page1", ;
Page2.CAPTION = "Page2", ;
Page2.NAME = "Page2"
PROCEDURE CLICK
WAIT WINDOW "ChildForm Click!" NOWAIT
ENDPROC
ENDDEFINE
**************************************************
DEFINE CLASS testtoolbar AS ToolBar
CAPTION = "Toolbar1"
HEIGHT = 28
LEFT = 0
TOP = 0
WIDTH = 33
SHOWWINDOW = 1
NAME = "testtoolbar"
ADD OBJECT command1 AS CommandButton WITH ;
TOP = 3, ;
LEFT = 5, ;
HEIGHT = 22, ;
WIDTH = 23, ;
CAPTION = "", ;
NAME = "Command1"
ENDDEFINE
STATUS
======
Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.
MORE INFORMATION
================
Steps to Reproduce the Problem
------------------------------
If the form is scrollable (the ScrollBars property is anything but 0) and the
toolbar is docked at the top, clicking directly on the form controls is ignored.
If you click next to the controls, you may be able to find and use the controls.
However, three-dimensional effects (such as depressing a command button) do not
work, and you cannot switch pages in a PageFrame. The keyboard continues to work
correctly for all controls in the following sample code.
If you undock the toolbar or dock it anywhere but at the top, you can use the
mouse on the controls. If you dock the toolbar at the top again, the problem
returns.
1. Add the following code to a new program (.prg) file in Visual FoxPro 6.0 or
7.0, and then run the program.
2. When the form appears, a toolbar is docked to the top. Click any of the
controls on the form and note that the clicks are ignored.
3. Toggle the MakeScrollable variable near the top of the code and then run the
program again to see and resolve the problem:
MakeScrollable = .T. (Form.ScrollBars = 3) --> Problem exists
MakeScrollable = .F. (Form.ScrollBars = 0) --> No problem
PUBLIC MakeScrollable, ;
oform1
*~ Toggle this to see and resolve the problem:
*~ Form.Scrollbars > 0 - Problem exists
*~ Form.Scrollbars = 0 - No problem
MakeScrollable = .T.
oform1=NEWOBJECT("form1")
oform1.SHOW
RELEASE ALL
RETURN
****************************************************
DEFINE CLASS form1 AS form
Top = 35
Left = 66
Height = 333
Width = 441
ShowWindow = 2
ScrollBars = 3
mytoolbar = .F.
Caption = "Form1"
Name = "form1"
ADD OBJECT pageframe1 AS PageFrame WITH ;
PageCount = 2, ;
Top = 36, ;
Left = 0, ;
Width = 332, ;
Height = 218, ;
Name = "Pageframe1", ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
ADD OBJECT command1 AS CommandButton WITH ;
Top = 48, ;
Left = 336, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT combo1 AS ComboBox WITH ;
Height = 24, ;
Left = 336, ;
Top = 84, ;
Width = 100, ;
Name = "Combo1"
ADD OBJECT list1 AS ListBox WITH ;
Height = 170, ;
Left = 336, ;
Top = 120, ;
Width = 100, ;
Name = "List1"
ADD OBJECT check1 AS CheckBox WITH ;
Top = 276, ;
Left = 36, ;
Height = 17, ;
Width = 60, ;
Caption = "Check1", ;
Name = "Check1"
ADD OBJECT commandgroup1 AS CommandGroup WITH ;
ButtonCount = 2, ;
Value = 1, ;
Height = 66, ;
Left = 120, ;
Top = 264, ;
Width = 94, ;
Name = "Commandgroup1", ;
Command1.Top = 5, ;
Command1.Left = 5, ;
Command1.Height = 27, ;
Command1.Width = 84, ;
Command1.Caption = "Command1", ;
Command1.Name = "Command1", ;
Command2.Top = 34, ;
Command2.Left = 5, ;
Command2.Height = 27, ;
Command2.Width = 84, ;
Command2.Caption = "Command2", ;
Command2.Name = "Command2"
ADD OBJECT edit1 AS EditBox WITH ;
Height = 53, ;
Left = 228, ;
Top = 264, ;
Width = 100, ;
Name = "Edit1"
PROCEDURE Activate
THIS.mytoolbar = NEWOBJECT("testtoolbar")
THIS.mytoolbar.DOCK(0)
THIS.mytoolbar.VISIBLE = .T.
ENDPROC
ENDDEFINE
**************************************************
DEFINE CLASS testtoolbar AS ToolBar
CAPTION = "Toolbar1"
HEIGHT = 28
LEFT = 0
TOP = 0
WIDTH = 33
SHOWWINDOW = 1
NAME = "testtoolbar"
ADD OBJECT command1 AS CommandButton WITH ;
TOP = 3, ;
LEFT = 5, ;
HEIGHT = 22, ;
WIDTH = 23, ;
CAPTION = "", ;
NAME = "Command1"
ENDDEFINE
Additional query words:
======================================================================
Keywords : kbCtrl kbDesigner kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet kbvfp700 _IK283
Technology : kbVFPsearch kbAudDeveloper kbVFP600 kbVFP700
Version : :6.0,7.0
Issue type : kbprb
=============================================================================
THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.
Copyright Microsoft Corporation 2002.