home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / radio.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  4KB  |  91 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                        GESTION DES BOUTONS RADIOS                        ║
  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_ASM,                           {*Gestion des Instructions ASM*}
  15.      ZUUL_MSE,                           {*Gestion de la Souris*}
  16.      ZUUL_TXT,                           {*Gestion du Texte*}
  17.      ZUUL_COL,                           {*Gestion des Couleurs*}
  18.      ZUUL_TOO,                           {*Gestion des Tools et Box*}
  19.      ZUUL_GAD;                           {*Gestion des Gadgets*}
  20.  
  21. {╔══════════════════════════════════════════════════════════════════════════╗
  22.  ║                         PROCEDURE PRINCIPALE                             ║
  23.  ╚══════════════════════════════════════════════════════════════════════════╝}
  24.  
  25. Procedure MAIN;
  26. Var But0,But1                :ButG;           {*Type pour Gadgets Prédéfinit*}
  27.     Rad1,Rad2,Rad3,Rad4      :Rad;            {*Type pour Boutons Radios*}
  28.     Rad5,Rad6,Rad7,Rad8      :Rad;            {*Type pour Boutons Radios*}
  29.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  30.  
  31. Begin
  32. ExitFlg:=False;
  33. ButtonG(200,10,240,False,But0,'GESTION DES BOUTONS RADIOS');   {*Titre*}
  34.  
  35. Bevel(10,55,210,130,1,7,True,True);           {*Affiche la Boite*}
  36. Bevel(330,55,540,130,1,7,True,True);          {*Affiche la Boite*}
  37.  
  38. DispG(20,65,Col7,'BOUTON AMIGA ACTIVE');      {*Affiche le Texte*}
  39. DispG(20,80,Col7,'BOUTON AMIGA DESACTIVE');
  40. DispG(20,95,Col7,'ACTIVE AVEC BOUTON CENTRE');
  41. DispG(20,110,Col7,'ACTIVE AVEC BOUTON DROIT');
  42.  
  43. DispG(340,65,Col7,'BOUTON RADIO ACTIVE');     {*Affiche le Texte*}
  44. DispG(340,80,Col7,'BOUTON RADIO DESACTIVE');
  45. DispG(340,95,Col7,'ACTIVE AVEC BOUTON CENTRE');
  46. DispG(340,110,Col7,'ACTIVE AVEC BOUTON DROIT');
  47.  
  48. ButtonG(10,15,59,False,But1,'E_XIT');         {*Initialise les Boutons*}
  49.  
  50. Radio_Box(180,63,1,True,Rad1);                {*Initialise les Boutons Radio*}
  51. Radio_Box(180,78,1,False,Rad2);
  52. Radio_Box(180,93,1,True,Rad5);                {*Initialise les Boutons Radio*}
  53. Radio_Box(180,108,1,True,Rad6);
  54.  
  55. Radio_Box(500,63,2,True,Rad3);
  56. Radio_Box(500,78,2,False,Rad4);
  57. Radio_Box(500,93,2,True,Rad7);
  58. Radio_Box(500,108,2,True,Rad8);
  59.  
  60. Repeat
  61. If GETMSG_BUT(But1,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  62.  
  63. GETMSG_RADIO(Rad1,1);                         {*Active et Teste Boutons*}
  64. GETMSG_RADIO(Rad2,1);
  65. GETMSG_RADIO(Rad5,2);                         {*Active et Teste Boutons*}
  66. GETMSG_RADIO(Rad6,3);
  67.  
  68. GETMSG_RADIO(Rad3,1);
  69. GETMSG_RADIO(Rad4,1);
  70. GETMSG_RADIO(Rad7,2);
  71. GETMSG_RADIO(Rad8,3);
  72.  
  73. Until ExitFlg=True;                           {*Sortie du Programme*}
  74. End;
  75.  
  76. {╔══════════════════════════════════════════════════════════════════════════╗
  77.  ║                           PROGRAMME PRINCIPAL                            ║
  78.  ╚══════════════════════════════════════════════════════════════════════════╝}
  79.  
  80. Begin
  81. INIT_ASM;                               {*Initialise All for Asm*}
  82. INIT_SCREEN;                            {*Initialise All for Screen*}
  83. INIT_MOUSE;                             {*Initialise All for Mouse*}
  84.  
  85. MAIN;                                   {*Execute le Programme Principal*}
  86.  
  87. DONE_MOUSE;                             {*Restore All for Mouse*}
  88. DONE_SCREEN;                            {*Restore All for Screen*}
  89. DONE_ASM;                               {*Restore All for Asm*}
  90. End.
  91.