home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / ez_reque.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-17  |  4KB  |  88 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                      OBTENTION D'UN EZ_REQUESTER                         ║
  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 ESSAIS;                          {*Nom du Programme*}
  13.  
  14. Uses
  15.      ZUUL_MSE,                           {*Gestion de la Souris*}
  16.      ZUUL_ASM,
  17.      ZUUL_TXT,                           {*Gestion du Texte*}
  18.      ZUUL_COL,                           {*Gestion des Couleurs*}
  19.      ZUUL_TOO,                           {*Gestion des Tools et Box*}
  20.      ZUUL_GAD,                           {*Gestion des Gadgets*}
  21.      ZUUL_REQ;                           {*Gestion des Requesters*}
  22.  
  23. {╔══════════════════════════════════════════════════════════════════════════╗
  24.  ║                         PROCEDURE PRINCIPALE                             ║
  25.  ╚══════════════════════════════════════════════════════════════════════════╝}
  26.  
  27. Procedure MAIN;
  28. Var But0,But1,But2,But3,But4 :ButG;           {*Type pour Gadgets Prédéfinit*}
  29.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  30.     NUM                      :Integer;        {*Numéro de Gadget Cliqué*}
  31.     ES                       :String;
  32.  
  33. Begin
  34. ExitFlg:=False;
  35. ButtonG(200,10,240,False,But0,'OBTENTION D''UN EZ REQUESTER'); {*Titre*}
  36. ButtonG(10,15,59,False,But1,'E_XIT');         {*Initialise les Boutons*}
  37. ButtonG(10,35,89,False,But2,'EZ REQUEST 1');
  38. ButtonG(10,55,89,False,But3,'EZ REQUEST 2');
  39. ButtonG(10,75,89,False,But4,'EZ REQUEST 3');
  40. Bevel(10,105,210,125,1,Col7,True,True);       {*Affiche la Boite*}
  41. DispG(20,110,Col7,'NUMERO DU GADGET CLIQUE .....');
  42.  
  43. Repeat
  44. If GETMSG_BUT(But1,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  45.  
  46. If GETMSG_BUT(But2,1)=True Then Begin         {*EZ Requester*}
  47.    EZ_REQUESTG('AFFICHEZ VOTRE TITRE ICI'
  48.    ,'PREMIER TEST EN GRAPHIQUE DU EZ REQUESTER||CLIQUEZ SUR UN GADGET|AU CHOIX|'
  49.    ,'1|2|3|4|5|6|7|8|9|10|',NUM);
  50.    Str(NUM,ES); DispG(188,110,Col7,ES+' ');   {*Display Gadget Number*}
  51.    End;
  52.  
  53. If GETMSG_BUT(But3,1)=True Then Begin         {*EZ Requester*}
  54.    EZ_REQUESTG('QUELQUES EXPLICATIONS'
  55.    ,'VOUS POUVEZ DEFINIR JUSQU''A 10 GADGETS DIFFERENTS||'
  56.    +'ILS SERONT CENTRES AUTOMATIQUEMENT|'
  57.    +'LA TAILLE DE LA FENETRE EST DEFINIE EN FONCTION...|'
  58.    +'DE LA TAILLE DU TITRE, DE CELLE DU TEXTE ET DES GADGETS||'
  59.    +'LE TEXTE DES GADGETS EST REDEFINISSABLE. VOYEZ VOUS-MEME...|'
  60.    ,'_CANCEL|_RETRY|_ABORT|_HELP|_EXPLAIN|C_ONTINUE|CLICK _ME|_FACILE NON ?|',NUM);
  61.    Str(NUM,ES); DispG(188,110,Col7,ES+' ');   {*Display Gadget Number*}
  62.    End;
  63.  
  64. If GetMsg_But(But4,1)=True Then Begin         {*EZ Requester*}
  65.    EZ_REQUESTG('LA TAILLE MAXIMALE DU REQUESTER EST LIMITEE PAR L''ECRAN'
  66.    ,'LE TEXTE EST AUTOMATIQUEMENT|CENTRE|','_OK I UNDERSTANT !|_WHAT ???|_I KNOW !|',NUM);
  67.    Str(NUM,ES); DispG(188,110,Col7,ES+' ');   {*Display Gadget Number*}
  68.    End;
  69.  
  70. Until ExitFlg=True;                           {*Sortie du Programme*}
  71. End;
  72.  
  73. {╔══════════════════════════════════════════════════════════════════════════╗
  74.  ║                           PROGRAMME PRINCIPAL                            ║
  75.  ╚══════════════════════════════════════════════════════════════════════════╝}
  76.  
  77. Begin
  78. INIT_ASM;                               {*Initialise All for Asm*}
  79. INIT_SCREEN;                            {*Initialise All for Screen*}
  80. INIT_MOUSE;                             {*Initialise All for Mouse*}
  81.  
  82. MAIN;                                   {*Procedure Principale*}
  83.  
  84. DONE_MOUSE;                             {*Restore All for Mouse*}
  85. DONE_SCREEN;                            {*Restore All for Screen*}
  86. DONE_ASM;                               {*Restore All for Asm*}
  87. End.
  88.