home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / memory.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-17  |  3KB  |  61 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                   OBTENTION D'UN REQUESTER MEMORY INFO                   ║
  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.  
  13. Program ESSAIS;                          {*Nom du Programme*}
  14.  
  15. Uses ZUUL_MSE,                           {*Gestion de la Souris*}
  16.      ZUUL_BAS,                           {*Gestion des Variables*}
  17.      ZUUL_TXT,                           {*Gestion du Texte*}
  18.      ZUUL_ASM,                           {*Gestion de l'ASM*}
  19.      ZUUL_COL,                           {*Gestion des Couleurs*}
  20.      ZUUL_TOO,                           {*Gestion des Tools et Box*}
  21.      ZUUL_GAD,                           {*Gestion des Gadgets*}
  22.      ZUUL_REQ;                           {*Gestion des Requesters*}
  23.  
  24. {╔══════════════════════════════════════════════════════════════════════════╗
  25.  ║                         PROCEDURE PRINCIPALE                             ║
  26.  ╚══════════════════════════════════════════════════════════════════════════╝}
  27.  
  28. Procedure MAIN;
  29. Var But0,But1                :ButG;           {*Type Gadgets Buttons*}
  30.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  31.  
  32. Begin
  33. ButtonG(180,10,280,False,But0,'OBTENTION D''UN REQUESTER MEMORY INFO');
  34. ButtonG(15,30,059,False,But0,'E_XIT');        {*Initialise les Boutons*}
  35. ButtonG(15,50,100,False,But1,'_MEMORY INFO');
  36. ExitFlg:=False;                               {*Don't Forget !!!*}
  37.  
  38. Repeat
  39. If GETMSG_BUT(But0,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  40. If GETMSG_BUT(But1,1)=True Then               {*Requester Memory*}
  41.    MEMORY_REQUESTG(100,70,'THIS IS YOUR MEMORY CONFIGURATION');
  42.  
  43. Until ExitFlg=True;                           {*Sortie du Programme*}
  44. End;
  45.  
  46. {╔══════════════════════════════════════════════════════════════════════════╗
  47.  ║                           PROGRAMME PRINCIPAL                            ║
  48.  ╚══════════════════════════════════════════════════════════════════════════╝}
  49.  
  50. Begin
  51. INIT_ASM;                               {*Initialise All for Asm*}
  52. INIT_SCREEN;                            {*Initialise All for Screen*}
  53. INIT_MOUSE;                             {*Initialise All for Mouse*}
  54.  
  55. MAIN;                                   {*Execute le Programme Principal*}
  56.  
  57. DONE_MOUSE;                             {*Restore All for Mouse*}
  58. DONE_SCREEN;                            {*Restore All for Screen*}
  59. DONE_ASM;                               {*Restore All for Asm*}
  60. End.
  61.