xBrowse and datas

[Wanderson]

Hi i have a xbrowse like this:

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 109 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQEMP->SIGLA }
oCol:cHeader := "SIGLA"
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQEMP->FANTASIA }
oCol:cHeader := "FANTASIA"
oCol := oBrw:AddCol()
oCol:bStrData := { || Substr(ARQEMP->CIDADE,1,28) }
oCol:cHeader := "CIDADE"
oCol := oBrw:AddCol()
oCol:bStrData := { || ARQEMP->UF }
oCol:cHeader := "UF"

But they display just the same records in all browser area. If i put Sele ARQEMP and Set Order to 1 and Go Top before this definitions runs ok, but i use Dabase object how i set txbrowse alias with a Database object and how i link the columns? oCol:bStrData := { || oArqEmp:SIGLA } This is correct?
Thanks in advance.

[James Bott]

Wanderson,

...but i use Dabase object how i set txbrowse alias with a Database object and how i link the columns? oCol:bStrData := { || oArqEmp:SIGLA } This is correct?

Yes, your bStrData definition is correct. You must also tell TXBrowse that you are using a database object:

oBrw:SetoDBF( oArqEmp )

May I suggest naming your database object after the realworld object, for example "oEmployees." This makes the code easier to read and understand, especially a year from now.

Regards,
James

[nageswaragunupudi]

Please do not forget to specify the alias in the above case when you are coding for DBF.

Code: Select all  Expand view

oBrw   := TXBrowse():New( oDlg )
oBrw:cAlias := "ARQEMP"   // important
 

Instead of coding oCol := oBrw:AddCol(), oBrw:bStrData := ... for each column, it is easier and more useful to code oBrw:SetRDD( lAddCols, lAutoSort, aFieldNames )
The entire above code can be written as:

Code: Select all  Expand view

oBrw   := TXBrowse():New( oDlg )
WITH OBJECT oBrw
   // If using DBF include these two lines
   :cAlias := "ARQEMP"
   :SetRDD( .f., .t., { "SIGLA", "FANTASIA", "CIDADE", "UF" } )
   // If using TDataBase object, include the following one line and remove the above 2 lines
   :SetoDbf( oArqEmp, { "SIGLA", "FANTASIA", "CIDADE", "UF" }, .t. )
   
   // next lines are common for both
   :nColDividerStyle := LINESTYLE_BLACK
   :lColDividerComplete := .t.
   :nHeaderHeight := 30
   :nStretchCol   := STRETCHCOL_LAST
   :CreateFromResource( 109 )
END
ACTIVATE DIALOG oDlg
 

[James Bott]

Rao,

:SetoDbf( oArqEmp, { "SIGLA", "FANTASIA", "CIDADE", "UF" }, .t. )

When using the aCols parameter, how do you define colum titles that are different than the fieldnames. I'm guessing we have to assign them to each column?

oBrw:aCols[ 2 ]:cHeader:="Whatever"

Regards,
James

[Wanderson]

Thanks James works great!

[Wanderson]

Please do not forget to specify the alias in the above case when you are coding for DBF.

Code: Select all  Expand view

oBrw   := TXBrowse():New( oDlg )
oBrw:cAlias := "ARQEMP"   // important
 

Instead of coding oCol := oBrw:AddCol(), oBrw:bStrData := ... for each column, it is easier and more useful to code oBrw:SetRDD( lAddCols, lAutoSort, aFieldNames )
The entire above code can be written as:

Code: Select all  Expand view

oBrw   := TXBrowse():New( oDlg )
WITH OBJECT oBrw
   // If using DBF include these two lines
   :cAlias := "ARQEMP"
   :SetRDD( .f., .t., { "SIGLA", "FANTASIA", "CIDADE", "UF" } )
   // If using TDataBase object, include the following one line and remove the above 2 lines
   :SetoDbf( oArqEmp, { "SIGLA", "FANTASIA", "CIDADE", "UF" }, .t. )
   
   // next lines are common for both
   :nColDividerStyle := LINESTYLE_BLACK
   :lColDividerComplete := .t.
   :nHeaderHeight := 30
   :nStretchCol   := STRETCHCOL_LAST
   :CreateFromResource( 109 )
END
ACTIVATE DIALOG oDlg
 

Thanks G. N. Rao., but in this case why i set many diferents properties of columns like pictures, colors, fonts and others? Setting one bye one column is more flexible and clear or not?