home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTBRW.PRG < prev    next >
Text File  |  1994-06-09  |  2KB  |  80 lines
  1. #include "fivewin.ch"
  2. Function Main()
  3.         Local oWnd
  4.         SET RESOURCES TO "TestBrw.DLL"
  5.         DEFINE WINDOW oWnd FROM 0, 0 TO 30, 80 TITLE "Prueba"
  6.         ACTIVATE WINDOW oWnd ON INIT Dialogo()
  7.         SET RESOURCES TO
  8. return NIL
  9. FUNCTION Dialogo()
  10.         Local oDlg, oGet1, oGet2, oCrsHand, oLbx1, oLbx2
  11.         Local cText1 := space(10)
  12.         Local cText2 := space(10)
  13.  
  14.         USE PRUEBA NEW
  15.         INDEX ON UNO TO PRUEBA
  16.  
  17.         USE PRUE NEW
  18.         INDEX ON UNO TO PRUE
  19.  
  20.         DEFINE CURSOR oCrsHand  RESOURCE "Hand"
  21.  
  22.         DEFINE DIALOG oDlg RESOURCE "PRUEBA"
  23.  
  24.         DBSELECTAREA( "Prueba" )
  25.  
  26.  
  27.         REDEFINE LISTBOX oLbx1 FIELDS prueba->UNO, prueba->DOS ;
  28.           ID 101 OF oDlg
  29.  
  30.  
  31.         DBSELECTAREA( "Prue" )
  32.  
  33.         REDEFINE LISTBOX oLbx2 FIELDS prue->UNO, prue->DOS ;
  34.           ID 102 OF oDlg
  35.  
  36.         REDEFINE GET oGet1 VAR cText1 ID 106 OF oDlg
  37.         REDEFINE GET oGet2 VAR cText2 ID 107 OF oDlg
  38.  
  39.         REDEFINE BUTTON ID 103 OF oDlg ACTION Add( oLbx1, oLbx2, cText1, cText2 )
  40.  
  41. //        Pone cursor a los botones
  42. //        oBtn1:oCursor := oCrsHand
  43.  
  44.         REDEFINE BUTTON ID 104 OF oDlg ACTION Del( oLbx1, oLbx2 )
  45.  
  46. //        oBtn2:oCursor := oCrsHand
  47.  
  48.         REDEFINE BUTTON ID 105 OF oDlg ACTION oDlg:End()
  49.  
  50. //        oBtn3:oCursor := oCrsHand
  51.  
  52.         ACTIVATE DIALOG oDlg CENTERED
  53.  
  54. RETURN NIL
  55. Function Add( oLbx1, oLbx2, cText1, cText2 )
  56.       DBSELECTAREA( "Prueba")
  57.       APPEND BLANK
  58.       PRUEBA->UNO := cText1
  59.       PRUEBA->DOS := cText2
  60.       oLbx1:UpStable()
  61.       oLbx1:Refresh()
  62.       DBSELECTAREA( "Prue")
  63.       APPEND BLANK
  64.       PRUE->UNO := cText1
  65.       PRUE->DOS := cText2
  66.       oLbx2:UpStable()
  67.       oLbx2:Refresh()
  68. RETURN NIL
  69. Function Del( oLbx1, oLbx2)
  70.  
  71.        DELETE
  72.        PACK
  73.       oLbx1:UpStable()
  74.       oLbx1:Refresh()
  75.       oLbx2:UpStable()
  76.       oLbx2:Refresh()
  77. RETURN NIL
  78.  
  79.  
  80.