home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / BROWSE.PRG < prev    next >
Text File  |  1994-06-10  |  2KB  |  70 lines
  1. // Implementación de un Browse genérico creado desde código
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. #define ENGLISH
  6.  
  7. //----------------------------------------------------------------------------//
  8.  
  9. function Browse( cTitle, cListName, bNew, bModify, bDelete, bSearch, bList )
  10.  
  11.    local oDlg, oLbx
  12.    local btnNew, btnModify, btnDelete, btnSearch, btnList, btnEnd
  13.  
  14.    DEFAULT cTitle := "Browse", cListName := "Fields"
  15.  
  16.    DEFINE DIALOG oDlg FROM 3, 3 TO 26, 79 TITLE cTitle
  17.  
  18.    @ 0,  1 SAY cListName  OF oDlg
  19.  
  20.    @ 1, 1 LISTBOX oLbx FIELDS ;
  21.       SIZE 284, 137  OF oDlg
  22.  
  23. #ifdef ENGLISH
  24.  
  25.    @ 13,  1 BUTTON btnNew    PROMPT "&New"    OF oDlg SIZE 40, 12
  26.    @ 13,  8 BUTTON btnModify PROMPT "&Modify" OF oDlg SIZE 40, 12
  27.    @ 13, 15 BUTTON btnDelete PROMPT "&Delete" OF oDlg SIZE 40, 12
  28.    @ 13, 22 BUTTON btnSearch PROMPT "&Search" OF oDlg SIZE 40, 12
  29.    @ 13, 29 BUTTON btnList   PROMPT "&Print"  OF oDlg SIZE 40, 12
  30.    @ 13, 36 BUTTON btnEnd    PROMPT "&Exit"   OF oDlg SIZE 40, 12
  31.  
  32. #else
  33.  
  34.    @ 13,  1 BUTTON btnNew    PROMPT "&Nuevo"    OF oDlg SIZE 40, 12
  35.    @ 13,  8 BUTTON btnModify PROMPT "&Modifica" OF oDlg SIZE 40, 12
  36.    @ 13, 15 BUTTON btnDelete PROMPT "&Elimina"  OF oDlg SIZE 40, 12
  37.    @ 13, 22 BUTTON btnSearch PROMPT "&Buscar"   OF oDlg SIZE 40, 12
  38.    @ 13, 29 BUTTON btnList   PROMPT "&Imprimir" OF oDlg SIZE 40, 12
  39.    @ 13, 36 BUTTON btnEnd    PROMPT "&Salir"    OF oDlg SIZE 40, 12
  40.  
  41. #endif
  42.  
  43.    btnNew:bAction    = If( bNew    != nil,;
  44.                            { || Eval( bNew ),;
  45.                            oLbx:Refresh(), oLbx:SetFocus() },)
  46.  
  47.    btnModify:bAction = If( bModify != nil,;
  48.                            { || Eval( bModify ),;
  49.                            oLbx:Refresh(), oLbx:SetFocus() },)
  50.  
  51.    btnDelete:bAction = If( bDelete != nil,;
  52.                            { || Eval( bDelete ),;
  53.                            oLbx:Refresh(), oLbx:SetFocus() },)
  54.  
  55.    btnSearch:bAction = If( bSearch != nil,;
  56.                            { || Eval( bSearch ),;
  57.                            oLbx:Refresh(), oLbx:SetFocus() },)
  58.  
  59.    btnList:bAction   = If( bList   != nil,;
  60.                            { || Eval( bList ),;
  61.                            oLbx:Refresh(), oLbx:SetFocus() },)
  62.  
  63.    btnEnd:bAction    = { || oDlg:End() }
  64.  
  65.    ACTIVATE DIALOG oDlg 
  66.  
  67. return nil
  68.  
  69. //----------------------------------------------------------------------------//
  70.