home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / G_MOUS2A.ARJ / G_MOUSE2.TXT < prev    next >
Encoding:
Text File  |  1993-02-20  |  14.4 KB  |  368 lines
  1. *****************************************************************************
  2. *                                                                           *
  3. *                        Graphics Unit For The Mouse                        *
  4. *                                     by                                    *
  5. *                             Jean-Laurent PRADEL                           *
  6. *                                                                           *
  7. *                                 Version 2.0                               *
  8. *                                                                           *
  9. *****************************************************************************
  10.  
  11.  
  12.  
  13.                                  Introduction
  14.                                  ____________
  15.  
  16.  
  17.      When I test the TP6 for the first time, my biggest disappointment was
  18. that it was always impossible to program the mouse in graphic mode ! After few
  19. weeks, I found a small book about this under TP5. Just the time for my blood
  20. to make a turn in my body and I make my first try... At this time, I had only
  21. an old 8088 ! (Yeah, really !!!).
  22.  
  23.      Here you will find the result of my thinking and some system handing up !
  24.  
  25.      If you don't want to read immediatly all those details, you can try my
  26. demo program which could be programmed in a better way, but it is just here
  27. to show you what I did...
  28.  
  29.  
  30.                         ───────────────o───────────────
  31.  
  32.                               Types and Constants
  33.  
  34.  
  35.      In first, there is a type which is used to create the mouse pattern :
  36.  
  37.          Type MousePattern = Record
  38.                                 InsertX : word;
  39.                                 InsertY : word;
  40.                                 Pattern : Array [0..15] of String [16];
  41.                              End;
  42.  
  43.      The mouse cursor is a small pattern of 16*16 pixels. The variables
  44. InsertX and InsertY define the INSERTION POINT in this pattern; it is the
  45. point in the pattern which define the mouse position.
  46.      The array contains the shape of the cursor. For exemple, the arrow is
  47. defined by :
  48.  
  49.       Const Arrow : MousePattern = (InsertX: 2;
  50.                                     InsertY: 1;
  51.                                     Pattern: ('  0             ',
  52.                                               ' 020            ',
  53.                                               ' 0220           ',
  54.                                               ' 02220          ',
  55.                                               ' 022220         ',
  56.                                               ' 0222220        ',
  57.                                               ' 02222220       ',
  58.                                               ' 022222220      ',
  59.                                               ' 0222222220     ',
  60.                                               ' 02222222220    ',
  61.                                               ' 0222222000     ',
  62.                                               ' 02000220       ',
  63.                                               '  0  0220       ',
  64.                                               '      0220      ',
  65.                                               '      0220      ',
  66.                                               '       00       '));
  67.  
  68.      With my method, there is in the same array the mask and the shape. For
  69. that you need 4 caracters :
  70.  
  71.      - ' ' (Space Caracter) : The background will be displayed.
  72.      - '0'                  : A black point will be displayed (BkColor).
  73.      - '1'                  : A white point will be displayed (really white).
  74.      - '2'                  : The background will be displayed in the
  75.                               complementary colour.
  76.  
  77.      I know that it isn't so easy to see the difference between a 1 and a 2
  78. in the middle of others 0, 1 and 2. But it is really easy to type on the
  79. keyboard and easier to read than a set of hexadecimal codes !...
  80.  
  81.                                   ─────o─────
  82.  
  83.      I thought that it was really boring to create a complete box manager when
  84. you get my unit. So I defined an objet :
  85.  
  86.       Box = Object
  87.               MidX, MidY : Integer;
  88.               Width, Height : Integer;
  89.               COutLine, CInSide, CText : Integer;
  90.               TypText : TextSettingsType;
  91.               Text : String;
  92.               Constructor Init (x,y,w,h : Integer; co,ci,ct : Integer);
  93.               Procedure SetText (Ft, Dir, CSize : Integer; txt : String);
  94.               Procedure Bill; Virtual;
  95.               Procedure UnBill; Virtual;
  96.               Procedure Wait (b : Integer);
  97.               Procedure ChangeColor (co,ci,ct : Integer);
  98.               Procedure Move (nx,ny : Integer);
  99.               Procedure ChangeText (Ft, Dir, CSize : Integer; txt : String);
  100.               Function TestButton (Button : Integer) : Boolean;
  101.               Destructor Done; Virtual;
  102.             End;
  103.  
  104.      You can define children of this type and change the procedures Bill,
  105. UnBill and Done (they are Virtual).
  106.      The variables are used as follow :
  107.           MidX and MidY : The coordinates of the middle of the box.
  108.           Width : The width of the box (hehe!!).
  109.           Height : The height of the box (hohoho!!).
  110.           COutSide, CInSide and CText : The colors of the border, the inside
  111.                     and the text of the box.
  112.           TypText : The text parameters (direction, font, ...).
  113.           Text : The ... text in the box (Yaouhhh!!!).
  114.  
  115.      You can use this type as pointer if you don't forget the lows of the
  116. CONSTRUCTOR and the DESTRUCTOR (for this, call your knowledge...).
  117.  
  118.                                   ─────o─────
  119.  
  120.      After that, I have defined 7 constants for the codes of the buttons and
  121. 4 others for predefined cursors:
  122.  
  123.  
  124.    Left, Middle, Right, LeftMiddle, MiddleRight, LeftRight, LeftMiddleRight
  125.  
  126.                  Arrow, Target, Bomb and QuestionMark.
  127.  
  128.  
  129.      KingOfMouse is a variable which is initialized by the function TestMouse.
  130.  
  131.                         ───────────────o───────────────
  132.  
  133.                                    Procedures
  134.  
  135.  
  136.  
  137. Procedure MouseState(Var dx,dy,button:integer);
  138.  
  139.       This procedure brings you back the position of the mouse and the state
  140. of the button (see constants). dx and dy are the real coordinates between 0
  141. and 639. In CGA mode, the dx coordinate is gave in the range 0..639 (like in
  142. EGA or VGA mode).
  143.  
  144.                                   ─────o─────
  145.  
  146. Procedure ChangeMouse(Drawing:MousePattern);
  147.  
  148.       This procedure changes the mouse cursor with the variable Drawing. The
  149. type MousePattern was explained just before.
  150.  
  151.                                   ─────o─────
  152.  
  153. Procedure Show_Mouse;
  154.  
  155.       This procedure shows the mouse!!! You must be care, the same procedure
  156. exists in the Drivers unit of TurboVision, but it is called "ShowMouse" and
  157. not "Show_Mouse"!!!
  158.  
  159.                                   ─────o─────
  160.  
  161. Procedure Hide_Mouse;
  162.  
  163.       This procedure hides the mouse (yeah, really!)!!! And...? You must be
  164. care because blablabla... blabla... blablabla... "HideMouse" blablabla...
  165. "Hide_Mouse"!!!
  166.       Nevertheless, it is important to hide the mouse before drawing anything
  167. in the background, if you don't want to see some strange things on the screen.
  168.  
  169.                                   ─────o─────
  170.  
  171. Procedure PutMouse(x,y:integer);
  172.  
  173.       This procedure moves the mouse to the point (x,y). You don't need to use
  174. Hide_Mouse before this procedure (and of course to use Show_Mouse after).
  175.  
  176.                                   ─────o─────
  177.  
  178. Procedure WaitButton (Var a,b,button:integer);
  179.  
  180.       This procedure waits (!) the user clicks a button and gives you back
  181. the coordinates of the mouse at this moment and which button was used.
  182.  
  183.                                   ─────o─────
  184.  
  185. Procedure MouseLimits (x1,y1,x2,y2:integer);
  186.  
  187.       This procedure defines a box (x1,y1),(x2,y2) out of which the mouse
  188. can't go. The upper left corner has (0,0) as coordinates...
  189.  
  190.                                   ─────o─────
  191.  
  192. Procedure UnLimitMouse;
  193.  
  194.       This procedure deletes the limits made by the procedure MouseLimits.
  195.  
  196.                                   ─────o─────
  197.  
  198. Procedure LastPress (Var x,y,number,button:integer);
  199.  
  200.    This procedure gives you back some informations about the button "button" :
  201.          x : last position x of the mouse when "button" was pressed.
  202.          y :   -     -     y -   -    -    -       -     -     -   .
  203.          number : How many times the "button" has been pressed since the last
  204.                   call to this procedure.
  205.          button : How are the buttons now... (see constants).
  206.  
  207.  
  208.                                   ─────o─────
  209.  
  210. Procedure LastRelease (Var x,y,button:integer);
  211.  
  212.    This procedure gives you back some informations about the button "button".
  213. This procedure works like the procedure LastPress.
  214.  
  215.                                   ─────o─────
  216.  
  217. Procedure MouseRun (Var a,b:integer);
  218.  
  219.       This procedure gives you the moving of the mouse since the last call.
  220. Those values are in 1/200 inches (generally called 'mickey'). They are
  221. positives from left to right and from top to bottom. 
  222.  
  223.                                   ─────o─────
  224.  
  225. Procedure MouseSpeed (a,b:integer);
  226.  
  227.       This procedure is used to fixe the rate between mickeys and pixels.
  228. Those news values must be given in mickeys per 8 pixels (max. 32767).
  229. The horizontal default value is 8 and the vertical default value is 16.
  230.  
  231.                                   ─────o─────
  232.  
  233. Procedure Box (x,y,l,h,ctour,cint,ctext:word;text:String);
  234.  
  235.       This procedure has nothing to do with the mouse, but I think that it is
  236. really usefull. It draws a box, centred on (x,y), with a length of l and a
  237. height of h. The color of the border is ctour, that of the inside is cint. You
  238. can put a text in with the colour ctext.
  239.  
  240.                         ───────────────o───────────────
  241.  
  242.                                    Functions
  243.  
  244.  
  245. Function TestMouse:Boolean;
  246.  
  247.       This function is the first thing that you MUST do in your initialization
  248. procedure. This function tests the driver of the mouse.
  249.       If there is no driver, the result is False.
  250.       If there is a driver active, the result is True.
  251.       More, this function initializes the variable KindOfMouse which gives you
  252. the number of buttons on the mouse.
  253.  
  254.                                   ─────o─────
  255.  
  256. Function TestButton(x1,y1,x2,y2,button:integer):boolean;
  257.  
  258.       This function becames True if the mouse is in the box (x1,y1),(x2,y2)
  259. and the button "button" is pressed. In any other case, the function is False.
  260.  
  261.                         ───────────────o───────────────
  262.  
  263.                                    Object BOX
  264.  
  265. Constructor Box.Init (x,y,w,h : Integer; co,ci,ct : Integer);
  266.  
  267.      This procedure is the CONSTRUCTOR of the object, you MUST use it to
  268. initialize an object. This just initialize the variables MidX, MidY, Width,
  269. Height, COutSide, CInSide and CText. But it also creates the VMT...
  270.  
  271.                                   ─────o─────
  272.  
  273. Procedure Box.SetText (Ft, Dir, CSize : Integer; txt : String);
  274.  
  275.      This procedure initialize the text of the box : font, direction, size
  276. and text. If the text it's too long to fit in the box, then the width and the
  277. height are adjusted.
  278.  
  279.                                   ─────o─────
  280.  
  281. Procedure Box.Bill; Virtual;
  282.  
  283.      This procedure draws the box (...!!). It hides the mouse, draws the box
  284. with its colors, restores the currents colors (used by the rest of the
  285. program) and shows the mouse.
  286.  
  287.                                   ─────o─────
  288.  
  289. Procedure Box.UnBill; Virtual;
  290.  
  291.      This procedure undraws the box (huhu!!). Like Box.Bill, this procedure
  292. hides the mouse, restores the currents colors and shows the mouse.
  293.  
  294.                                   ─────o─────
  295.  
  296. Procedure Box.Wait (b : Integer);
  297.  
  298.      Waits that the user clicks in the box with the button 'b' (see constants)
  299.  
  300.                                   ─────o─────
  301.  
  302. Procedure Box.ChangeColor (co,ci,ct : Integer);
  303.  
  304.      Changes the values of the variables COutSide, CInSide and CText with the
  305. news values co, ci, ct and draws the "new" box.
  306.  
  307.                                   ─────o─────
  308.  
  309. Procedure Box.Move (nx,ny : Integer);
  310.  
  311.      Changes the values MidX and MidY only if the entire box it's always in
  312. the screen.
  313.  
  314.                                   ─────o─────
  315.  
  316. Procedure Box.ChangeText (Ft, Dir, CSize : Integer; txt : String);
  317.  
  318.      Changes the text, tests that the box is big enough (adjust if useful)
  319. and draws the "new" box.
  320.  
  321.                                   ─────o─────
  322.  
  323. Function Box.TestButton (Button : Integer) : Boolean;
  324.  
  325.      Returns 'True' if the 'Button' is pressed in the box. This function
  326. doesn't wait, but just make a test "in the run". Very useful to finish the
  327. loops Repeat .......... Until "the user click in box". (Really !!!)
  328.  
  329.                                   ─────o─────
  330.  
  331. Destructor Box.Done;
  332.  
  333.      The DESTRUCTOR ! It just deletes the box and cleans the VMT. It's
  334. essential to use it if you make pointers with the type Box.
  335.  
  336.                         ───────────────o───────────────
  337.  
  338.                                 That 's all !!!
  339.  
  340.  
  341.       That 's all, but not at all!!! This unit is the first thing which lives
  342. Bob (Bob is my computer) and my house (euh... my appartment). And of course,
  343. it is possible to do better (with my program and with my english !).
  344.       So, I will be very happy if you send me some echos of what happens with
  345. my unit.
  346.       I already know a "problem"... : When you run Windows, this program
  347. changes something in your driver. After that, your driver only recognizes 2
  348. buttons (even if you have a lovely mouse with 3 buttons), and my unit only
  349. sees a mouse with 2 buttons !!!.
  350.  
  351.       The bigger problem that I know is that my unit doesn't work in SVGA
  352. mode. I'm really disappointed by this !!! I don't know the solution (for the
  353. moment). If you (yes, YOU) have an idee or if you already program directly
  354. a graphic card (by using the interruption 10h), you could help me...!
  355.  
  356.  
  357.       Until May 93:                      After May 93:
  358.  
  359.       Jean-Laurent PRADEL                Jean-Laurent PRADEL
  360.       Im Sohlgraben 1A                   Ch. Piegros Sud
  361.       D-3550 MARBURG/CAPPEL              Villa Le Sapin Bleu
  362.       Germany                            83170 BRIGNOLES
  363.                                          France
  364.  
  365.       E-Mail : pidou@astro.chemie.uni-marburg.de
  366.  
  367.       Thank you and a lot of fun....................Danke und viele Spaß
  368.