 |
|
Current group: dbase.bug-reports
onMouseOver, onMouseOut
| Rick Miller | | news.alldbase.com | | Mark.I |
|
|
| | From: | Rick Miller | | Subject: | onMouseOver, onMouseOut | | Date: | Tue, 28 Dec 2004 19:36:31 -0600 |
|
|
 | /*
Don't know if this is considered a bug or not ?
When using the form below, the pushbuttons have some
code that outputs to the results pane for the onMouseOut,
onMouseOver, and onMouseMove events.
The events fire fine when the form is run Normal (do).
The events do not all fire when the form is run readModal(do with true).
If the line in the over-ridden readModal method,
this.showTaskBarButton := false
is commented, all events fire as expected when run
readModal (do with true).
Rick Miller
r i c k m i l l e r AT t r e t u r n dot com
*/
** END HEADER -- do not remove this line
//
// Generated on 12/28/2004
//
parameter bModal
local f
f = new SampleMouseMovementForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class SampleMouseMovementForm of FORM
with (this)
onOpen = class::ONOPEN
readModal = class::FORM_READMODAL
metric = 6 // Pixels
height = 282.0
left = 117.0
top = 59.0
width = 426.0
text = " SampleMouseMovement"
autoCenter = true
icon = "resource #93"
endwith
this.PUSHBUTTON1 = new PUSHBUTTON(this)
with (this.PUSHBUTTON1)
onClick = {; clear}
onMouseOver = {; ? "mouseOver"}
onMouseOut = {; ? "mouseOut"}
height = 24.0
left = 77.0
top = 11.0
width = 107.0
text = "Clear"
endwith
this.PUSHBUTTON2 = new PUSHBUTTON(this)
with (this.PUSHBUTTON2)
onClick = {; clear}
onMouseMove = {; ? "mouseMoving"}
height = 24.0
left = 273.0
top = 11.0
width = 107.0
text = "Clear"
endwith
this.TEXT3 = new TEXT(this)
with (this.TEXT3)
height = 198.0
left = 14.0
top = 55.0
width = 399.0
colorNormal = "BtnText/Window"
fontSize = 14.0
text = ""
borderStyle = 7 // Client
endwith
function onOpen
Local cR
cR = chr(13)
this.text3.text := ;
"The results pane displays mouse events" + cR +;
"Running this form readModal." + cR +;
"do SampleMouseMovement.wfm with true" +;
cR + cR + "When:" + cR +;
"form.showTaskBarButton = false" + cR +;
"the onMouseOver and onMouseOut" + cR +;
"events do not fire."
return
function form_readModal
this.showTaskBarButton := false
return SAMPLEMOUSEMOVEMENTFORM::readModal()
endclass
|
|
| | From: | news.alldbase.com | | Subject: | Re: onMouseOver, onMouseOut | | Date: | Wed, 29 Dec 2004 09:59:59 -0500 |
|
|
| This is a confirmed bug - already reported.
If both MDI and showTaskBarButton are set to false, the mouse events don't
fire properly.
--
Rich...
www.autotraker.com
AutoTraker Inc.
"Rick Miller" wrote in message
news:mErXfeU7EHA.1844@news-server...
> /*
> Don't know if this is considered a bug or not ?
>
> When using the form below, the pushbuttons have some
> code that outputs to the results pane for the onMouseOut,
> onMouseOver, and onMouseMove events.
> The events fire fine when the form is run Normal (do).
> The events do not all fire when the form is run readModal(do with true).
> If the line in the over-ridden readModal method,
> this.showTaskBarButton := false
> is commented, all events fire as expected when run
> readModal (do with true).
>
> Rick Miller
> r i c k m i l l e r AT t r e t u r n dot com
> */
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 12/28/2004
> //
> parameter bModal
> local f
> f = new SampleMouseMovementForm()
> if (bModal)
> f.mdi = false // ensure not MDI
> f.readModal()
> else
> f.open()
> endif
>
> class SampleMouseMovementForm of FORM
> with (this)
> onOpen = class::ONOPEN
> readModal = class::FORM_READMODAL
> metric = 6 // Pixels
> height = 282.0
> left = 117.0
> top = 59.0
> width = 426.0
> text = " SampleMouseMovement"
> autoCenter = true
> icon = "resource #93"
> endwith
>
> this.PUSHBUTTON1 = new PUSHBUTTON(this)
> with (this.PUSHBUTTON1)
> onClick = {; clear}
> onMouseOver = {; ? "mouseOver"}
> onMouseOut = {; ? "mouseOut"}
> height = 24.0
> left = 77.0
> top = 11.0
> width = 107.0
> text = "Clear"
> endwith
>
> this.PUSHBUTTON2 = new PUSHBUTTON(this)
> with (this.PUSHBUTTON2)
> onClick = {; clear}
> onMouseMove = {; ? "mouseMoving"}
> height = 24.0
> left = 273.0
> top = 11.0
> width = 107.0
> text = "Clear"
> endwith
>
> this.TEXT3 = new TEXT(this)
> with (this.TEXT3)
> height = 198.0
> left = 14.0
> top = 55.0
> width = 399.0
> colorNormal = "BtnText/Window"
> fontSize = 14.0
> text = ""
> borderStyle = 7 // Client
> endwith
>
>
> function onOpen
> Local cR
> cR = chr(13)
> this.text3.text := ;
> "The results pane displays mouse events" + cR +;
> "Running this form readModal." + cR +;
> "do SampleMouseMovement.wfm with true" +;
> cR + cR + "When:" + cR +;
> "form.showTaskBarButton = false" + cR +;
> "the onMouseOver and onMouseOut" + cR +;
> "events do not fire."
> return
>
> function form_readModal
> this.showTaskBarButton := false
> return SAMPLEMOUSEMOVEMENTFORM::readModal()
>
> endclass
>
|
|
| | From: | Mark.I | | Subject: | Re: onMouseOver, onMouseOut | | Date: | Wed, 29 Dec 2004 09:27:20 -0000 |
|
|
| I had the same problem with different settings of the form' s properties. I
can' t remember which ones, but the showtaskbarbutton was one of them.
If the OLH for onMouseOver/Out does not show any limitations, then it must
be a bug.
All the best for the new year.
Mark.i
..
"Rick Miller" wrote in message
news:mErXfeU7EHA.1844@news-server...
> /*
> Don't know if this is considered a bug or not ?
>
> When using the form below, the pushbuttons have some
> code that outputs to the results pane for the onMouseOut,
> onMouseOver, and onMouseMove events.
> The events fire fine when the form is run Normal (do).
> The events do not all fire when the form is run readModal(do with true).
> If the line in the over-ridden readModal method,
> this.showTaskBarButton := false
> is commented, all events fire as expected when run
> readModal (do with true).
>
> Rick Miller
> r i c k m i l l e r AT t r e t u r n dot com
> */
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 12/28/2004
> //
> parameter bModal
> local f
> f = new SampleMouseMovementForm()
> if (bModal)
> f.mdi = false // ensure not MDI
> f.readModal()
> else
> f.open()
> endif
>
> class SampleMouseMovementForm of FORM
> with (this)
> onOpen = class::ONOPEN
> readModal = class::FORM_READMODAL
> metric = 6 // Pixels
> height = 282.0
> left = 117.0
> top = 59.0
> width = 426.0
> text = " SampleMouseMovement"
> autoCenter = true
> icon = "resource #93"
> endwith
>
> this.PUSHBUTTON1 = new PUSHBUTTON(this)
> with (this.PUSHBUTTON1)
> onClick = {; clear}
> onMouseOver = {; ? "mouseOver"}
> onMouseOut = {; ? "mouseOut"}
> height = 24.0
> left = 77.0
> top = 11.0
> width = 107.0
> text = "Clear"
> endwith
>
> this.PUSHBUTTON2 = new PUSHBUTTON(this)
> with (this.PUSHBUTTON2)
> onClick = {; clear}
> onMouseMove = {; ? "mouseMoving"}
> height = 24.0
> left = 273.0
> top = 11.0
> width = 107.0
> text = "Clear"
> endwith
>
> this.TEXT3 = new TEXT(this)
> with (this.TEXT3)
> height = 198.0
> left = 14.0
> top = 55.0
> width = 399.0
> colorNormal = "BtnText/Window"
> fontSize = 14.0
> text = ""
> borderStyle = 7 // Client
> endwith
>
>
> function onOpen
> Local cR
> cR = chr(13)
> this.text3.text := ;
> "The results pane displays mouse events" + cR +;
> "Running this form readModal." + cR +;
> "do SampleMouseMovement.wfm with true" +;
> cR + cR + "When:" + cR +;
> "form.showTaskBarButton = false" + cR +;
> "the onMouseOver and onMouseOut" + cR +;
> "events do not fire."
> return
>
> function form_readModal
> this.showTaskBarButton := false
> return SAMPLEMOUSEMOVEMENTFORM::readModal()
>
> endclass
>
>
|
|
|
| | |
|
 |