home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / ugsouris / devents1.pas < prev    next >
Pascal/Delphi Source File  |  1994-06-03  |  3KB  |  84 lines
  1. Program EventDemo1;
  2.  
  3. Uses Crt, Events, Ustr;
  4.  
  5. PROCEDURE Pause;
  6. Var Ch:Char;
  7. Begin
  8.   Repeat Until keypressed or LeftButtonPress;
  9.   If keypressed then Ch := ReadKey;
  10.   If Ch=#0 then Ch := ReadKey;
  11. End;
  12.  
  13. Begin
  14.   ClrScr;
  15.   TextAttr := 15;
  16.   Writeln('Démonstration de l''unité EVENTS.TPU. Par BOLATRE Jean-Philippe');
  17.   Window(1,2,80,25);
  18.   Writeln;
  19.  
  20.   If not InitMouse then
  21.   begin
  22.     TextAttr := 12;
  23.     Writeln('Souris absente ! ou driver non installé');
  24.     halt;
  25.   End;
  26.  
  27.   WriteLn('La procédure UpdateInfo met à jour la variable info en exécutant les procédures');
  28.   Write('suivantes : ');
  29.   TextAttr:=11;
  30.   WriteLn(          'GetLanguage, GetINIFilePath, GetMouseType, GetGeneralInformation,');
  31.   WriteLn('GetCursorInfo, GetMaxBound, GetCursorHotSpot, GetMouseArea, GetMouseSensitivity');
  32.   WriteLn('GetMasks, GetMousePage, GetAccelerationProfiles et IsTrackBall.');
  33.   TextAttr:=15;
  34.   WriteLn;
  35.   WriteLn('On obtient alors les informations suivantes :');
  36.   WriteLn;
  37.   TextAttr := 7;
  38.   UpDateInfo;
  39.   With Info^ Do
  40.   Begin
  41.     Writeln('Nombre de boutons           : ',NbButtonStr);
  42.     Writeln('Language du driver          : ',LanguageStr);
  43.     Writeln('N° version du driver        : ',DriverVersionStr);
  44.     Writeln('Type de souris              : ',MouseTypeStr);
  45.     Writeln('Interruption                : ',IRQStr);
  46.     Writeln('Type de driver              : ',DriverType);
  47.     Writeln('Type de curseur             : ',CursorTypeStr);
  48.     Writeln('Taux de rafraichissement    : ',InterruptRateStr);
  49.     Writeln('Nombre de MDD               : ',NbMDDStr);
  50.     Writeln('Chemin du fichier MOUSE.INI : ',INIFilePath);
  51.     Writeln('Page active : ',ActivePage);
  52.     Writeln('X max : ',MaxX,' - Y max : ',MaxY);
  53.     Writeln('Hot spot x : ',HSX,' - Hot spot y : ',HSY);
  54.     Writeln('Zone de déplacement : ',Zx1,',',Zy1,',',Zx2,',',Zy2);
  55.     Writeln;
  56.     TextAttr := 10;
  57.     Write('Appuyer sur une touche ou cliquez pour voir la suite.');
  58.     TextAttr := 7;
  59.     ShowMouse;
  60.     Pause;
  61.     WriteLn;
  62.     HideMouse;
  63.     WriteLn;
  64.     Writeln('Sensibilité en X : ',XSen,' - en Y : ',YSen);
  65.     Writeln('Seuil de doublement de vitesse : ',DST);
  66.     Writeln('Masque d''écran : ',screenstr,' - Masque de curseur : ',cursorstr);
  67.     Write(  'TrackBall détecté                  : ');
  68.     If TrackBall then Writeln('OUI') else Writeln('NON');
  69.     WriteLn('Style du curseur                   : ',CurStyle);
  70.     Writeln('Taille du curseur                  : ',CurSize);
  71.     Writeln('Seuil de changement du curseur     : ',CurTreshold);
  72.     WriteLn('Changement de la taille du curseur : ',CurFlag);
  73.     Writeln('Delai du curseur                   : ',CurDelay);
  74.     Writeln('Courbe d''accélération              : ',Acc);
  75.     Writeln('Fonction actives                   : $',int2hex(GetActiveFunctions));
  76.   End;
  77.   TextAttr := 10;
  78.   Writeln;
  79.   Write('Appuyer sur une touche ou cliquez pour Quitter.');
  80.   TextAttr := 7;
  81.   ShowMouse;
  82.   Pause;
  83.   WriteLn;
  84. End.