home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / txt_src / ez_requ.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  3KB  |  60 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║          EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE TEXTE        ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                  OBTENTION D'UN REQUESTER DE TYPE "EZ"                   ║
  5.  ╠══════════════════════════════════════════════════════════════════════════╣
  6.  ║ Coded by Zuul as BouFFtou as Cheveau Frédéric.                           ║
  7.  ║ Programmé à l'IUT de Montpellier sur Turbo Pascal V7.00.                 ║
  8.  ║ Contact us on 36.14 RTEL1 - Bal "BouFFtou" or Bal "ICF".                 ║
  9.  ╚══════════════════════════════════════════════════════════════════════════╝}
  10.  
  11. {$M 64000,0,365520}                     {*Stack and Heap*}
  12. Program EXEMPLE;
  13.  
  14. Uses Crt,
  15.      ZUUL_MSE,                          {*Unités Nécessaires*}
  16.      ZUUL_COL,
  17.      ZUUL_REQ;
  18.  
  19. {╔═══════════════════════════════════════════════════════════════════════════╗
  20.  ║                           PROCEDURE PRINCIPALE                            ║
  21.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  22.  
  23. Procedure MAIN;
  24. Var  NUM:ShortInt;                              {*Numéro Gadget Sélectionné*}
  25.      X0,Y0:Word;                                {*Save Pos Curseur for Resto*}
  26.  
  27. Begin
  28. X0:=WhereX; Y0:=WhereY;                         {*Capture Position du Curseur*}
  29.  
  30. EZ_REQUEST('Voici un "EZ_Requester"||'+
  31.            'Vous pouvez afficher plusieurs lignes de texte.|'+
  32.            'Elles sont centrée automatiquement.|'+
  33.            'Ainsi que des boutons poussoirs (Maximum 10)|',
  34.            'OK|J''AI COMPRIS|',NUM,True);       {*Appel EZ_Requester*}
  35.  
  36. EZ_REQUEST('|Il rafraichit automatiquement son fond d''écran,|'+
  37.            'et renvoit le numéro du bouton préssé.||'+
  38.            'Vous pouvez disposer ou non du gadget de fermeture de la fenêtre.|'+
  39.            'Vous êtes limités à 255 caractères pour tout le requester.|',
  40.            'C''EST NOTE|CA ROULE|DAC !!!|VAS-Y APPUIE|',NUM,True);                   {*Appel EZ_Requester*}
  41.  
  42. Gotoxy(X0,Y0);
  43. End;
  44.  
  45. {╔═══════════════════════════════════════════════════════════════════════════╗
  46.  ║                            PROGRAMME PRINCIPAL                            ║
  47.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  48.  
  49. Begin
  50. CursOff;                                        {*Cache le Curseur*}
  51. ShowMouse;                                      {*Affiche la Souris*}
  52. ExtendedCols;                                   {*Passe en Couleurs Etendues*}
  53.  
  54. MAIN;                                           {*Procedure Principale*}
  55.  
  56. NormalCols;                                     {*Passe en Couleurs Normales*}
  57. HideMouse;                                      {*Planque la Souris*}
  58. CursOn;                                         {*Affiche le Curseur*}
  59. End.
  60.