Smart Package Robot 's PlugIn Commands
The "PlugIn01.exe" is an configurable Buttonbar.
It can be attached to any Window.
If you press the Buttons you can execute Smart Package Robot-Scripts directly in any Software.
Examples:
PIS.$$PLG|sv
PIS.$$PLG|attach|$$HWN|1|1
PIS.$$PLG|sv
PIS.$$PLG|attach|$$HWN|0|1
Left Side, Downside, Outside
PIS.$$PLG|sh
PIS.$$PLG|attach|$$HWN|5|6
Right Side, Downside, Inside
PIS.$$PLG|sh
PIS.$$PLG|attach|$$HWN|6|5
Top-Side Inside
PIS.$$PLG|sh
PIS.$$PLG|attach|$$HWN|5|1
Top-Side Outside
PIS.$$PLG|sh
PIS.$$PLG|attach|$$HWN|5|7
Down-Side, Inside, vertical
PIS.$$PLG|sv
PIS.$$PLG|attach|$$HWN|6|5
Down-Side, Outside, vertical
PIS.$$PLG|sv
PIS.$$PLG|attach|$$HWN|2|5
Right-Side, Middle, Outside, vertical
PIS.$$PLG|sv
PIS.$$PLG|attach|$$HWN|2|3
Code-Example Button-Bar for "Help and Manual 8"
'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=4
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|0|0
' Set Button Text
FOR.$$LO2|1|$$BUN
PIS.$$REA|sBt|$$LO2|Btn. F$$LO2
NEX.
PIS.$$REA|sBt|$$BUN|End
' Set Distance between buttons (vertical in Points)
PIS.$$REA|sbvd|4
' 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.
$$FIL=XY.hmxz
GEP.$$FIL|$$PAT
MBX.$$PAT
EXE.$$PAT
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.4
JSR.doEnd
CAN.1
JSR.doButton01
CAN.2
JSR.doButton02
CAN.3
JSR.doButton03
CAE.
MBX.Button-Number: §§TMA is not defined.
: $$RET=
ESC.
EIF.
RET.
'-----------------------------------------------------------
:doButton01
DBP.B1 pressed!
RET.
'-----------------------------------------------------------
:doButton02
DBP. B2 pressed!
RET.
'-----------------------------------------------------------
:doButton03
DBP. B3 pressed!
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.
'-----------------------------------------------------------