home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / DOS_GUI.ZIP / DEMO.C < prev    next >
C/C++ Source or Header  |  1994-01-11  |  27KB  |  921 lines
  1. /*--------------------------------------------------------------------------*/
  2. /* Copyright Plain Design Inc 1992,1993                                     */
  3. /*--------------------------------------------------------------------------*/
  4. /* Plain Design's Example program for the menu system  ; every available    */
  5. /* function has been demonstrated in this example.  Descriptions are        */
  6. /* available under the help facilities                                      */
  7. /* This is a shareware program; you may use this library to creat any       */
  8. /* program's free of charge.                                                */
  9. /*                                                                          */
  10. /*                                                                          */
  11. /*  Source Code price $29.00                                                */
  12. /*                                                                          */
  13. /*  Send inquiries to       :    Plain Design Inc.                          */
  14. /*                                                                          */
  15. /*                                                                          */
  16. /*                                                                          */
  17. /*                                                                          */
  18. /*                                                                          */
  19. /*--------------------------------------------------------------------------*/
  20. #include "gui.h"               /* required for use of the GR_MENU library   */
  21. #include "string.h"
  22. #include "stdio.h"
  23. #include "time.h"
  24. #include "dos.h"
  25. /*--------------------------------------------------------------------------*/
  26. /*                               PROTO TYPES                                */
  27. /*--------------------------------------------------------------------------*/
  28. int  show_window(int ,int ,int ,int ,char *,int );
  29. void one_button(char *,int ,int ,int ,int);
  30. void about(void);
  31. void ctxt(int ,char *,int );
  32. void alternate_menu_colors(void);
  33. void scroll_down_menu(void);
  34. void one_text_field(void);
  35. void five_text_fields(void);
  36. void one_binary_field(void);
  37. void five_binary_fields(void);
  38. void percent_bar(void);
  39. void scroll_bar_function(void);
  40. /*--------------------------------------------------------------------------*/
  41. /*                               Definitions                                */
  42. /*--------------------------------------------------------------------------*/
  43. #define TEST -10000
  44.  
  45. /*--------------------------------------------------------------------------*/
  46.  
  47. /*-------------------------------*/
  48. /* FOR Borland   C COMPILER      */
  49. /*-------------------------------*/
  50. #ifdef BC
  51. extern unsigned _stklen=15000u;
  52. #endif
  53. /*-------------------------------*/
  54.  
  55.  
  56. void main(void)
  57. {
  58.   int  message;
  59.   int  break_loop=NO; // used to break out of a loop from a switch statement
  60.   int  h=-1;  // button handle
  61.   char button_string[20];
  62.   /*-----------------------------------------------------------*/
  63.   /* This library is designed for VGA 640X480X16 color display */
  64.   /* Mode must be changed to that first                        */
  65.   /*-----------------------------------------------------------*/
  66.   set_video_mode(18);
  67.   
  68.   /*--------------------------------------------------*/
  69.   /* to use this library you must initialize it first */
  70.   /*--------------------------------------------------*/
  71.   initdisplay();
  72.  
  73.   /*--------------------------------------------------*/
  74.   /* turn the mouse cursor on ;  this is important    */
  75.   /*--------------------------------------------------*/
  76.   show_mouse_cursor();
  77.  
  78.   /*---------------------------*/
  79.   /* paint the background gray */
  80.   /*---------------------------*/
  81.   gfillrect(0,0,639,479,8);
  82.  
  83.   /*--------------------------------------------------------------*/
  84.   /* to place a pull down menu, a menu file must be created first */
  85.   /* example 'MENUFILE' contains the format of this file          */
  86.   /* after creating it you must initialize it                     */
  87.   /*--------------------------------------------------------------*/
  88.   ch_menu_x(1);      /* default starts the menu bar at location 0 */
  89.   bar_menu(INIT);
  90.  
  91.   /*-----------------------------------------------------------*/
  92.   /* show the about dialog box in the beginning of the program */
  93.   /*-----------------------------------------------------------*/
  94.   about();
  95.  
  96.   /*-------------------------------------------------------------------*/
  97.   /* barmenu function will return the messages from the pull down menu */
  98.   /* and the keyboard; when pull down menu is invoked, barmenu takes   */
  99.   /* over the program.                                                 */
  100.   /*-------------------------------------------------------------------*/
  101.   while(1)      /* program's main message loop */
  102.   {
  103.     message=bar_menu(KEY_RETURN);
  104.     if(h!=-1)
  105.     {
  106.       message=check_button(message);
  107.     }
  108.  
  109.     switch(message)
  110.     {
  111.       case ESC:          /* exit the program */
  112.        break_loop=YES;
  113.        break;
  114. /*--------------------------------------------------------------------------*/
  115.       case 4005:   /* alternate menu colors    */
  116.        alternate_menu_colors();
  117.        break;
  118. /*--------------------------------------------------------------------------*/
  119.       case 4010:   /* Drawing a line           */
  120.        gr_line(20,20,300,300,4);
  121.        break;
  122. /*--------------------------------------------------------------------------*/
  123.       case 4020:   /* drawing an ellipse       */
  124.        ELLIPSE(320,200,50,70,3);
  125.        break;
  126. /*--------------------------------------------------------------------------*/
  127.       case 4030:   /* text mode rectangle      */
  128.        rect(10,10,20,20,0x4F);
  129.        break;
  130. /*--------------------------------------------------------------------------*/
  131.       case 4040:   /* graphics mode rectangle  */
  132.        grect(300,300,350,350,12);
  133.        break;
  134. /*--------------------------------------------------------------------------*/
  135.       case 4050:   /* text mode frect          */
  136.        frect(20,20,25,25,0x24,0);
  137.        break;
  138. /*--------------------------------------------------------------------------*/
  139.       case 4060:   /* graphics mode frect      */
  140.        gfillrect(220,220,320,330,13);
  141.        break;
  142. /*--------------------------------------------------------------------------*/
  143.       case 4070:   /* text write character     */
  144.        writechar(30,20,'X',0x24);
  145.        break;
  146. /*--------------------------------------------------------------------------*/
  147.       case 4080:   /* text write string        */
  148.        pls(30,21,"Text Write String",0x42);
  149.        break;
  150. /*--------------------------------------------------------------------------*/
  151.       case 4090:   /* graphics write character */
  152.        gwritechar(240,352,'Y',0x52);
  153.        break;
  154. /*--------------------------------------------------------------------------*/
  155.       case 4100:   /* graphics write string    */
  156.        gpls(240,368,"graphics write string",0x72);
  157.        break;
  158. /*--------------------------------------------------------------------------*/
  159.       case 4200:   /* scroll down menu         */
  160.        scroll_down_menu();
  161.        break;
  162. /*--------------------------------------------------------------------------*/
  163.       case 4210:   /* place 'test button       */
  164.        if(h!=-1)break; /* button is already placed */
  165.        strcpy(button_string,"^Test Button");
  166.        h=draw_button(button_string,65,28,strlen(button_string)*8+12,23,TEST,ALTT); /* show button */
  167.        break;
  168. /*--------------------------------------------------------------------------*/
  169.       case 4220:   /* remove 'test' button     */
  170.        if(h==-1) break;   /* cannot remove a button that does not exist */
  171.        disable_button2(h,8); /* disable_button2 will paint background to 8 */
  172.        h=-1;
  173.        break;
  174. /*--------------------------------------------------------------------------*/
  175.       case 4230:   /* place 1 text field       */
  176.        one_text_field();
  177.        break;
  178. /*--------------------------------------------------------------------------*/
  179.       case 4240:   /* place 3 text fields      */
  180.        five_text_fields();
  181.        break;
  182. /*--------------------------------------------------------------------------*/
  183.       case 4250:   /* place 1 binary field     */
  184.        one_binary_field();
  185.        break;
  186. /*--------------------------------------------------------------------------*/
  187.       case 4260:   /* place 3 binary fields    */
  188.        five_binary_fields();
  189.        break;
  190. /*--------------------------------------------------------------------------*/
  191.       case 4280:   /* percent display function */
  192.        percent_bar();
  193.        break;
  194. /*--------------------------------------------------------------------------*/
  195.       case 4290:   /* scroll bar function      */
  196.        scroll_bar_function();
  197.        break;
  198. /*--------------------------------------------------------------------------*/
  199.       case 4500:
  200.        help("Plain Design GUI Example Help","HELPFILE","How to Order Source Code"); 
  201.        break;
  202. /*--------------------------------------------------------------------------*/
  203.       case 5010:   /* help contents is invoked */
  204.        help("Plain Design GUI Example Help","HELPFILE","contents"); 
  205.        break;
  206. /*--------------------------------------------------------------------------*/
  207.       case 5020:   /* help on help  is invoked */
  208.        help("Plain Design GUI Example Help","HELPFILE","Help on Help"); 
  209.        break;
  210. /*--------------------------------------------------------------------------*/
  211.       case 5030:   /* about function */
  212.        about();
  213.        break;
  214. /*--------------------------------------------------------------------------*/
  215.       case TEST:
  216.        if(h==-1)break;
  217.        printf("\a");
  218.        pls(0,29,"Test Button was pressed",0x4F);
  219.        break;
  220.     }
  221.     if(break_loop==YES)break;
  222.   }
  223.  
  224.  
  225.   set_video_mode(3);   /* switch the video mode when done */
  226. }
  227. /*--------------------------------------------------------------------------*/
  228. void about(void)
  229. {
  230.   show_window(15,5,50,19,"About Demo",ON);
  231.  
  232.   ctxt(9,"GUI Library example program",0xF4);
  233.   ctxt(12,"Copyright Plain Design Inc.",0xF0);
  234.   ctxt(13,"1992 - 1994",0xF0);
  235.   ctxt(15,"GUI for DOS ",0xF8);
  236.   ctxt(16,"for C compilers  Borland,Microsoft,Powerc",0xF8);
  237.   ctxt(17,"This program demonstrates the capabilities of",0xF8);
  238.   ctxt(18,"Plain Design's GUI library tool kit",0xF8);
  239.  
  240.  
  241.   one_button("  OK  " ,36,21,ENTER,ESC);
  242.   show_window(15,10,50,15,"",OFF);
  243. }
  244. /*--------------------------------------------------------------------------*/
  245. /*                               show_window                                */
  246. /* x,y,xsize,ysize variables are in text mode ranges : 0 <=x<=79  0<=y<=29  */
  247. /* xsize and ysize are also in the same ranges.                             */
  248. /* each text block is 8*16 pixels.                                          */
  249. /* sw should be set to ON to display window and  OFF to remove it           */
  250. /*--------------------------------------------------------------------------*/
  251. int show_window(int x,int y,int xsize,int ysize,char *title,int sw)
  252. { 
  253.   static int wh;
  254.   int        i;
  255.  
  256.   switch(sw)
  257.   {    
  258.     case ON:
  259.      wh=messagebox(x,y,xsize,ysize,0xF0,0x08,YES);
  260.      grect(x*8+1,y*16+1,(x+xsize)*8-2,(y+ysize)*16-1,0);
  261.  
  262.      for(i=1;i<=5;i++)
  263.      {
  264.        grect(x*8+1+i,y*16+1+i,(x+xsize)*8-2-i,(y+ysize)*16-1-i,1);
  265.      }
  266.  
  267.      gfillrect(x*8+8,y*16+8,(x+xsize)*8-9,y*16+27,1);
  268.  
  269.      gpls( (x+(xsize/2)-strlen(title)/2)*8,(y+1)*16-5,title,0x1F);
  270.  
  271.      break;
  272.     case OFF:
  273.      destroy_messagebox(wh);
  274.      if(wh>0)wh--;
  275.      break;
  276.   }
  277.  
  278.   return wh;
  279. }
  280. /*--------------------------------------------------------------------------*/
  281. /* display button at x,y named 'string' activate button when key is pressed */
  282. /*--------------------------------------------------------------------------*/
  283. void one_button(char *string,int x,int y,int key,int acc)
  284. {
  285.  
  286.   int h;
  287.   int j,i;
  288.  
  289.   deactivate_activebuttons(); /* disable all other buttons */
  290.  
  291.   h=draw_button(string,x,y,strlen(string)*8+14,23,key,acc); /* show button */
  292.  
  293.   while(1)
  294.   {
  295.     j=getkey();
  296.     i=check_button(j);
  297.     gcurs(MOVE);
  298.  
  299.     if(i==key)break;
  300.   }
  301.  
  302.   disable_button(h);    /* remove button */
  303.  
  304.   reactivate_activebuttons();  /* reactivate all other buttons */
  305.  
  306. }
  307. /*--------------------------------------------------------------------------*/
  308. /* write text centered on the screen                                        */
  309. /*--------------------------------------------------------------------------*/
  310. void ctxt(int y,char *string,int color)
  311. {
  312.   gpls(320-strlen(string)*4,y*16,string,color);
  313. }
  314. /*--------------------------------------------------------------------------*/
  315. /* change the pull down menu colors                                         */
  316. /*--------------------------------------------------------------------------*/
  317. void alternate_menu_colors(void)
  318. {
  319.   bg_menu_color(BK_CYAN);              /* menu background to CYAN          */
  320.   fg_menu_color(FG_BLACK);             /* menu  forground to Black         */
  321.   bg_menu_hotkey_color(BK_CYAN);       /* Hotkey Back to CYAN              */
  322.   fg_menu_hotkey_color(FG_WHITE);      /* Hotkey Forground to Whit         */
  323.   bg_menu_sel_color(BK_BLUE);          /* Selected menu back to BLUE       */
  324.   fg_menu_sel_color(FG_BRIGHT_WHITE);  /* Selected menu forground to white */
  325.   bar_menu(DISPLAY);
  326. }
  327. /*--------------------------------------------------------------------------*/
  328. /* demonstrate a scroll down menu                                           */
  329. /*--------------------------------------------------------------------------*/
  330. void scroll_down_menu(void)
  331. {
  332.   char menu[20][40] ;        /* menu array                */
  333.   char buffer[30];
  334.   int  menu_ptr=4;
  335.  
  336.  
  337.   strcpy(menu[0]," Menu Entry Zero ");
  338.   strcpy(menu[1]," Menu Entry One ");
  339.   strcpy(menu[2]," Menu Entry Two   ");
  340.   strcpy(menu[3]," Menu Entry Three");
  341.   strcpy(menu[4]," Exit ");
  342.   
  343.   show_window(15,10,50,15,"Scroll Down Menu Demo",ON);
  344.  
  345.   while( (menu_ptr=menus(menu,5,20,13,0xF4,0x4F,menu_ptr,-1)) !=4)
  346.   {
  347.     if(menu_ptr < 0)continue;
  348.  
  349.     sprintf(buffer,"Menu item %d was selected   ",menu_ptr);
  350.     pls(16,22,buffer,0x2F);
  351.   }
  352.   show_window(15,10,50,15,"",OFF);
  353. }
  354. /*--------------------------------------------------------------------------*/
  355. void one_text_field(void)
  356. {
  357.  
  358.   int i;
  359.   char j;
  360.   int h1,h2;
  361.   char buffer[50];
  362.   struct xfield pf;
  363.  
  364.   show_window(20,7,40,9,"One Text Field",ON);
  365.  
  366.   pf.type=F_TEXT;              /* field types can be F_TEXT,F_DATE,F_TEL */
  367.   pf.xstart=0;                 /* first character for the cursor to show */
  368.   pf.f[0]=0;                   /* initial field content                  */
  369.   strcpy(pf.title,"Field");    /* field title                            */
  370.   pf.fcolor=0x70;              /* field color                            */
  371.   pf.tcolor=0xF4;              /* field title color                      */
  372.   pf.x=28;                     /* x location of field on the text screen */
  373.   pf.y=11;                     /* y location of field on the text screen */
  374.   pf.length=24;                /* field length in characters             */
  375.  
  376.   /*----------------------------------------------------------------------*/
  377.   /* alt control allows for alternate controls ; this way TAB will select */
  378.   /* buttons or fields besides the mouse                                  */
  379.   /*----------------------------------------------------------------------*/
  380.   alt_control(INIT,0);  // alt control must be initialized, before any field work
  381.  
  382.   i=text_field(&pf,INIT);
  383.  
  384.   deactivate_activebuttons();  
  385.  
  386.   h1=draw_button("^Continue",25,13,78,23,ALTC,ALTC);
  387.   h2=draw_button("Cancel",45,13,78,23,ESC,ESC  );
  388.  
  389.   check_button(TAB);   /* select the first button */
  390.  
  391.   while(1)
  392.   {
  393.     j=text_field(&pf,-2);
  394.     i=check_button(j);
  395.  
  396.     if ( i==ESC || i==ALTC)break;
  397.   }
  398.  
  399.   disable_button(h1);
  400.   disable_button(h2);
  401.  
  402.   reactivate_activebuttons();
  403.  
  404.   show_window(20,7,40,9,"One Text Field",OFF);
  405.   if(i==ALTC)
  406.   {
  407.     sprintf(buffer,"Field Content = %s",pf.f,0x4F);
  408.     pls(0,29,buffer,0x24);
  409.   }
  410.  
  411. }
  412. /*--------------------------------------------------------------------------*/
  413. void five_text_fields(void)
  414. {
  415. #ifdef MSC
  416.  struct dosdate_t date;
  417. #endif
  418.  
  419.   int    fret,fptr;
  420.  
  421.   struct  xfield pf[5];  
  422.   int    i;
  423.  
  424.  struct tm *time_now;
  425.  time_t secs_now;
  426.  int    break_val=NO;
  427.  int    h1,h2;
  428.  
  429.  show_window(20,6,40,13,"Five Text Field",ON);
  430.  
  431.  for(i=0;i<5;i++)
  432.  { pf[i].xstart=0;
  433.    strncpy(pf[i].f,"",sizeof(pf[i].f) );
  434.    pf[i].title[0]=0;
  435.    pf[i].fcolor=0x70;
  436.  }
  437.  
  438.  tzset();
  439.  time(&secs_now);
  440.  time_now=localtime(&secs_now);
  441.  
  442.  pf[0].type=F_DATE;
  443.  pf[0].x=27; pf[0].y=9; pf[0].length=8; pls(27,8,(unsigned char *)"Date1 :",0xF4);
  444.  
  445. #ifdef MSC
  446.  _dos_getdate(&date);
  447.  sprintf(pf[0].f,"%02d-%02d-%02d",date.month,date.day,date.year-1900);
  448. #else
  449.  strftime(pf[0].f,9,"%m-%d-%y",time_now);
  450. #endif
  451.  
  452.  pf[1].type=F_DATE;
  453.  pf[1].x=42; pf[1].y=9; pf[1].length=8; pls(42,8,(unsigned char *)"Date2 :",0xF4);
  454.  
  455. #ifdef MSC
  456.  _dos_getdate(&date);
  457.  sprintf(pf[1].f,"%02d-%02d-%02d",date.month,date.day,date.year-1900);
  458. #else
  459.  strftime(pf[1].f,9,"%m-%d-%y",time_now);
  460. #endif
  461.  
  462.  pf[2].type=F_TEXT;
  463.  pf[2].x=27; pf[2].y=11; pf[2].length=12; pls(27,10,(unsigned char *)"field 3 :",0xF4);
  464.  
  465.  pf[3].type=F_TEXT;
  466.  pf[3].x=42; pf[3].y=11; pf[3].length=11; pls(42,10,(unsigned char *)"field 4 :",0xF4);
  467.  
  468.  pf[4].type=F_TEXT;
  469.  pf[4].x=27; pf[4].y=13; pf[4].length=26; pls(27,12,(unsigned char *)"field 5 :",0xF4);
  470.  
  471.  alt_control(INIT,0);  // alt control must be initialized, before any field work
  472.  
  473.  for(i=0;i<5;i++)text_field(&pf[i],INIT);
  474.  
  475.  fptr=0;
  476.  
  477.  deactivate_activebuttons();
  478.  
  479.  
  480.  h1=draw_button("^Continue",26,16,78,23,ALTC,ALTC);
  481.  h2=draw_button("Cancel",44,16,78,23,ESC,ESC  );
  482.  
  483.  while(1)
  484.  { 
  485.    gcurs(MOVE);
  486.  
  487.    if(fptr!=-1)
  488.    {
  489.      i=text_field(&pf[fptr],-2);
  490.    }
  491.    else
  492.    {
  493.      i=getkey();
  494.    }
  495.  
  496.    fret=check_button(i);
  497.  
  498.    if(fptr==-1 && fret !=EOF)
  499.    {
  500.      fptr=0;
  501.    }
  502.  
  503.  
  504.    if(mouse_left_pressed()==YES)
  505.    {
  506.      get_mouse_location();
  507.      for(i=0;i<5;i++)
  508.      {
  509.        if(mouse_x>=pf[i].x && mouse_x<pf[i].x+pf[i].length && mouse_y==pf[i].y)
  510.        { 
  511.          fptr=i;
  512.          break;
  513.        }
  514.      }
  515.  
  516.    }
  517.  
  518.  
  519.    switch(fret)
  520.    {
  521.      case TAB   :
  522.       fptr++;
  523.       if(fptr>=5)
  524.       {
  525.         fptr=-1;
  526.         check_button(CONTROL);
  527.         check_button(TAB);
  528.       }
  529.       break;
  530.      case ENTER :
  531.      case RIGHTKEY :
  532.      case DOWNKEY  :
  533.       if(fptr==4 && fret==ENTER)
  534.       { break_val=YES;
  535.         break;
  536.       }
  537.       fptr++;
  538.       if(fptr>=5)fptr=0;
  539.       break;
  540.      case SHIFTTAB:
  541.      case UPKEY   :
  542.       fptr--;
  543.       if(fptr<0)fptr=4;
  544.       break;
  545.      case ESC :
  546.       disable_button(h1);
  547.       disable_button(h2);
  548.       reactivate_activebuttons();
  549.       show_window(20,6,40,13,"Three Text Field",OFF);
  550.       return;
  551.      case ALTC :
  552.       break_val=YES;
  553.       break;
  554.  
  555.    }
  556.    if(break_val==YES)break;
  557.  }
  558.  
  559.  disable_button(h1);
  560.  disable_button(h2);
  561.  
  562.  reactivate_activebuttons();
  563.  
  564.  show_window(20,6,40,13,"Three Text Field",OFF);
  565.  
  566.  pls(0,20,"Field Contents :",0x4F);
  567.  pls(0,22,pf[0].f,0x42);
  568.  pls(0,23,pf[1].f,0x42);
  569.  pls(0,24,pf[2].f,0x42);
  570.  pls(0,25,pf[3].f,0x42);
  571.  pls(0,26,pf[4].f,0x42);
  572.  
  573. }
  574. /*--------------------------------------------------------------------------*/
  575. /* place one binary field; use TAB to select fields with keyboard           */
  576. /*--------------------------------------------------------------------------*/
  577. void one_binary_field(void)
  578. {
  579.  
  580.   struct bfield bfield;
  581.   int           i;
  582.   int           fptr=0;
  583.   int           fret;
  584.   int           h1,h2;
  585.   int           break_loop=NO;
  586.  
  587.  
  588.  
  589.   bfield.fcolor=0xF7;
  590.   bfield.tcolor=0xF0;
  591.   bfield.x=25;
  592.   bfield.y=11;
  593.   bfield.content=NO;
  594.  
  595.   strcpy(bfield.title,"Binary Field");
  596.  
  597.  
  598.   show_window(20,7,40,10,"One Binary Field",ON);
  599.  
  600.   deactivate_activebuttons();
  601.  
  602.   h1=draw_button("^Continue",1206,14,84,23,ALTC,ALTC);
  603.   h2=draw_button("Cancel"  ,1350,14,84,23,ESC,ESC  );
  604.  
  605.   binary_field(&bfield,INIT,-1);
  606.  
  607.   while(1)
  608.   {
  609.     gcurs(MOVE);
  610.  
  611.     if(fptr!=-1) /* when fptr==-1 buttons have been selected */
  612.                  /* otherwise, binary field is selected      */
  613.     {
  614.       i=binary_field(&bfield,-2,-1);
  615.     }
  616.     else
  617.     {
  618.       i=getkey();
  619.     }
  620.  
  621.     fret=check_button(i);
  622.     
  623.     if(fptr==-1 && fret!=EOF)
  624.     {
  625.       fptr=0;
  626.     }
  627.  
  628.     switch(fret)
  629.     {
  630.       case ALTC:
  631.        break_loop=YES;
  632.        break;
  633.       case ESC:
  634.        break_loop=YES;
  635.        break;
  636.  
  637.     }
  638.  
  639.     if(break_loop==YES)break;
  640.   }
  641.  
  642.   disable_button2(h1,15);
  643.   disable_button2(h2,15);
  644.   reactivate_activebuttons();
  645.  
  646.   show_window(20,7,40,10,"One Binary Field",OFF);
  647.  
  648.   if(fret==ALTC)
  649.   {
  650.     if(bfield.content==YES)pls(0,20,"One Binary Field is Set     ",0xF4);
  651.     else                   pls(0,20,"One Binary Field is not Set ",0xF4);
  652.   }
  653.  
  654. }
  655. /*--------------------------------------------------------------------------*/
  656. void five_binary_fields(void)
  657. {
  658.   int           i;
  659.   int           break_loop=NO;
  660.   int           fptr=0;
  661.   int           fret;
  662.   int           h1,h2;
  663.   char          buffer[50];
  664.   struct bfield bfield[5];
  665.  
  666.  
  667.  
  668.   /*--------------------------*/
  669.   /* show a message box first */
  670.   /*--------------------------*/
  671.  
  672.   show_window(20,7,40,10,"Five Binary Fields",ON);
  673.  
  674.   bfield[0].x=22;
  675.   bfield[0].y=10;
  676.   strcpy(bfield[0].title," field zero");
  677.  
  678.   bfield[1].x=22;
  679.   bfield[1].y=11;
  680.   strcpy(bfield[1].title," field one");
  681.  
  682.   bfield[2].x=22;
  683.   bfield[2].y=12;
  684.   strcpy(bfield[2].title," field two");
  685.  
  686.   bfield[3].x=22;
  687.   bfield[3].y=13;
  688.   strcpy(bfield[3].title," field three");
  689.  
  690.   bfield[4].x=22;
  691.   bfield[4].y=14;
  692.   strcpy(bfield[4].title," field four");
  693.  
  694.  
  695.   for(i=0;i<=4;i++)
  696.   {
  697.     bfield[i].fcolor=0xF7;
  698.     bfield[i].tcolor=0xF0;
  699.     if(fptr!=i)bfield[i].content=NO;
  700.     else       bfield[i].content=YES;
  701.     binary_field(&bfield[i],INIT,-1);
  702.   }
  703.  
  704.  
  705.   deactivate_activebuttons();
  706.  
  707.   h1=draw_button("^Continue",  47,10,84,21,ALTC,ALTC);
  708.   h2=draw_button("Cancel",     47,12,84,21,ESC,ESC  );
  709.  
  710.   while(1)
  711.   {
  712.     gcurs(MOVE);
  713.  
  714.     if(fptr!=-1)
  715.     {
  716.       i=binary_field(&bfield[fptr],-2,-1);
  717.     }
  718.     else
  719.     {
  720.       i=getkey();
  721.     }
  722.  
  723.     fret=check_button(i);
  724.     
  725.     if(fptr==-1 && fret!=EOF)
  726.     {
  727.       fptr=0;
  728.     }
  729.  
  730.     
  731.     /*----------------------------------------*/
  732.     /* if this field is set, reset the reset  */
  733.     /*----------------------------------------*/
  734.  
  735.     for(i=0;i<=4;i++)
  736.     {
  737.       if(bfield[fptr].content==YES)
  738.       {
  739.         for(i=0;i<=4;i++)
  740.         { 
  741.           if(bfield[i].content==YES)
  742.           { if(i==fptr)continue;
  743.             bfield[i].content=NO;
  744.             binary_field(&bfield[i],INIT,-1);
  745.           }
  746.         }
  747.       }
  748.       else
  749.       {
  750.         break;
  751.       }
  752.     }
  753.  
  754.     mouse_state();
  755.     if(ms==PRESSED)
  756.     {
  757.       get_mouse_location();
  758. /*-------------------------------------------------------------------------*/
  759. /* the following loop will reset any field that is set after another field */
  760. /* is set.  This is necessary when only one field can be set at a time.    */
  761. /* if multiple fields can be set, remove the following loop                */
  762. /*-------------------------------------------------------------------------*/
  763.       for(i=0;i<=4;i++)
  764.       {
  765.         if(bfield[i].y==mouse_y && 
  766.                         mouse_x>=bfield[i].x && mouse_x<=bfield[i].x+2)
  767.         {
  768.           if(i!=fptr)
  769.           {
  770.             fptr=i;
  771.             binary_field(&bfield[i],INIT,-1);
  772.           }
  773.           break;
  774.         }
  775.       }  
  776.     }     
  777.  
  778.  
  779.  
  780.     switch(fret)
  781.     {
  782.       case ALTC:  // save the hcopy type
  783.  
  784.        break_loop=YES;
  785.        break;
  786.       case ESC:
  787.        break_loop=YES;
  788.        break;
  789.  
  790.       case TAB:
  791.        fptr++;
  792.        if(fptr>4)
  793.        {  
  794.          fptr=-1;
  795.          check_button(CONTROL);
  796.          check_button(TAB);
  797.        }
  798.        break;
  799.  
  800.       case SHIFTTAB:
  801.        fptr--;
  802.        if(fptr<0)fptr=4;
  803.        break;
  804.  
  805.     }
  806.  
  807.     if(break_loop==YES)break;
  808.   }
  809.  
  810.  
  811.   disable_button(h1);
  812.   disable_button(h2);
  813.  
  814.   show_window(20,7,40,10,"",OFF);
  815.  
  816.   reactivate_activebuttons();
  817.  
  818.   if(fret==ALTC)
  819.   {
  820.     strcpy(buffer,"No Field was selected    ");
  821.  
  822.     for(i=0;i<5;i++)
  823.     {
  824.       if(bfield[i].content==YES)
  825.       {
  826.         sprintf(buffer,"Field %d was selected",i);
  827.       }
  828.     }
  829.     pls(0,20,buffer,0xF2);
  830.   }
  831.  
  832. }
  833. /*--------------------------------------------------------------------------*/
  834. /* this function displays percentage of two numbers numerator, and          */
  835. /* denominator.  Whitin any loop as a number changes, the bar will change   */
  836. /* also, as a percentage of the two numbers.                                */
  837. /*--------------------------------------------------------------------------*/
  838. void percent_bar(void)
  839. {
  840.   int numerator=0;
  841.   int denominator=20000;
  842.  
  843.   show_window(20,7,40,10,"Percent Display Bar",ON);
  844.  
  845.   /*----------------------------------------------------------------*/
  846.   /* it is important that the first time show_percent_bar is called */
  847.   /* the numerator to be 0                                          */
  848.   /*----------------------------------------------------------------*/
  849.   while(1)
  850.   {
  851.     if(show_percent_bar(numerator,denominator,190,185,252,30,0,1,15)==-1) 
  852.     {
  853.       /*-------------------------*/
  854.       /* cancel has been pressed */
  855.       /* or ESC key pressed.     */
  856.       /*-------------------------*/
  857.       break;
  858.     }
  859.     if(numerator==denominator)break;
  860.     numerator++;
  861.   }
  862.  
  863.   show_percent_bar(-1,0,190,185,252,30,0,1,15);
  864.  
  865.   show_window(20,7,40,10,"",OFF);
  866. }
  867. /*--------------------------------------------------------------------------*/
  868. void scroll_bar_function(void)
  869. {
  870.   int maxnum=500;
  871.   int num=0;
  872.   int old_num=num;
  873.   int x1=420;
  874.   int y1=136;
  875.   int x2=439;
  876.   int y2=337;
  877.   int border_color=0;
  878.   int bar_color=7;
  879.   int ch;
  880.   int h1;
  881.   int h2;
  882.   char buffer[40];
  883.  
  884.  
  885.   show_window(15,5,50,19,"Scroll Bar Demo",ON);
  886.   scr_bar(INIT,0,maxnum,&num,x1,y1,x2,y2,border_color,bar_color,0);
  887.  
  888.   sprintf(buffer,"num=%d out of %d  ",num,maxnum);
  889.   gpls(200,200,buffer,0xF2);
  890.  
  891.   h1=draw_button(" Exit ",36,21,60,23,ESC,ENTER);
  892.   h2=draw_button("^Set Bar to 333",19,8,120,23,ALTS,'s');
  893.  
  894.   while(1)
  895.   {
  896.     ch=getkey();
  897.     ch=check_button(ch);
  898.  
  899.     ch=scr_bar(ACTION,ch,maxnum,&num,x1,y1,x2,y2,border_color,bar_color,0);
  900.  
  901.     if(num!=old_num)
  902.     {
  903.       sprintf(buffer,"num=%d out of %d  ",num,maxnum);
  904.       gpls(200,200,buffer,0xF2);
  905.       old_num=num;
  906.     }
  907.  
  908.     if(ch==ESC)break;
  909.     if(ch==ALTS)
  910.     {
  911.       num=333;
  912.     }
  913.   }
  914.  
  915.   disable_button(h1);
  916.   disable_button(h2);
  917.  
  918.   show_window(15,5,50,19,"",OFF);
  919. }
  920. /*--------------------------------------------------------------------------*/
  921.