← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to docs/mmouseex/mouse10.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
docs/mmouseex/mouse10.pp
1
 
Uses MsMouse, Crt;
2
 
 
3
 
Var hor, vert: Longint;
4
 
    x, y: Longint;
5
 
 
6
 
Begin
7
 
  If MouseFound Then
8
 
    Begin
9
 
      ClrScr;
10
 
      Writeln('Click any button to quit after you''ve entered a sequence of numbers.');
11
 
      Writeln;
12
 
      Writeln('Horizontal mickey''s per pixel:');
13
 
      Writeln('Vertical mickey''s per pixel:');
14
 
      ShowMouse;
15
 
      Repeat
16
 
        GotoXY(32,3);
17
 
        ClrEol;
18
 
        Readln(hor);
19
 
        GotoXY(30,4);
20
 
        ClrEol;
21
 
        Readln(vert);
22
 
        SetMouseSpeed(hor, vert);
23
 
      Until (GetLastButtonPress(LButton,x,y) <> 0) Or
24
 
            (GetLastButtonPress(RButton,x,y) <> 0) Or
25
 
            (GetLastButtonPress(MButton,x,y) <> 0);
26
 
    End
27
 
End.
28