FiveTech Software tech support forums

Code: Select all | Expand

       REDEFINE XBROWSE oBrw ;
                DATASOURCE oResVen;    ///                AUTOCOLS ;                AUTOSORT LINES ;
                FASTEDIT LINES ;
                FONT oApp:oFontBrw1 ;   //                          ON CHANGE (oApp:cSeek := "", EVAL(eCodigo), RRefresh(oProd) ) ; //, EVAL(eImg) ) ;
                ID 100 OF oDlg

                oCol := oBrw:AddCol()
                oCol:bStrData      := { || oResVen:RecNo() }         // num correlativo
                oCol:cHeader       := "#"
                oCol:bClrStd       := { || { CLR_GREEN, CLR_WHITE } }
                oCol:nDataStrAlign := AL_LEFT
                oCol:nWidth        := 25

                oCol := oBrw:AddCol()
                oCol:bStrData      := { || oResVen:fecha_doc }
                oCol:cHeader       := "Fecha"
                oCol:bClrStd       := { || { CLR_BLUE, CLR_WHITE } }
                oCol:nDataStrAlign := AL_LEFT
                oCol:nWidth        := 85
....
...
..
.
                oBrw:nMarqueeStyle       := 5 //MARQSTYLE_HIGHLCELL
                oBrw:lAllowRowSizing     := .F.
                oBrw:ltransparent        := .F.
                oBrw:nheaderHeight       := 18 // altura de la cabecera HEADER
                oBrw:nRowHeight          := 20  // altura del prompt
                oBrw:lVScroll            := .t.
                oBrw:lHScroll            := ( .t. )
                oBrw:lRecordSelector     := .F.
                oBrw:lAllowColSwapping   := .F.
                oBrw:lAllowColHiding     := .f.
                oBrw:lColDividerComplete := .t.
                oBrw:nRowDividerStyle    := 4
                oBrw:nStretchCol         := STRETCHCOL_LAST
                oBrw:nColDividerStyle    := 4
                oBrw:l2007               := .t.
                oBrw:lColDividerComplete := .t.
                oBrw:lAdjusted           := .f.
                oBrw:nFreeze             := 6
                oBrw:bClrSel             := { || { ColorClrSel(oResVen), oApp:aGradBarSelFocus } }  // para barra de linea selecc cuando el control no tiene el foco
                oBrw:bClrSelFocus        := { || { ColorClrSel(oResVen), oApp:aGradBarSelFocus } }     // para barra de linea selecc cuando el control tiene el foco
                oBrw:lKinetic            := .f. //oWndSfs:SetFocus(),
                oBrw:bLDblClick          := {|| VerDocumento(oCn, 2, oResVen:tipo, oResVen:documento, oResVen:cod_prov_clie, oResVen:cliente, oResVen:direccion), oBrw:SetFocus() }


 

Code: Select all | Expand

   REDEFINE XBROWSE oBrw  ;
      DATASOURCE oResVen  ;
      FASTEDIT LINES      ;
      FONT oApp:oFontBrw1 ;
      ID 100 OF oDlg      ;
      ON DBLCLICK ( VerDocumento(oCn, 2, oResVen:tipo, oResVen:documento, oResVen:cod_prov_clie, oResVen:cliente, oResVen:direccion ), oBrw:Refresh() )
 

Code: Select all | Expand

 0x50E10000 

 0x50210000

 0X50C10000

 0x50D00000 //-> Barra Horizontal

 0x50A00000 //-> Barra Vertical

 0x50B00000 //-> Barra Horizontal e Vertical

Class name: TXBrowse