My bars have always kept the focus, although the active window
caption will blink when the bar is first clicked.
Probably due to the waits, but this order of operation resets the
focus from a bar to the active field, so I use something similar to
this for all of my buttons, left or right mouse...
RCmd1 = [EMAIL PROTECTED]
RCmd2 = EVENT.CreateMS
RParam2 = (100, 1, "Menu ShowAtButton PowerPrX_Bar_Menu")
Any menu or commandline will work and the focus is reset to the last
field if I press escape key when a menu is showing.
The LCmd's use my [EMAIL PROTECTED]() and it has an EVENT.CreateMS()
in the script if the filename=="|" because the bar was clicked versus
a dragdropped filename, and works the same as above...
; pproShorts.txt
@MseMoveOffButton
LOCAL handle= WIN.Handle("under")
LOCAL xmse, ymse=WIN.Bottom(handle)
IF(handle)DO
IF((WIN.Class(handle)=="PowerProToolbar" || ;;+
WIN.Class(handle)=="PowerPrXToolbar") && ;;+
ymouse < yscreen -2 && ymse-ymouse> -1)DO
xmse=xmouse
WIN.Mouse("screen "++xmse+1+(arg(1)+0)++" "++ymse+2+(arg(2)+0))
WAIT.For(500, xmse!=xmouse)
QUIT(handle)
ENDIF
ENDIF
QUIT(0)
Even my Floating tags are similar:
CL.AddRight(CmdList, 1, ?"[EMAIL PROTECTED]")
CL.AddRight(CmdList, 1, "EVENT.CreateMS", "(100,1, ." ++ ;;+
scriptname ++ ?"@Menu(" ++ iTagNo ++ "))")
None of my powerpro bars are at the bottom of a screen.
I don't have time to test right now to see why this works. I just
know that it always works. With past versions I thought that it would
work most of the time without the event and all of the time with the
event.
I do use the WIN.GetFocus/WIN.SetFocus() for some of my menu's and
when calling/cancelling powerpro's dialog boxes, but the above
example helps me set the focus before getting the WIN.GetFocus.
Ted
Attention: PowerPro's Web site has moved: http://www.ppro.org
SPONSORED LINKS
| Computer monitoring software | Power pro | Computer and internet software |
| Free computer monitoring software |
YAHOO! GROUPS LINKS
- Visit your group "power-pro" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
