home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 726 / MaruMenu.sis / MaruMenu.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  2000-10-03  |  11.3 KB  |  400 lines
  1.  
  2.  
  3. REM MaruMenu V1.2 von Markus Heinermann (marukusu@gmx.net)
  4. REM Inspiriert von Context V1.3 
  5. REM von Mario Collado ( MCollado@t-online.de )
  6. REM
  7. REM Macro sollte in Macro5 als Hotkey (Clip) definiert
  8. REM werden.
  9. REM 05.07.2000
  10.  
  11. Include "System.oxh"
  12. Include "Date.oxh"
  13. Include "Const.oph"
  14. Include "Macro.oph"
  15.  
  16. PROC MaruMenu:
  17.     global File$(255),LastPath$(255)
  18.     global m% ,n%
  19.  
  20.     REM  Start----SYSTEM----------------------------------------    
  21.     IF APPisFG:("Z:\system\apps\shell\shell.app")
  22.             MMsystem:
  23.     
  24.     REM  Start----OPERA----------------------------------------        
  25. REM Pfad anpassen!!
  26.     ELSEIF APPisFG:("C:\System\Apps\Opera\Opera.app")
  27.             MMopera:
  28.             
  29.     REM  Start----MaruMenu----------------------------------------        
  30. REM Pfad anpassen!!
  31.     ELSEIF APPisFG:("D:\Macros\MaruMenu\MaruMenu.opl")
  32.             MMmarumenu:
  33.             
  34. REM  Start----Agenda----------------------------------------        
  35. REM Pfad anpassen!!
  36.     ELSEIF APPisFG:("D:\Dokumente\Agn\Agenda")
  37.             MMagenda:
  38.  
  39. REM  Start----E-mail------------------------------        
  40. REM Anpassen!!
  41.     ELSEIF APPisFG:("Z:\System\Apps\MsgApp\MsgApp.app")
  42.             MMemail:
  43.             
  44. REM  Start----EDITor------------------------------        
  45.     ELSEIF APPisFG:("c:\System\Apps\editor\editor.app")
  46.             MMdstedit:
  47.  
  48. REM  Start----DSTEDIT------------------------------        
  49.     ELSEIF APPisFG:("D:\System\Apps\dstedit\DSTEdit.app")
  50.             MMdstedit:
  51.  
  52. REM  Start----Navigator------------------------------        
  53.     ELSEIF APPisFG:("C:\System\Apps\Navigator\Navigator.app")
  54.             MMNavigator:
  55.  
  56. REM  Start----DUMMY-----Vorlage------------------------------        
  57.     ELSEIF APPisFG:("C:\System\Apps\Dummy\Dummy.app")
  58.             MMdummy:
  59.  
  60.     
  61.     REM  Start----Alle Anderen------------------------------------        
  62.     ELSE
  63.             MMrest:
  64.         
  65.     ENDIF    
  66. ENDP
  67. REM -------------------------------------------
  68. PROC MMsystem:
  69.  
  70.          m%=mpopup(0,0,1,"GoTo C:...",%c,"GoTo D:...",%d,"BatGauge",-%g,"Extras",%b)        
  71.         If m%=0
  72.             Return
  73.         ElseIf m%=%c  Rem Goto C
  74.                      n%=mpopup(30,40,2,"C:\Dokumente",%a,"C:\System\Apps",%b,"C:\Dokumente\BG_pics\",-%c)
  75.                         If n%=0
  76.                     Return
  77.                     ElseIf n%=%a            
  78.                             FgFolder:("C:\Dokumente\")
  79.                     ElseIf n%=%b    
  80.                             FgFolder:("C:\System\apps\")
  81.                     ElseIf n%=%c    
  82.                             FgFolder:("C:\Dokumente\BG_pics\")
  83.                     ENDIF
  84.  
  85.         ElseIf m%=%d  Rem Goto D
  86.                      n%=mpopup(30,40,2,"D:\Dokumente",%a,"D:\System\Apps",%b,"Z:\Dokumente\Zip\",%c,"D:\Macros\",%m,"D:\Dokumente\Mail\",%d,"D:\Dokumente\Job",%f,"D:\Dokumente\Dat\",%e)
  87.                         If n%=0
  88.                     Return
  89.                     ElseIf n%=%a            
  90.                             FgFolder:("D:\Dokumente\")
  91.                     ElseIf n%=%b    
  92.                             FgFolder:("D:\System\apps\")
  93.                     ElseIf n%=%c    
  94.                             FgFolder:("D:\Dokumente\Zip\")
  95.                     ElseIf n%=%m
  96.                             FgFolder:("D:\Macros\")
  97.                     ElseIf n%=%d
  98.                             FgFolder:("D:\Dokumente\Mail\")
  99.                     ElseIf n%=%e
  100.                             FgFolder:("D:\Dokumente\Dat\")
  101.                     ElseIf n%=%f
  102.                             FgFolder:("D:\Dokumente\Job\")
  103.                     ElseIf n%=%g
  104.                             FgFolder:("D:\Dokumente\")
  105.                     ENDIF
  106.  
  107.          ElseIf m%=%g    REM BatGauge
  108.             FGapp%:("C:\System\Apps\BatGauge\BatGauge.app")
  109.         ElseIf m%=%b    REM Extras.
  110. REM Pfad anpassen!! (suchen und ersetzen)
  111.             Extras:
  112.         ENDIF    
  113. ENDP
  114.  
  115. REM -------------------------------------------
  116. PROC MMopera:
  117.          m%=mpopup(0,0,1,"Goto",-%o,"Zur├╝ck",%z,"Neuladen",%n,"Vor",-%v,"Hotlist",%l,"Stop",%t,"Speichern...",-%s,"Extras",%b)        
  118.         If m%=0
  119.             Return
  120.         ElseIf m%=%o  Rem Goto
  121.             SendKey:("Ctrl+o")
  122.         ElseIf m%=%z  REM Zur├╝ck
  123.             SendKey:("Ctrl+g")
  124.         ElseIf m%=%n    REM Neuladen 
  125.             SendKey:("Ctrl+r")
  126.         ElseIf m%=%v    REM Vor
  127.             SendKey:("Ctrl+shift+o")
  128.         ElseIf m%=%l    REM Hotlist
  129.             SendKey:("Ctrl+shift+b")
  130.         ElseIf m%=%t    REM Stop
  131.             SendKey:("Ctrl+z")
  132.         ElseIf m%=%s  Rem Submenu Speichern
  133.                      n%=mpopup(30,40,2,"Speichern htm",%s,"Speichern htm+Bilder",%i,"URL Speichern",-%u,"Bookmark",%b)
  134.                     If n%=0
  135.                     Return
  136.                     ElseIf n%=%s    REM speichern htm
  137.                         SendKey:("Ctrl+s")
  138.                     ElseIf n%=%i    REM htm+Bilder
  139.                         SendKey:("menu,2,1,down,down,down,enter")
  140.                     ElseIf n%=%u  REM URL Speichern
  141.                         FgMacro:("D:\Macros\Link_save.opo")
  142.                     ElseIf n%=%b    REM Bookmark
  143.                         SendKey:("Ctrl+b")
  144.                     ENDIF
  145.         ElseIf m%=%b    REM Extras.
  146.             Extras:
  147.         ENDIF
  148. ENDP
  149. REM -------------------------------------------
  150. PROC MMmarumenu:
  151.          m%=mpopup(0,0,1,"REM",%r,"REM weg",-%z,"IF ELSE...",%i,"Insert Path",-%f,"MacroHelp",%h,"OPL Help",-%n,"Extras",%b)        
  152.         If m%=0
  153.             Return
  154.         ElseIf m%=%r  Rem REM
  155.             SendKey:("FN+left")
  156.             Paste:  ("REM")
  157.             SendKey:("TAB,down,FN+left")
  158.         ElseIf m%=%z  REM REM weg
  159.             SendKey:("FN+left,right,right,right,right,del,del,del,del,down")
  160.         ElseIf m%=%i  Rem IF ELSE ENDIF
  161.             SendKey:("enter")
  162.             Paste:("IF")
  163.             SendKey:("enter,tab,enter,del")
  164.             Paste:("ELSE")
  165.             SendKey:("enter,tab,enter,del")
  166.             Paste:("ENDIF")
  167.         ElseIf m%=%f  Rem Insertpath
  168.             FgMacro:("D:\Macros\MaruMenu\MMfindpath.opo")
  169.         ElseIf m%=%h    REM Macro Handbuch
  170. REM Pfad anpassen!!
  171.             FGapp%:("C:\System\Apps\Macro5\Macro5OPL.hlp")
  172.         ElseIf m%=%n    REM OPL Handbuch
  173. REM Pfad anpassen!!
  174.             FGapp%:("D:\Dokumente\OPL\Manual\OPL.hlp")
  175.         ElseIf m%=%b    REM Extras.
  176.             Extras:
  177.         ENDIF
  178. ENDP
  179.  
  180. REM -------------------------------------------
  181. PROC MMagenda:
  182.          m%=mpopup(0,0,1,"HEUTE",%h,"TAG",%t,"WOCHE",%w,"AUFGABE",%a,"N├ñchsten Termine",-%r,"Schriftgestaltung ...",%k,"WordAnhang",%n,"ToDo eingeben",-%d,"Extras",%b)
  183.         If m%=0
  184.             Return
  185.         ElseIf m%=%h  Rem Heute
  186.             SendKey:("Ctrl+Shift+t")    REM Tagesansicht
  187.             SendPenClick:(575,120)   REM und Heute, Stiftklick auf den Button "Heute" simulieren
  188.         ElseIf m%=%t  Rem nur Tagesansicht
  189.             SendKey:("Ctrl+Shift+t")
  190.         ElseIf m%=%w  Rem Woche
  191.             SendKey:("Ctrl+Shift+w")
  192.         ElseIf m%=%a  Rem Aufgabe
  193.             SendKey:("Ctrl+Shift+l")
  194.         ElseIf m%=%r  Rem n├ñchsten Termine
  195.             SendKey:("ctrl+f,space,down,tab,FN+up,a,enter,enter")
  196.         ElseIf m%=%n  Rem Word
  197.             SendKey:("Ctrl+Shift+b")
  198.         ElseIf m%=%k  Rem Submenu        
  199.                      n%=mpopup(90,40,2,"Kleiner",%l,"Gr├╢├ƒer",%g,"Standard",-%s,"Fett",%f,"Kursiv",%k,"Unterstr.",%u,"Durchgestr.",%i)
  200.                     If n%=0
  201.                     Return
  202.                     ElseIf n%=%l    REM Kleinschrift
  203.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  204.                         Sendkey:("ctrl+s,down,tab,up,up,enter,enter,enter")
  205.                     ElseIf n%=%g    REM Gro├ƒschrift
  206.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  207.                         Sendkey:("ctrl+s,down,right,right,enter,enter")
  208.                     ElseIf n%=%s  REM Standard
  209.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  210.                         Sendkey:("ctrl+s,down,tab,FN+up,FN+up,FN+up,down,down,down,enter,enter,enter")
  211.                     ElseIf n%=%f  REM Fett
  212.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  213.                         Sendkey:("ctrl+s,down,down,left,enter,enter")
  214.                     ElseIf n%=%u  REM Unterstr.
  215.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  216.                         Sendkey:("ctrl+s,down,down,down,down,left,enter,enter")
  217.                     ElseIf n%=%k  REM Kursiv
  218.                         SendKey:("enter,ctrl+a,up,left,left,down,shift+up,shift+up")
  219.                         Sendkey:("ctrl+s,down,down,down,left,enter,enter")
  220.                     ElseIf n%=%i  REM Durchgestr
  221.                         Sendkey:("ctrl+i")
  222.                     ENDIF
  223.         ElseIf m%=%d  Rem ToDo neu
  224.             SendKey:("FN+left,Ctrl+Shift+n,a,enter")
  225.         ElseIf m%=%b    REM Extras.
  226.             Extras:
  227.         ENDIF
  228. ENDP
  229.  
  230. REM -------------------------------------------
  231. PROC MMemail:
  232.          m%=mpopup(0,0,1,"e-mail Eingang speicher",%e,"e-mail Gesendet speichern",-%s,"URL speichern",%u,"Mail hohlen + senden",-%m,"Extras",%b)        
  233.         If m%=0
  234.             Return
  235.         ElseIf m%=%e  Rem Eingang speichern
  236.             FgMacro:("D:\Macros\mailbutl_startEing.opo")
  237.         ElseIf m%=%s  REM Gesendet speichern
  238.             FgMacro:("D:\Macros\mailbutl_startGes.opo")
  239.         ElseIf m%=%u  REM URL Speichern
  240.             FgMacro:("D:\Macros\Link_save.opo")
  241.         ElseIf m%=%m  Rem Mails
  242.             FgMacro:("d:\Macros\E-mails.opo")
  243.         ElseIf m%=%b    REM Extras.
  244.             Extras:
  245.         ENDIF
  246. ENDP
  247. REM -------------------------------------------
  248. PROC MMedit:
  249.          m%=mpopup(0,0,1,"<>..</>",%a,"CR",-%c,"Link",%l,"Graphik",-%g,"Extras",%b)        
  250.         If m%=0
  251.             Return
  252.         ElseIf m%=%a  Rem "<>..</>"
  253.             SendKey:("FN+left,<,>,FN+right,<,/,>,FN+left,right")
  254.         ElseIf m%=%c  Rem CR
  255.             SendKey:("<,B,R,>,enter")
  256.         ElseIf m%=%l  Rem Link
  257.             SendKey:("FN+left")
  258.             SendString:("<A HREF=")
  259.             FgMacro:("D:\Macros\MaruMenu\MMfindpath.opo")
  260. rem            SendString:(file$)
  261.             SendString:(">Text</A>")
  262.             SendKey:("left,left,left,left")
  263.         ElseIf m%=%g  Rem Graphik
  264.             SendKey:("FN+left")
  265.             SendKey:("<,I,M,G, ,S,R,C,=,>")
  266.             SendKey:("FN+right,left")
  267.             FgMacro:("D:\Macros\MaruMenu\MMfindpath.opo")
  268. rem            SendString:(file$)
  269.         ElseIf m%=%d  Rem 
  270.             SendKey:("")
  271.         ElseIf m%=%b    REM Extras.
  272.             Extras:
  273.         ENDIF
  274. ENDP
  275.  
  276. REM -------------------------------------------
  277. PROC MMdstedit:
  278.          m%=mpopup(0,0,1,"<>..</>",%a,"HTML Format",%h,"CR",-%c,"Link",%l,"Graphik",-%g,"Extras",%b)        
  279.         If m%=0
  280.             Return
  281.         ElseIf m%=%a  Rem "<>..</>"
  282.             SendKey:("FN+left,<,>,FN+right,<,/,>,FN+left,right")
  283.         ElseIf m%=%h  Rem HTML Format
  284.             fgmacro:("D:\Macros\MaruMenu\htmlfont.opo")
  285.         ElseIf m%=%c  Rem CR
  286.             SendKey:("<,B,R,>,enter")
  287.         ElseIf m%=%l  Rem Link
  288.             SendKey:("FN+left")
  289.             SendString:("<A HREF=")
  290.             FgMacro:("D:\Macros\MaruMenu\MMfindpath.opo")
  291.             SendString:(file$)
  292.             SendString:(">Text</A>")
  293.             SendKey:("left,left,left,left")
  294.         ElseIf m%=%g  Rem Graphik
  295.             SendKey:("FN+left")
  296.             SendKey:("<,I,M,G, ,S,R,C,=,>")
  297.             SendKey:("FN+right,left")
  298.             FgMacro:("D:\Macros\MaruMenu\MMfindpath.opo")
  299.             
  300.             SendString:(file$)
  301.         ElseIf m%=%d  Rem 
  302.             SendKey:("")
  303.         ElseIf m%=%b    REM Extras.
  304.             Extras:
  305.         ENDIF
  306. ENDP
  307.  
  308. REM -------------------------------------------
  309. PROC MMnavigator:
  310.          m%=mpopup(0,0,1,"Neuer Ordner",%o,"Neue Zipdatei",%z,"D_ZIP",%d,"Extras",%b)        
  311.         If m%=0
  312.             Return
  313.         ElseIf m%=%o  Rem Neuer Ordner
  314.             SendKey:("CTRL+shift+o")
  315.         ElseIf m%=%z  Rem ZIP
  316.             SendKey:("CTRL+shift+z")
  317.         ElseIf m%=%d  Rem ZIP 
  318.                 SendKey:("ctrl+d,d,right,d,d,right,z,tab")
  319.         ElseIf m%=%b    REM Extras.
  320.             Extras:
  321.         ENDIF
  322. ENDP
  323. REM -------------------------------------------
  324. PROC MMdummy:
  325.          m%=mpopup(0,0,1,"Dummy",%d,"Dummy",-%d,"Extras",%b)        
  326.         If m%=0
  327.             Return
  328.         ElseIf m%=%d  Rem DUMMY
  329.             SendKey:("")
  330.         ElseIf m%=%d  Rem 
  331.             SendKey:("")
  332.         ElseIf m%=%b    REM Extras.
  333.             Extras:
  334.         ENDIF
  335. ENDP
  336.  
  337. REM -------------------------------------------
  338. PROC MMrest:
  339.          m%=mpopup(0,0,1,"Beend.oh.speichern",%x,"BatGauge",-%g,"Extras",%b)        
  340.         If m%=0
  341.             Return
  342.         ElseIf m%=%x  Rem Beenden ohne zu speichern
  343.             NoSaveExit: REM ist von Mario
  344.  
  345.          ElseIf m%=%g    REM BatGauge
  346.             FGapp%:("C:\System\Apps\BatGauge\BatGauge.app")
  347.          ElseIf m%=%b    REM Extras.
  348.             Extras:
  349.         ENDIF    
  350. ENDP
  351.  
  352. REM -------------------------------------------
  353. PROC Extras:
  354.                      n%=mpopup(90,40,2,"Menu bearb.",%b,"Beenden oh.speichern",%x)
  355.                     If n%=0
  356.                         Return
  357.                      ElseIf n%=%b    REM Extras.
  358.                         FGapp%:("D:\Macros\MaruMenu\MaruMenu.opl")
  359.                     ElseIf n%=%x    REM Beenden oh.
  360. giprint "nosavveexit"
  361. pause 20
  362.                         NoSaveExit:
  363.                     ENDIF
  364. ENDP
  365.  
  366.  
  367. PROC APPisFG:(File$)
  368.     Local Tret&
  369.     IF EXIST (File$)
  370.     ELSE
  371.         return 0            REM Datei nicht da
  372.     ENDIF
  373.     Tret& = GetThread&:(File$)
  374.     IF Tret&=0            REM ist nicht gestartet
  375.         return 0
  376.     ELSEIF Tret&=Thread&  rem ist im Vordergrund
  377.         return 1
  378.     ElSE                  rem ist im Hintergrund
  379.         return 0
  380.     ENDIF
  381. ENDP
  382.  
  383. PROC NoSaveExit:
  384.     Local p&
  385.     If TaskDoc$:<> ""
  386.         dInit "Beenden von '"+TaskDoc$:+"'"
  387.     Else
  388.         dInit "Beenden von '"+TaskApp$:+"'"
  389.     Endif
  390.     dText "","Wollen Sie wirklich",KDTextCentre%
  391.     dText "","ohne zu speichern beenden?",KDTextCentre%
  392.     dButtons "Nein",%n or $100 or $200,"Ja",%j or $100 or $200
  393.     If Dialog=%j
  394.         KillTask&:(Thread&,p&)
  395.     Endif
  396. ENDP
  397.  
  398.  
  399.  
  400.