FiveTech Software tech support forums

Armando

IF cCveTab = 1 .or. cCveTab = 3
oBrw5:Destroy()
...
...
ELSEIF cCveTab = 2 .or. cCveTab = 4
oBrw5():Destroy()
...
...
ENDIF

Ya hice los cambios y me sigue mostrando 4 columnas en todos los casos

... por separado antes de usarlo. Hay un metodo en la clase xbrowse que destruye las columnas definidas sin eliminar el objeto principal, es "oBrw5:Destroy()", que es diferente a "oBrw5:End()", prueba con esto entre las sentencias IF. IF cCveTab = 1 .or. cCveTab = 3   oBrw5:Destroy()  ...

... | WS_TABSTOP } Not is XBROWSE control Menu popup is the Edit Control USE "PFLEGER" NEW SHARED ALIAS "PFLEGER" REDEFINE XBROWSE oBrw5 ID 110 OF oFld:aDialogs[ 4 ] AUTOSORT ; COLUMNS { "NACHNAME", "VORNAME", "SIGNAL", "TELEFON", "QUALIFIKAT" ...

Luis:

Prueba especificando en cada Browse la DBF que debe tomar, no uso DBFs pero con Tablas
es así:

oBrw:SetAdo(oRsHdr)

Supongo que debe ser algo como

oBrw5:SetDbf(cAlias)
oBrw5:CreateFromResource(1001)

Saludos

... oCol1:nHeadStrAlign := AL_CENTER //LEFT oCol1:nDataStrAlign := AL_RIGHT //LEFT oCol1:nWidth := 70 oBrw1:CreateFromResource(1000) SELECT 52 GO TOP oBrw5:=TxBrowse():New(oDlg2) oBrw5:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón oBrw5:nColDividerStyle := LINESTYLE_RAISED oBrw5:nRowDividerStyle ...

... no se presenta en forma correcta ya que aveces se muestra el 1er registro, otras veces los dos ultimos, etc. // browse 1 REDEFINE BROWSE oBrw5 ID 101 OF oDlg ; ON CHANGE TCRED->(OrdScope(0,aTCRED[oBrw5:nAt,2]),OrdScope(1,aTCRED[oBrw5:nAt,2]),DBGOTOP(),oBrw6:GOTOP(),oBrw6:REFRESH()) ...

... the selected Row didn't show the BMP. I created a Dialog / xBrowse from Source and Resource. Transparent works inside a Dialog-resource : aeval( oBrw5:aCols, { |o|o:lColTransparent := .t. } ) Daniel tested with a Window, maybe he has done a sample < Window / Dialog-combination >. I don't ...

... Silvio, Please can You try to add this to Your xBrowse, to test, if Your BMP's are visible ? I think, the Bar-color covers the BMP. change < oBrw5 > with Your Browse-object. // Transparent Row-selection // ----------------------------------- aeval( oBrw5:aCols, { |o|o:lColTransparent := ...

... : OemAnsi = .T., to show Dbf's, created in old times with Clipper. There are no Col's defined. IF OemAnsi = .T. then ........ Gets and Edits in oBrw5 and oBrw6 must change -------------------------------------------------------- oBrw5 := TXBrowse():New( oDlg ) oBrw5:nMarqueeStyle := MARQSTYLE_HIGHLROW ...

... ID 170 OF aCtrl[nPage] ; PICTURE "!!!!!!!!!!!!!!!!!!!!" UPDATE // ------------------------------------- aCtrl[nPage]:bStart:= ; {|| B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,oExport) } // !!!! // ---------------------------------------- FUNCTION B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,oExport) // !!!! ...

... to always use alias referencing. In your code you have not told the browse what the alias is, like this: oBrw:cAlias := cAlias Or, in your case: oBrw5:cAlias := "1" The alias referencing issue is a big reason to use database objects since they have that built-in. You still need to tell the browse ...

... --------------------------- FUNCTION PROG_4(oWnd,oDlg,aCtrl,nPage,oOutL2003) local oDlg3, oFile1, cFile1 := "", oBtn1, oBtn2, obtn3, oBtn4, oBrw5, DBFTYP := "" local oFilter, cFilter := SPACE( 70 ), cFELD := "", l_INDEX := .F. local oSUCH, cSUCH := "", aSCOPE, nSCOPE := 1 local oEXPORT, ...

... some small changes in the xBrowse-Class you can do the same. It is possible, to read, edit und write in OemToAnsi-Style. with xBrowse Sample : oBrw5 := TXBrowse():New( oDlg3 ) oBrw5:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw5:nColDividerStyle := LINESTYLE_BLACK oBrw5:nRowDividerStyle := LINESTYLE_BLACK ...

Hello from Germany I had a small problem to switch columns in xBrowse SAMPLES : // Old for nFor := 1 to Fcount() oBrw5:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| cFELD := :cHeader, ; SET_INDEX(oBrw5,cFELD), ; IIF(DBFTYP = "CDX", ; cINDKEY := ORDKEY( "NEUINDEX" ), ; cINDKEY := INDEXKEY( ...

... : In den DB-Tools enthält das Quickbrowse-Modul folgenden Programm-Code : Gesucht wird : IF OemAnsi = .T. ..... Ändern von Get and Edit in oBrw5 and oBrw6 ???? ---------------------------------------------------------- oBrw5 := TXBrowse():New( oDlg ) oBrw5:nMarqueeStyle := MARQSTYLE_HIGHLROW ...