home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / txt_src / st_requ.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  3KB  |  58 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║          EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE TEXTE        ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                  OBTENTION D'UN REQUESTER DE TYPE "ST"                   ║
  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.      REP:String;                                {*Phrase entrée pour le Req*}
  26.      X0,Y0:Word;                                {*Save Pos Curseur for Resto*}
  27.  
  28. Begin
  29. X0:=WhereX; Y0:=WhereY;                         {*Capture Position du Curseur*}
  30. REP:='Modifiez-moi';                            {*Phrase de base*}
  31.  
  32. ST_REQUEST('Voici un "ST_Requester" (ou "String Requester")|'+
  33.            'Vous pouvez entrer une ligne de texte qui sera renvoyée|'+
  34.            'au programme principal.||'+
  35.            'Allez-y ...|',
  36.            'VALIDER|ANNULER|',REP,NUM,30,True);{*Appel ST_Requester*}
  37.  
  38. Gotoxy(X0,Y0); TC(7); BGC(0);                  {*Affichage de l'entrée*}
  39. If NUM=1 Then Writeln('Vous avez entré: ',REP)
  40.          Else Writeln('Vous avez annuler l''entrée.');
  41. End;
  42.  
  43. {╔═══════════════════════════════════════════════════════════════════════════╗
  44.  ║                            PROGRAMME PRINCIPAL                            ║
  45.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  46.  
  47. Begin
  48. CursOff;                                        {*Cache le Curseur*}
  49. ShowMouse;                                      {*Affiche la Souris*}
  50. ExtendedCols;                                   {*Passe en Couleurs Etendues*}
  51.  
  52. MAIN;                                           {*Procedure Principale*}
  53.  
  54. NormalCols;                                     {*Passe en Couleurs Normales*}
  55. HideMouse;                                      {*Planque la Souris*}
  56. CursOn;                                         {*Affiche le Curseur*}
  57. End.
  58.