home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / td187src.lzh / OWNBOXES.D < prev    next >
Text File  |  1991-12-14  |  2KB  |  44 lines
  1. DEFINITION MODULE OwnBoxes;
  2. (* Ein paar nützliche Prozeduren im Umgang mit AES und VDI *)
  3.  
  4. PROCEDURE SetMousePos(X, Y : INTEGER);
  5. (* Setze Maus-Zeiger auf angegebene Position *)
  6.  
  7. PROCEDURE GetMKState(VAR MoX, MoY      : INTEGER;
  8.                      VAR MoBut, KState : BITSET);
  9. (* Mouse und Keyboard-Shift-Status *)
  10.  
  11. PROCEDURE MousePos ( VAR PixMouseX, PixMouseY : INTEGER;
  12.                      VAR PicMouseX, PicMouseY : INTEGER;
  13.                      VAR LeftButtonPressed    : BOOLEAN;
  14.                      VAR RightButtonPressed   : BOOLEAN);
  15. (* Berücksichtigt SnapMode *)
  16.  
  17. PROCEDURE WaitForDepress(VAR x, y : INTEGER);
  18. (* Wartet auf Loslassen der linken Maustaste. Berücksichtigt SnapMode *)
  19.  
  20. PROCEDURE ChangeBox(   StartX, StartY : INTEGER;
  21.                     VAR Width, Heigth : INTEGER;
  22.                     ChangeX, ChangeY  : BOOLEAN;
  23.                     RevrsSignAllowed  : BOOLEAN;
  24.                     ChangePercentage  : BOOLEAN);
  25. (* Erlaubt das Aussehen des Rechtecks zu verändern. Die Flags geben
  26.    an, ob eine Änderung in der entsprechenden Richtung erlaubt ist *)
  27.  
  28. PROCEDURE MyGrafRubberBox(VAR StartX, StartY,
  29.                           Width, Heigth : INTEGER;
  30.                           ShowPercentage: BOOLEAN);
  31. (* Leider lä₧t sich die AESGraphics-Prozedur GrafRubberBox nicht *)
  32. (* zuverlässig aufrufen, wenn die Maus-Abfrage via die VDIInput  *)
  33. (* Prozeduren erfolgen. Erfolgen diese jedoch mit der AESGraphik *)
  34. (* Prozedur GrafMouseKeyboardState so erfolgt die Button-Selek-  *)
  35. (* tion nicht mehr richtig... Also, dann schreiben wir uns halt  *)
  36. (* eine eigene Fuktion. (Wenn jemand aus dem obigen Dilemma ei-  *)
  37. (* nen Ausweg parat hat, wäre ich für einen Hinweis dankbar.)    *)
  38.  
  39. PROCEDURE MyGrafDragBox(W, H, X, Y : INTEGER;
  40.                         VAR LastX, LastY : INTEGER);
  41. (* siehe MyGrafRubberBox *)
  42.  
  43. END OwnBoxes.
  44.