MiniRobotLanguage (MRL)
PIS.GetMouseButtonHandle Command
Get the Handle of the Plugin-Button where the Mouse is (Mouseover)
Intention
The PIS.GetHandle -Command will return the Window-Handle from the specified Buttonbar.
Using P2 you can specify a number from 1 to (number of buttons) to get the Windowhandle from that Button.
The result is always placed on TOS.
PIS.$$REA|GetMouseButtonHandle
$$RES=$TOS$
Syntax
PIS.P1|GetMouseButtonHandle
PIS.P1|gmbh
Parameter Explanation
P1 - Variable which contains the PlugIn Index-No.
The result is always placed on TOS. It will be "0" if the Mouse is not over any of the Buttons, otherwise the number of the Button is returned.
Example
'*********************************
' Vertical Plugin-Sample
'*********************************
'
'SPR Script-file: New Script_1
'Purpose:
'Author:
'Creation date: 02-08-2022 at 07:53:12
'===========================================================
'#EXE:?path\
'#SPI:ForceWrite
' This will run the NoLimits2 in case its not yet running
GSB.RunIt
'SWP.700,498|1612,165|T
' Return PlugIn Index Number
PIL.$$REA|01
' Set Button-Number
VAN.$$BUN=8
PIS.$$REA|sbn|$$BUN
' use any window to attach the plugin
PIS.$$REA|sbhd|4
' Plugin vertikal anordnen
PIS.$$REA|sv
' Make the PlugIn visible
PIS.$$REA|show
' attach the Plugin to the window
PIS.$$REA|attach|$$ULT|2|2
$$HSI=160
$$VSI=30
PIS.$$PIN|sbhvs|$$HSI|$$VSI
' Set Button Text
FOR.$$LO2|1|$$BUN
PIS.$$REA|sBt|$$LO2|Btn. F$$LO2
NEX.
PIS.$$REA|sBt|$$BUN|End
PIS.$$REA|sBt|1|Set Header Styles Sh. F1
PIS.$$REA|sBt|2|Rep. HL & Set Styles Sh. F2
PIS.$$REA|sBt|3|Sel. next & do B2 F3
PIS.$$REA|sBt|4|Rep empt. Icon F4
PIS.$$REA|sBt|5|Loc.Win. F5
PIS.$$REA|sBt|6|Small Title F6
PIS.$$REA|sBt|7|Loc.Win. F7
' Set Distance between buttons (vertical in Points)
PIS.$$REA|sbvd|4
PIS.$$REA|GetHandle|1
$$RES=$tos$
MBX.The handle is $$RES
' Endlos-Schleife
DOL.1
PIW.$$REA|§§BTN|4
ITO.
PAU.0.1
GTO.MLop
EIF.
' Button wurde geklickt oder Mouseover
GSB.react
:MLop
OOP.
PAU.2
:enz
END.
'-----------------------------------------------------------
' Starte NL2
:RunIt
$$PRO=HELPMAN.EXE
NEP.$$PRO
STW.wctgX|0|TFrmHelpMan|Help+Manual|Locate_First
ELS.
GTO.Locate_First
EIF.
SAV.Save|$$FIL|$$PAT
IAI.Help+Manual 8|s
$$FIL=$$001
BLB.$$FIL|$$FIL
BLB.$$FIL|$$FIL
VBT.$$FIL
VBT.$$FIL|"
$$FIN=$$FIL\$$PRO
DBP.$$FIN
NEF.$$FIN
$$ERO=HM8 nicht gefunden
GTO.Error
EIF.
EXE.$$FIN
PAU.3
GTO.RunIt
ELS.
$$ERO=HM8 nicht installiert.
GTO.Error
EIF.
SAV.Restore
:Locate_First
STW.ctw|TFrmHelpMan|Help+Manual|45
'SWP.700,498|1612,165|T
HTV.$$ULT
SCW.nct|1|TdxHMRibbon|{&NOTEXT:}
HTV.$$RIB
RET.
'-----------------------------------------------------------
:react
' Get Button number out of $$RET into §§TMA
SBD.§§BTN|$sp$|1|§§TMA
' Button Action into §§TMB
SBD.§§BTN|$sp$|2|§§TMB
'PRT. Button pressed: §§TMA
'PRT. Action-code: §§TMB
GSB.TestMo
' react on Buttonpress
IVS.§§TMB=!P!
SCS.§§TMA
CAN.$$BUN
JSR.doEnd
CAN.1
JSR.doButton01
CAN.2
JSR.doButton02
CAN.3
JSR.doButton03
CAN.4
JSR.doButton04
CAN.5
JSR.doButton05
CAN.6
JSR.doButton06
CAN.7
JSR.doButton07
CAE.
MBX.Button-Number: §§TMA is not defined.
: $$RET=
ESC.
EIF.
RET.
'-----------------------------------------------------------
' Do Button 1
'-----------------------------------------------------------
:doButton01
GSB.Set_Style_Headline
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.WaitShift
GSB.Locate_below_Selected
PAU.1
MLM.
GSB.Move_Mouse_To_B1
RET.
'-----------------------------------------------------------
' Do Button 2
'-----------------------------------------------------------
:doButton02
GSB.Mark_Headline
SDK.^v
GSB.Mark_Headline
PAU.0.5
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.WaitShift
GSB.Locate_below_Selected
PAU.0.25
MLM.
GSB.Move_Mouse_To_Button|2
RET.
'-----------------------------------------------------------
' Do Button 3
'-----------------------------------------------------------
' Jump to next and then Replace Headers
:doButton03
GSB.Locate_below_Selected
PAU.1
MLM.
PAU.1
WII.6
GSB.Mark_Headline
SDK.^v
GSB.Mark_Headline
PAU.0.5
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.Move_Mouse_To_Button|3
RET.
'-----------------------------------------------------------
' Do Button 4
'-----------------------------------------------------------
:doButton04
GSB.Locate_false_Icon
GSB.Locate_Icon_change_Menu
GSB.Locate_right_Icon
GSB.Move_Mouse_To_Button|4
RET.
'-----------------------------------------------------------
' Do Button 5
'-----------------------------------------------------------
:doButton05
FOR.$$LL5|1|8
GSB.doButton03
PAU.1
IEK.LSHIFT
ENR.
EIF.
NEX.
GSB.Move_Mouse_To_Button|5
RET.
'-----------------------------------------------------------
' Do Button 6
'-----------------------------------------------------------
:doButton06
GSB.Do_Mark_MRL
GSB.Set_Style_Small_Page_Title
GSB.Locate_Topline_Start
MLC.
GSB.Move_Mouse_To_Button|6
RET.
'-----------------------------------------------------------
' Do Button 7
'-----------------------------------------------------------
:doButton07
GSB.Locate_TW
GSB.Move_Mouse_To_Button|7
RET.
'-----------------------------------------------------------
:TestMo
' react on Mouseover
IVS.§§TMB=!M!O!
'
GTO.MOut
EIF.
' react on Mouse-Leaves Button Area
IVS.§§TMB=!M!L!
'
GTO.MOut
EIF.
RET.
' On Mouseover return directly to Mainloop (RET.2)
:MOut
RET.2
'-----------------------------------------------------------
:doEnd
END.
'-----------------------------------------------------------
:Error
MBX.$$ERO
GTO.doEnd
ENR.
'===========================================================
' These Subprogramms are unused
:GetMousePos
GSB.WaitShift
GMP.mw|§§POS
PRT.Mouse is: §§POS
RET.
'-----------------------------------------------------------
:WaitShift
WNK.
:Laba
IEK.LSHIFT
GTO.WSOut
ELS.
PAU.0.1
GTO.Laba
EIF.
:WSOut
RET.
'-----------------------------------------------------------
:Locate_TW
IEW.$$ULT
STW.h|$$ULT
ELS.
STW.ct|TFrmHelpMan|Help+Manual
HTV.$$ULT
SWP.1090,130|1414,1665|T
EIF.
RET.
'-----------------------------------------------------------
:Open_Style_Menu
GSB.Locate_TW
'SWP.1666,287|297,93|T
'MMV.t|428,125
SCW.nct|1|TdxHMRibbon|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupsDockControlSite|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupsDockControl|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupBarControl|Schriftart
MLI.w|117,61
WII.
PAU.0.1
RET.
'-----------------------------------------------------------
:Set_Font_Style
$$STL=§§_01
STW.Ac|TdxBarDropdown
AGR.34!WII.MOS.|$$STL||1|3|60
RET.
'-----------------------------------------------------------
:Do_Mark_MRL
GSB.Locate_Small_MRL
SKP.{END}
KYD.{LSHIFT}
SKP.{HOME}
KYU.{LSHIFT}
PAU.1
RET.
'-----------------------------------------------------------
:Do_Mark_Line
GSB.Locate_TW
SKP.{HOME}
KYD.{LSHIFT}
SKP.{END}
KYU.{LSHIFT}
PAU.1
RET.
'-----------------------------------------------------------
'-----------------------------------------------------------
:Locate_Headline
GSB.Locate_TW
MLI.t|584,249
RET.
'-----------------------------------------------------------
:Locate_Sub_Headline
GSB.Locate_TW
MLI.t|835,300
RET.
'-----------------------------------------------------------
:Locate_right_Sub_Headline
GSB.Locate_TW
MLC.t|1126,298
RET.
'-----------------------------------------------------------
:Mark_Headline
GSB.Locate_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_Sub_Headline
GSB.Locate_Sub_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_right_Sub_Headline
GSB.Locate_right_Sub_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_Full_Sub_Headline
GSB.Locate_Sub_Headline
SDK.^a
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Set_Style_Line_Style
GSB.Open_Style_Menu
GSB.Set_Font_Style|LineStile
RET.
'-----------------------------------------------------------
:Set_Style_Small_Page_Title
GSB.Open_Style_Menu
GSB.Set_Font_Style|Small Page Title
RET.
'-----------------------------------------------------------
:Set_Style_Headline
GSB.Mark_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
RET.
'-----------------------------------------------------------
:Set_Style_Sub_Headline
GSB.Mark_Sub_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading2
RET.
'-----------------------------------------------------------
:Set_Style_right_Sub_Headline
GSB.Mark_right_Sub_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading3
RET.
'-----------------------------------------------------------
:Move_Mouse_To_Button
$$STL=§§_01
VBT.$$STL
$$TXT=F$$STL
STW.ct|Form1_Class|MR
SCW.ct|ButtonEx_Class32|$$TXT
MPO.
RET.
'-----------------------------------------------------------
:Move_Mouse_To_B1
GSB.Move_Mouse_To_Button|1
RET.
'-----------------------------------------------------------
:Move_Mouse_To_B2
GSB.Move_Mouse_To_Button|2
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_selected_TV_Element
' Code removed
RET.
'-----------------------------------------------------------
:Locate_below_Selected
' Code removed
RET.
'-----------------------------------------------------------
:Locate_false_Icon
' Code removed
RET.
'-----------------------------------------------------------
:Locate_Icon_change_Menu
' Code removed
RET.
'-----------------------------------------------------------
:Locate_right_Icon
' Coder removed
RET.
'-----------------------------------------------------------
:Locate_Small_MRL
' Code removed
RET.
'-----------------------------------------------------------
:Locate_Topline_Start
' Code removed
RET.
'-----------------------------------------------------------
ENR.
Remarks
You can use up to 5 Plugins at the same time.
Just start them, each will get another Index.
To communicate with each PlugIn, you just give the PlugIn-Index to each command.
Button-Colors and transparency:
Please note that if you set Buttons transparent, that they can not have a background-color at the same time.
To set multiple Buttontext at once you can use:
PIS.$$PIN|sbt|all|Button %n
The "%n" is replaced with the number of that button.
The "all" and %n-scheme will also work with most other commands, where it makes sense.
Limitations:-
-
See also:
•