home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / progress.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  4KB  |  84 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                      OBTENTION D'UN PROGRESS 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.  
  13. Program ESSAIS;                          {*Nom du Programme*}
  14.  
  15. Uses Crt,
  16.      ZUUL_MSE,                           {*Gestion de la Souris*}
  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 EXECUTE_MODULE                          ║
  26.  ╠═══════════════════════════════════════════════════════════════════════════╣
  27.  ║ IN.....: /                                                                ║
  28.  ║ OUT....: /                                                                ║
  29.  ║ EXPLAIN: Execute le Module d'écriture sur Disque, et Affiche le           ║
  30.  ║          Requester "PROGRESS BAR" qui Indique l'Etat de l'écriture.       ║
  31.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  32.  
  33. Procedure PROGRESS_PROC;
  34. Var A:Integer;
  35.     P:TProgress;
  36.     ES:String[11];
  37.  
  38. Begin
  39. A:=0;
  40.    Repeat
  41.    Str(A,ES);
  42.    PROGRESS_REQUESTG('CRUNCHING FILE ON DISK...','COMPLETED '+ES,A,12,P);
  43.    Delay(15);
  44.    Inc(A);
  45.    Until (P.Abort=True) Or (A>100);
  46. End;
  47.  
  48. {╔═══════════════════════════════════════════════════════════════════════════╗
  49.  ║                          PROCEDURE PRINCIPALE                             ║
  50.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  51.  
  52. Procedure MAIN;
  53. Var But0,But1,But2:ButG;                      {*Type pour Gadgets Prédéfinit*}
  54.     Exit_Flg:Boolean;
  55.  
  56. Begin
  57. ButtonG(200,10,240,False,But0,'OBTENTION D''UN PROGRESS REQUESTER'); {*Titre*}
  58. ButtonG(10,15,59,False,But1,'E_XIT');         {*Initialise les Boutons*}
  59. ButtonG(10,35,120,False,But2,'_PROGRESS REQUESTER');
  60. Exit_Flg:=False;                              {*Don't Forget !!!*}
  61.  
  62. Repeat
  63. If GETMSG_BUT(But1,1)=True Then Exit_Flg:=True;
  64. If GETMSG_BUT(But2,1)=True Then PROGRESS_PROC;{*Requester Progress*}
  65. Until Exit_Flg=True;                          {*Sortie du Programme*}
  66.  
  67. End;
  68.  
  69. {╔═══════════════════════════════════════════════════════════════════════════╗
  70.  ║                            PROGRAMME PRINCIPAL                            ║
  71.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  72.  
  73. Begin
  74. INIT_ASM;                               {*Initialise All for Asm*}
  75. INIT_SCREEN;                            {*Initialise All for Screen*}
  76. INIT_MOUSE;                             {*Initialise All for Mouse*}
  77.  
  78. MAIN;                                   {*Execute le Programme Principal*}
  79.  
  80. DONE_MOUSE;                             {*Restore All for Mouse*}
  81. DONE_SCREEN;                            {*Restore All for Screen*}
  82. DONE_ASM;                               {*Restore All for Asm*}
  83. End.
  84.