home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / mouse / mouseqb / mbox_qb.doc < prev    next >
Encoding:
Text File  |  1993-07-28  |  26.2 KB  |  923 lines
  1.  
  2.  
  3.  
  4.          ┌──────────────────────────────────────────────────────┐
  5.          │                                                      │
  6.          │                                                      │
  7.          │                                                      │
  8.          │                                                      │
  9.          │                                                      │
  10.          │                                                      │
  11.          │                                                      │
  12.          │                                                      │
  13.          │                                                      │
  14.          │                                                      │
  15.          │                                                      │
  16.          │                                                      │
  17.          │                                                      │
  18.          │                                                      │
  19.          │                                                      │
  20.          │                                                      │
  21.          │                                                      │
  22.          │                  Mousebox-Handbuch                   │
  23.          │                                                      │
  24.          │                                                      │
  25.          │    Routinen zur Unterstützung der Microsoft Mouse    │
  26.          │                                                      │
  27.          │                                                      │
  28.          │                                                      │
  29.          │                                                      │
  30.          │                                                      │
  31.          │                                                      │
  32.          │                                                      │
  33.          │                                                      │
  34.          │                                                      │
  35.          │                                                      │
  36.          │                                                      │
  37.          │                                                      │
  38.          │                                                      │
  39.          │                                                      │
  40.          │                                                      │
  41.          │                                                      │
  42.          │                                                      │
  43.          │                                                      │
  44.          │                                                      │
  45.          │                                                      │
  46.          │                                                      │
  47.          │              Copyright (c) 1988, 89, 90              │
  48.          │                                                      │
  49.          │                          by                          │
  50.          │                                                      │
  51.          │                     Ralf Krause                      │
  52.          │                                                      │
  53.          │                Leuchtenberger Str. 7a                │
  54.          │               D-8480 Weiden i. d. Opf.               │
  55.          │                                                      │
  56.          │                                                      │
  57.          │                                                      │
  58.          │                                                      │
  59.          │                                                      │
  60.          │                                                      │
  61.          │                                                      │
  62.          │                                                      │
  63.          │                                                      │
  64.          │  Kein Teil dieses Handbuches darf ohne schriftliche  │
  65.          │  Genehmigung des Programmautors in irgend einer Form │
  66.          │  vervielfältigt, archiviert oder verbreitet werden!  │
  67.          │  Der Programmautor behält sich Änderungen am Pro-    │
  68.          │  gramm und an dem Handbuch vor!                      │
  69.          └──────────────────────────────────────────────────────┘
  70.  
  71.  
  72.  
  73.  
  74.  
  75.                            Über die »Mousebox«:
  76.  
  77.          Die  »Mousebox«  ist  eine  Sammlung  von Prozeduren und
  78.          Funktionen  zur  Steuerung  und Überwachung einer Micro-
  79.          soft Mouse, bzw. einer Microsoft-kompatiblen Mouse.
  80.          Mit  den  Routinen  können  Sie Ihre Programme, nach dem
  81.          Sie  sie  geändert haben nun auch mit Ihrer Mouse benut-
  82.          zen.
  83.          Die Mousebox ist für die folgenden Programmiersprachen
  84.          erhältlich:
  85.  
  86.                 - Turbo Basic
  87.                 - Turbo Pascal 3/4/5 und 5.5
  88.                 - Quick Basic
  89.                 - Turbo C
  90.  
  91.          Falls Sie noch nicht registrierter Anwender der Mousebox
  92.          sind so bedenken Sie das die Registrierungsgebühr nur
  93.          DM  29.-- beträgt.  Nur durch  Ihre Registrierung  lohnt
  94.          sich  für mich  eine Weiterentwicklung  der Mousebox.Als
  95.          registrierter   Anwender   erhalten   Sie   neben  einem
  96.          gedurckten Handbuch auch Hilfe bei Fragen und Problemen,
  97.          reichen  Sie  Ihre  Fragen  oder  Probleme  dazu einfach
  98.          schriftlich ein (Rückporto nicht vergessen).
  99.  
  100.          Das   Registrierungsformular  befindet   sich  auf   der
  101.          nächsten Seite.
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.          Herr
  151.          Ralf Krause
  152.  
  153.          Leuchtenberger Str. 7a
  154.          D-8480 Weiden i. d. OPf.
  155.  
  156.  
  157.                           R e g i s t r i e r u n g
  158.  
  159.          Ja, ich möchte mich als Anwender der Mousebox für Quick-
  160.          Basic für nur DM 29.-- registrieren lassen.
  161.          Für diesen Betrag werden mir folgende Leistungen geboten:
  162.  
  163.          - Zusendung der neuesten Version
  164.          - Update-Service
  165.          - Handbuch
  166.          - Hilfe bei Fragen und Problemen (bitte schriftlich ein-
  167.            reichen und Rückporto nicht vergessen)
  168.  
  169.  
  170.          Meine Anschrift lautet:
  171.  
  172.          Vorname:____________________ Name:________________________
  173.  
  174.          Straße :___________________________________
  175.  
  176.          PLZ/Ort:____ ______________________________ Land:___
  177.  
  178.  
  179.          Die folgenden Programme sollte es als Shareware geben:
  180.  
  181.          [ ] _______________________    [ ] ____________________
  182.          [ ] _______________________    [ ] ____________________
  183.  
  184.          Den Betrag von DM 29.--       │ Ich benötige folgen-
  185.                                        │ des Diskettenformat:
  186.          [ ] habe ich als Verechnungs- │
  187.              scheck beigelegt          │ [ ] 3½"-Disketten
  188.                                        │     (zzgl. DM 3.--)
  189.          [ ] habe ich auf das folgende │
  190.              Konto überwiesen:         │
  191.                                        │ [ ] 5¼"-Disketten
  192.              Deutsche Bank-Weiden      │
  193.              BLZ : 760 700 12          │ Ist nichts angekreutzt,
  194.              Kto.-Nr.: 6657936         │ werden 5¼"-Disketten
  195.                                        │ geliefert
  196.          [ ] erheben Sie bitte per     │
  197.              Nachnahme (zzgl. DM 5.--  │
  198.              Nachnahmegebühr)          │
  199.  
  200.          ______________________________ ___________________________
  201.          Ort, Datum                     Unterschrift (bei Minder-
  202.                                         jährigen eines Erziehungs-
  203.                                         berechtigten)
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.                 Einfügen der Routinen in Ihre Programme:
  217.  
  218.          Das  Einfügen  der  Routinen  der  »Mousebox«  geschieht
  219.          auf folgende Weise:
  220.  
  221.          1. erstellen Sie eine Quick-Bibliothek aus dem Source-
  222.             code (ist nur notwendig wenn sich das Format bei
  223.             einer späteren Version von Quick Basic ändern sollte,
  224.             für 4.5 ist die Quick-Bibliothek auf der Diskette)
  225.  
  226.          2. um die Routinen in der Quick-Bibliothek zu benutzen
  227.             müssen Sie Quick Basic wie folgt aufrufen:
  228.             qb /l mousebox
  229.  
  230.          3. in den Programmen die, die Routinen der Mousebox be-
  231.             benutzen fügen Sie die folgende Zeile ein:
  232.  
  233.             ' $INCLUDE: 'MOUSEBOX.INC'
  234.  
  235.  
  236.                Nutzung der Routinen in eigenen Programmen:
  237.  
  238.          Sie  dürfen  die  Routinen  ohne Beschränkungen in Ihren
  239.          Programmen verwenden.
  240.          Die  Weitergabe des Sourcecodes der Routinen ist jedoch,
  241.          genau wie die veröffentlichung in Zeitschriften, Mailbo-
  242.          xen, etc. verboten.
  243.          Eine  Zuwiederhandlung  gegen  diese Beschränkungen kann
  244.          sowohl  Zivil-,  als  auch  Strafrechtliche Schritte zur
  245.          Folge haben.
  246.  
  247.  
  248.  
  249.                           Über dieses Handbuch:
  250.  
  251.  
  252.          Dieses Handbuch erläutert alle Prozeduren und Funktionen
  253.          der  »Mousebox«.  Nehmen  Sie  sich ruhig etwas Zeit das
  254.          Handbuch zu lesen.
  255.  
  256.  
  257.          Das Handbuch ist wie folgt aufgebaut:
  258.  
  259.          1. Name der Prozedur oder Funktion
  260.          2. ob es eine Prozedur oder eine Funktion ist
  261.          3. Syntax
  262.          4. Aufgabe der Prozedur oder Funktion
  263.          5. Beispiel wie die Prozedur oder Funktion benutzt wird;
  264.             hier stehen jedoch nur die Schritte, die zeigen wie
  265.             die Prozedur oder Funktion angewandt wird;
  266.             (Sehen Sie sich hierzu auch das Beispielprogramm
  267.              MOUSEDEM.BAS auf der Diskette an)
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.                                 InitMouse
  288.  
  289.          Prozedur/Funktion: Funktion
  290.  
  291.          Syntax           : a = InitMouse
  292.  
  293.          Aufgabe          : überprüft und initialisert den Maus-
  294.                             treiber; das Ergebnis der Funktion
  295.                             ist entweder TRUE(-1) oder FALSE(0);
  296.                             ist das Ergebnis TRUE so ist eine
  297.                             Mouse vorhanden, andernfalls nicht;
  298.                             diese Funktion muß vor der Benutzung
  299.                             anderer Funktionen der »Mousebox«
  300.                             einmal aufgerufen worden sein
  301.  
  302.          Beispiel         : iMouseExist = InitMouse
  303.                             ? "Es ist ";
  304.                             IF NOT iMouseExist THEN ? "k";
  305.                             ? "eine Mouse vorhanden!"
  306.  
  307.  
  308.  
  309.  
  310.                                ResetMouse
  311.  
  312.          Prozedur/Funktion: Prozedur
  313.  
  314.          Syntax           : ResetMouse
  315.  
  316.          Aufgabe          : setzt den Mouse-Treiber zurück,
  317.                             diese Prozedur sollten Sie bei ver-
  318.                             lassen Ihrer Programme aufrufen;
  319.  
  320.          Beispiel         : iMouseExist = InitMouse
  321.                                .                 ' hier steht Ihr
  322.                                .                 ' Programm
  323.                             ResetMouse           ' sollte am Ende
  324.                                                  ' stehen
  325.  
  326.  
  327.  
  328.  
  329.                                ShowCursor
  330.  
  331.          Prozedur/Funktion: Prozedur
  332.  
  333.          Syntax           : ShowCursor
  334.  
  335.          Aufgabe          : schaltet den Mousecursor an; macht
  336.                             ihn am Bildschirm sichtbar
  337.  
  338.          Beispiel         : ShowCursor
  339.  
  340.  
  341.  
  342.  
  343.                                HideCursor
  344.  
  345.          Prozedur/Funktion: Prozedur
  346.  
  347.          Syntax           : HideCursor
  348.  
  349.          Aufgabe          : schaltet den Mousecursor aus; macht
  350.                             ihn am Bildschirm unsichtbar
  351.  
  352.          Beispiel         : HideCursor
  353.  
  354.  
  355.  
  356.  
  357.  
  358.                               GetXPosition
  359.  
  360.          Prozedur/Funktion: Funktion
  361.  
  362.          Syntax           : x = GetXPosition
  363.  
  364.          Aufgabe          : ermittelt die horizontale Position des
  365.                             Mousecursors;
  366.  
  367.          Beispiel         : ? "horizontale Position:";
  368.                             ? GetXPosition
  369.  
  370.  
  371.  
  372.  
  373.                               GetYPosition
  374.  
  375.          Prozedur/Funktion: Funktion
  376.  
  377.          Syntax           : y = GetYPosition
  378.  
  379.          Aufgabe          : ermittelt die vertikale Position des
  380.                             Mousecursors;
  381.  
  382.          Beispiel         : ? "vertikale Position:";
  383.                             ? GetYPosition
  384.  
  385.  
  386.  
  387.  
  388.                             GetXTextPosition
  389.  
  390.          Prozedur/Funktion: Funktion
  391.  
  392.          Syntax           : x = GetXTextPosition
  393.  
  394.          Aufgabe          : ermittelt die horizontale Position des
  395.                             Mousecursors; das Ergebnis liegt im
  396.                             Bereich der Textkoordinaten (1-80)
  397.  
  398.          Beispiel         : ? "horizontale Position:";
  399.                             ? GetXTextPosition
  400.  
  401.  
  402.  
  403.  
  404.                             GetYTextPosition
  405.  
  406.          Prozedur/Funktion: Funktion
  407.  
  408.          Syntax           : y = GetYTextPosition
  409.  
  410.          Aufgabe          : ermittelt die vertikale Position des
  411.                             Mousecursors; das Ergebnis liegt im
  412.                             Bereich der Textkoordinaten (1-25)
  413.  
  414.          Beispiel         : ? "vertikale Position:";
  415.                             ? GetYTextPosition
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.                                LeftButton
  430.  
  431.          Prozedur/Funktion: Funktion
  432.  
  433.          Syntax           : n = LeftButton
  434.  
  435.          Aufgabe          : testet ob die linke Mouse-Taste ge-
  436.                             drückt ist, oder nicht;
  437.                             ist die linke Taste gedrückt, so ist
  438.                             das Ergebnis der Funktion TRUE, ist
  439.                             die linke Taste nicht gedrückt, so
  440.                             ist das Ergebnis FALSE
  441.  
  442.          Beispiel         : ? "Die linke Taste ist ";
  443.                             IF NOT LeftButton THEN ? "nicht ";
  444.                             ? "gedrückt!"
  445.  
  446.  
  447.  
  448.  
  449.                                RightButton
  450.  
  451.          Prozedur/Funktion: Funktion
  452.  
  453.          Syntax           : n = RightButton
  454.  
  455.          Aufgabe          : testet ob die rechte Mouse-Taste
  456.                             gedrückt ist, oder nicht;
  457.                             ist die rechte Taste gedrückt, so
  458.                             liefert die Funktion den Wert -1,
  459.                             ist die rechte Taste nicht gedrückt,
  460.                             so liefert sie den Wert 0
  461.  
  462.          Beispiel         : ? "Die rechte Taste ist ";
  463.                             IF NOT RightButton THEN ? "nicht ";
  464.                             ? "gedrückt!"
  465.  
  466.  
  467.  
  468.  
  469.                               MiddleButton
  470.  
  471.          Prozedur/Funktion: Funktion
  472.  
  473.          Syntax           : n = MiddleButton
  474.  
  475.          Aufgabe          : testet ob die mittlere Mouse-Taste
  476.                             gedrückt ist, oder nicht;
  477.                             ist die mittlere Taste gedrückt, so
  478.                             liefert das Ergebnis der Funktion
  479.                             TRUE, ist die mitllere Taste nicht
  480.                             gedrückt, so ist das Ergebnis FALSE
  481.  
  482.          Beispiel         : ? "Die mittlere Taste ist ";
  483.                             IF NOT MiddleButton THEN ? "nicht ";
  484.                             ? "gedrückt!"
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.                             LeftButtonPressed
  501.  
  502.          Prozedur/Funktion: Funktion
  503.  
  504.          Syntax           : n = LeftButtonPressed
  505.  
  506.          Aufgabe          : stellt fest wie oft die linke
  507.                             Mouse-Taste seit der letzten Abfrage
  508.                             gedrückt wurde
  509.  
  510.          Beispiel         : ? "Die linke Mouse-Taste wurde";
  511.                             ? LeftButtonPressed;
  512.                             ? "mal gedrückt!"
  513.  
  514.  
  515.  
  516.  
  517.                            RightButtonPressed
  518.  
  519.          Prozedur/Funktion: Funktion
  520.  
  521.          Syntax           : n = RightButtonPressed
  522.  
  523.          Aufgabe          : stellt fest wie oft die rechte
  524.                             Mouse-Taste seit der letzten Abfrage
  525.                             gedrückt wurde
  526.  
  527.          Beispiel         : ? "Die rechte Mouse-Taste wurde";
  528.                             ? RightButtonPressed;
  529.                             ? "mal gedrückt!"
  530.  
  531.  
  532.  
  533.  
  534.                            MiddleButtonPressed
  535.  
  536.          Prozedur/Funktion: Funktion
  537.  
  538.          Syntax           : n = MiddleButtonPressed
  539.  
  540.          Aufgabe          : stellt fest wie oft die mittlere
  541.                             Mouse-Taste seit der letzten Abfrage
  542.                             gedrückt wurde
  543.  
  544.          Beispiel         : ? "Die mittlere Mouse-Taste wurde";
  545.                             ? MiddleButtonPressed;
  546.                             ? "mal gedrückt!"
  547.  
  548.  
  549.  
  550.  
  551.                            LeftButtonReleased
  552.  
  553.          Prozedur/Funktion: Funktion
  554.  
  555.          Syntax           : n = LeftButtonReleased
  556.  
  557.          Aufgabe          : stellt fest wie oft die linke
  558.                             Mouse-Taste seit der letzten Abfrage
  559.                             losgelassen wurde
  560.  
  561.          Beispiel         : ? "Die linke Mouse-Taste wurde";
  562.                             ? LeftButtonReleased;
  563.                             ? "mal losgelassen!"
  564.  
  565.  
  566.  
  567.  
  568.  
  569.  
  570.  
  571.                            RightButtonReleased
  572.  
  573.          Prozedur/Funktion: Funktion
  574.  
  575.          Syntax           : n = RightButtonReleased
  576.  
  577.          Aufgabe          : stellt fest wie oft die rechte
  578.                             Mouse-Taste seit der letzten Abfrage
  579.                             losgelassen wurde
  580.  
  581.          Beispiel         : ? "Die rechte Mouse-Taste wurde";
  582.                             ? RightButtonReleased;
  583.                             ? "mal losgelassen!"
  584.  
  585.  
  586.  
  587.  
  588.                           MiddleButtonReleased
  589.  
  590.          Prozedur/Funktion: Funktion
  591.  
  592.          Syntax           : n = MiddleButtonReleased
  593.  
  594.          Aufgabe          : stellt fest wie oft die mittlere
  595.                             Mouse-Taste seit der letzten Abfrage
  596.                             losgelassen wurde
  597.  
  598.          Beispiel         : ? "Die mittlere Mouse-Taste wurde";
  599.                             ? MiddleButtonReleased;
  600.                             ? "mal gedrückt!"
  601.  
  602.  
  603.  
  604.  
  605.                                MouseMoved
  606.  
  607.          Prozedur/Funktion: Funktion
  608.  
  609.          Syntax           : n = MouseMoved
  610.  
  611.          Aufgabe          : testet ob die Mouse bewegt während
  612.                             der Abfrage bewegt wird, falls dies
  613.                             der Fall ist so ist das Ergebnis der
  614.                             Funktion TRUE, andernfalls ist es
  615.                             FALSE
  616.  
  617.          Beispiel         : n = MouseMoved
  618.                             ? "Die Mouse wurde ";
  619.                             IF NOT n THEN ? "nicht ";
  620.                             ? "bewegt!"
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638.  
  639.  
  640.  
  641.  
  642.                              MouseLeftMoved
  643.  
  644.          Prozedur/Funktion: Funktion
  645.  
  646.          Syntax           : n = MouseLeftMoved
  647.  
  648.          Aufgabe          : testet ob die Mouse während der Ab-
  649.                             frage nach links bewegt wird, falls
  650.                             dies der Fall ist so ist das Ergebnis
  651.                             der Funktion TRUE, andernfalls ist es
  652.                             FALSE
  653.  
  654.          Beispiel         : n = MouseLeftMoved
  655.                             ? "Die Mouse wurde ";
  656.                             IF NOT n THEN ? "nicht ";
  657.                             ? "nach links bewegt!"
  658.  
  659.  
  660.  
  661.  
  662.                              MouseRightMoved
  663.  
  664.          Prozedur/Funktion: Funktion
  665.  
  666.          Syntax           : n = MouseRightMoved
  667.  
  668.          Aufgabe          : testet ob die Mouse während der Ab-
  669.                             frage nach rechts bewegt wird, falls
  670.                             dies der Fall ist so ist das Ergebnis
  671.                             der Funktion TRUE, andernfalls ist es
  672.                             FALSE
  673.  
  674.          Beispiel         : n = MouseRightMoved
  675.                             ? "Die Mouse wurde ";
  676.                             IF NOT n THEN ? "nicht ";
  677.                             ? "nach rechts bewegt!"
  678.  
  679.  
  680.  
  681.  
  682.                               MouseUpMoved
  683.  
  684.          Prozedur/Funktion: Funktion
  685.  
  686.          Syntax           : n = MouseUpMoved
  687.  
  688.          Aufgabe          : testet ob die Mouse während der Ab-
  689.                             frage nach oben bewegt wird, falls
  690.                             dies der Fall ist so ist das Ergebnis
  691.                             der Funktion TRUE, andernfalls ist es
  692.                             FALSE
  693.  
  694.          Beispiel         : n = MouseUpMoved
  695.                             ? "Die Mouse wurde ";
  696.                             IF NOT n THEN ? "nicht ";
  697.                             ? "nach oben bewegt!"
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710.  
  711.  
  712.  
  713.                              MouseDownMoved
  714.  
  715.          Prozedur/Funktion: Funktion
  716.  
  717.          Syntax           : n = MouseDownMoved
  718.  
  719.          Aufgabe          : testet ob die Mouse während der Ab-
  720.                             frage nach unten bewegt wird, falls
  721.                             dies der Fall ist so ist das Ergebnis
  722.                             der Funktion TRUE, andernfalls ist es
  723.                             FALSE
  724.  
  725.          Beispiel         : n = MouseDownMoved
  726.                             ? "Die Mouse wurde ";
  727.                             IF NOT n THEN ? "nicht ";
  728.                             ? "nach unten bewegt!"
  729.  
  730.  
  731.  
  732.  
  733.                                SetXYMouse
  734.  
  735.          Prozedur/Funktion: Prozedur
  736.  
  737.          Syntax           : SetXYMouse x, y
  738.                             x und y sind Integer-Werte
  739.  
  740.          Aufgabe          : setzt den Mousecursor auf die über-
  741.                             gebene horizontale und vertikale Po-
  742.                             sition
  743.  
  744.          Beispiel         : SetXYMouse 319, 99
  745.  
  746.  
  747.  
  748.  
  749.                                 SetXRange
  750.  
  751.          Prozedur/Funktion: Prozedur
  752.  
  753.          Syntax           : SetXRange XMin, XMax
  754.                             XMin und XMax sind Integer-Werte
  755.  
  756.          Aufgabe          : setzt die minimale und maximale
  757.                             horizontale Mousecursorposition
  758.  
  759.          Beispiel         : SetXRange 0, 639
  760.  
  761.  
  762.  
  763.  
  764.                                 SetYRange
  765.  
  766.          Prozedur/Funktion: Prozedur
  767.  
  768.          Syntax           : SetYRange YMin, YMax
  769.                             YMin und YMax sind Integer-Werte
  770.  
  771.          Aufgabe          : setzt die minimale und maximale
  772.                             vertikale Mousecursorposition
  773.  
  774.          Beispiel         : SetYRange 0, 319
  775.  
  776.  
  777.  
  778.  
  779.  
  780.  
  781.  
  782.  
  783.  
  784.                               SetTextCursor
  785.  
  786.          Prozedur/Funktion: Prozedur
  787.  
  788.          Syntax           : SetTextCursor CursorType,
  789.                               TextScreenMask, TextCursorMask
  790.  
  791.                             CursorType, TextScreenMask und
  792.                             TextCursorMask sind Integer-Werte
  793.  
  794.          Aufgabe          : definiert den Text-Mousecursor;
  795.                             CursorType gibt an, ob es sich um
  796.                             einen Hardwareware- oder um einen
  797.                             Software-Cursor handelt;
  798.  
  799.                             CursorType = 0 : Softwarecursor
  800.                             CursorType = 1 : Hardwarecursor
  801.  
  802.                             In der Mousebox sind die Konstanten
  803.                             HardWare (=1) und SoftWare (=0) be-
  804.                             reits definiert, Sie können einfach
  805.                             diese Konstanten benutzen
  806.  
  807.                             bei CursorType = 1:
  808.                             TextScreenMask : obere Cursor Be-
  809.                                               grenzung
  810.                             TextCursorMask : untere Cursor Beg
  811.                                               grenzung
  812.  
  813.                             bei CursorType = 0:
  814.                             Bit  0 -  7 : Zeichencode
  815.                             Bit  8 - 10 : Vordergrundfarbe
  816.                             Bit      11 : Intensität normal/hell
  817.                             Bit 12 - 14 : Hintergrundfarbe
  818.                             Bit      15 : blinken ein/aus
  819.  
  820.          Beispiel         : TextScreenMask = &B0111011111111111
  821.                             TextCursorMask = &B0111011100000000
  822.                             CursorType = 0
  823.                             SetTextCursor CursorType,
  824.                               TextScreenMask, TextCursorMask
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853.  
  854.  
  855.                                GetXMickey
  856.  
  857.          Prozedur/Funktion: Funktion
  858.  
  859.          Syntax           : x =  GetXMickey
  860.  
  861.          Aufgabe          : horizontalen Mouse-Bewegungszähler
  862.                             (Mickey-Zähler) lesen
  863.  
  864.          Beispiel         : ? "horizontaler Mickey-Zähler:";
  865.                             ? GetXMickey
  866.  
  867.  
  868.  
  869.  
  870.                                GetYMickey
  871.  
  872.          Prozedur/Funktion: Funktion
  873.  
  874.          Syntax           : x =  GetYMickey
  875.  
  876.          Aufgabe          : vertikalen Mouse-Bewegungszähler
  877.                             (Mickey-Zähler) lesen
  878.  
  879.          Beispiel         : ? "vertikaler Mickey-Zähler:";
  880.                             ? GetYMickey
  881.  
  882.  
  883.  
  884.  
  885.                                SetXYMickey
  886.  
  887.          Prozedur/Funktion: Prozedur
  888.  
  889.          Syntax           : SetXYMickey XMickey, YMickey
  890.  
  891.                             XMickey und YMickey sind Integer-
  892.                             Werte
  893.  
  894.          Aufgabe          : horizontale und vertikale Mickey-
  895.                             Einheit setzen;
  896.  
  897.                             XMickey : Anzahl der Mickeys, die
  898.                                       einem horizontalen Bild-
  899.                                       schirmpunkt entsprechen
  900.                             YMickey : Anzahl der Mickeys, die
  901.                                       einem vertikalen Bild-
  902.                                       schirmpunkt entsprechen
  903.  
  904.          Beispiel         : SetXYMickey 16, 16
  905.  
  906.  
  907.  
  908.  
  909.                               SetMouseSpeed
  910.  
  911.          Prozedur/Funktion: Prozedur
  912.  
  913.          Syntax           : SetMouseSpeed Speed
  914.  
  915.          Aufgabe          : Schwellenwert für doppelte Mouse-
  916.                             Cursor-Geschwindigkeit in Mickeys pro
  917.                             Sekunde setzen
  918.  
  919.          Beispiel         : SetMouseSpeed 100
  920.  
  921.  
  922.  
  923.