home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / pointers.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-22  |  3KB  |  57 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                      MODIFICATION DU POINTEUR SOURIS                     ║
  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 ZUUL_MSE,                           {*Gestion de la Souris*}
  15.      ZUUL_ASM,                           {*Gestion de l'ASM*}
  16.      ZUUL_GAD;                           {*Gestion des Gadgets*}
  17.  
  18. {╔══════════════════════════════════════════════════════════════════════════╗
  19.  ║                         PROCEDURE PRINCIPALE                             ║
  20.  ╚══════════════════════════════════════════════════════════════════════════╝}
  21.  
  22. Procedure MAIN;
  23. Var But0,But1                :ButG;           {*Type pour Gadgets Prédéfinit*}
  24.     C0                       :ButG;           {*Gadget Cycler*}
  25.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  26.  
  27. Begin
  28. ExitFlg:=False;
  29. ButtonG(200,10,240,False,But0,'MODIFICATION DU POINTEUR SOURIS'); {*Titre*}
  30. ButtonG(10,15,59,False,But1,'E_XIT');          {*Initialise les Boutons*}
  31. Cycler_But(10,35,90,1,C0,'   FLECHE|   OCCUPE|    MAIN|   TEXTE|   CIBLE| DEPLACEMENT|');
  32.  
  33. Repeat
  34. If GETMSG_BUT(But1,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  35.  
  36. If GETMSG_BUT(C0,1)=True Then                 {*Bouton Cycler Activé ?*}
  37.    SET_POINTER(C0.CyclVal);                   {*Modification du Pointeur*}
  38.  
  39. Until ExitFlg=True;                           {*Sortie du Programme*}
  40. End;
  41.  
  42. {╔═══════════════════════════════════════════════════════════════════════════╗
  43.  ║                            PROGRAMME PRINCIPAL                            ║
  44.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  45.  
  46. Begin
  47. INIT_ASM;                               {*Initialise All for Asm*}
  48. INIT_SCREEN;                            {*Initialise All for Screen*}
  49. INIT_MOUSE;                             {*Initialise All for Mouse*}
  50.  
  51. MAIN;                                   {*Execute le Programme Principal*}
  52.  
  53. DONE_MOUSE;                             {*Restore All for Mouse*}
  54. DONE_SCREEN;                            {*Restore All for Screen*}
  55. DONE_ASM;                               {*Restore All for Asm*}
  56. End.
  57.