FiveTech Support Forums

      DEFINE WINDOW oWndRecauda OF oPanel1                  ;
             TITLE "Listado de Recaudaciones"               ;
             FROM 0,0 TO oPanel1:nBottom, oPanel1:nRight    ;
				 COLOR CLR_BLACK, GetSysColor(15)-RGB(30,30,30) ;
				 NOSYSMENU

             DEFINE SBUTTONBAR oBar2 TOP _3D SIZE 35,35 OF oWndRecauda
                    oBar2:bLClicked := {|| 0 }
                    oBar2:bRClicked := {|| 0 }

             DEFINE SBUTTON oBtn2[1] OF oBar2 ;
                    RESOURCE "EXIT", "EXIT"   ;
                    ACTION oWndRecauda:End()  ;
                    MESSAGE " Salir del Listado de Recaudaciones" ;
                    TOOLTIP "Salir del Listado" ;
                    LOOK W97 UPDATE


             oBrw := TXBrowse():New( oWndRecauda )
             oBrw:SetArray(aDatos)

             //  y el demas codigo........

             ////

             @ 450, 0 SPLITTER oSpl2         ;
                      HORIZONTAL             ;
                      PREVIOUS CONTROLS oBrw ;
                      TOP MARGIN 400         ;
                      BOTTOM MARGIN 180      ;
                      SIZE 500, 4 PIXEL      ;
                      OF oWndRecauda         ;
                      _3DLOOK

             oBrw:CreateFromCode()
             oWndRecauda:oClient := oBrw   ///   Aqui sucede...
             oWndRecauda:bResized := {|| oSpl2:Adjust }



      ACTIVATE WINDOW oWndRecauda MAXIMIZED ;
					ON INIT oBrw:SetFocus()