FiveTech Software tech support forums

... of destroy it. If the data has no services, you could hide the colums ? static function ReArrangeCols( oBrw, aCols ) AEval( oBrw:aCols, { |o| o:lHide := .f. } ) oBrw:ReArrangeCols( aCols ) AEval( oBrw:aCols, { |o| o:lHide := .t. }, Len( aCols ) + 1 ) oBrw:Refresh() return nil Showing a empty ...

... ] cPrompt := Trim( MemoLine( if(VALTYPE(oCol:cHeader)=="C",oCol:cHeader,EVAL(oCol:cHeader)), 250, 1 ) ) MenuAddItem( cPrompt, , !oCol:lHide, ( len(::aDisplay) != 1 .or. ocol:nPos != 1 ), GenMenuBlock( ::aCols, nFor ) ) next ENDMENU if ::bkeydown<>nil.and.::nMarqueeStyle==MARQSTYLE_HIGHLCELL ...

... the columns configuration , how I can resolve ? you sad me "You have to reset the items of the combobox on the basis of columns where oCol:lHide == .f. " But I not understood How make it today I set on xbrowse these lines :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding ...

nageswaragunupudi wrote:You have to reset the items of the combobox on the basis of columns where oCol:lHide == .f.

I can't do it

nageswaragunupudi wrote:You have to reset the items of the combobox on the basis of columns where oCol:lHide == .f.

How I not understood, I not Know how Make it

and then
aCols := { ;
{ "FIRST", "Nome",, 120, },;
is as // { field, header, picture, size, justify, sortorder } ?

You have to reset the items of the combobox on the basis of columns where oCol:lHide == .f.

... ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) to AEval( oBrw:aCols, { |o| If( o:lHide,,AAdd( aItems, o:cHeader ) ) ...

... ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) to AEval( oBrw:aCols, { |o| If( o:lHide,,AAdd( aItems, o:cHeader ) ) ...

... ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) to AEval( oBrw:aCols, { |o| If( o:lHide,,AAdd( aItems, o:cHeader ) ) ...

Silvio, can you please try this: Function ChangeBrowse( oBrw, oControl) local aItems:= {} AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) oControl[2]:setItems(aItems) oControl[2]:refresh() oBrw:Setfocus() return nil //-----------------------------------------------------------------------------------------------------// ...

Silvio, can you please try this: Function ChangeBrowse( oBrw, oControl) local aItems:= {} AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) oControl[2]:setItems(aItems) oControl[2]:refresh() oBrw:Setfocus() return nil //-----------------------------------------------------------------------------------------------------// ...

... //************** IF THE BELOW LINE COMMENTED THEN IT OUTLINE BOX SHOWS CORRECTLY WHILE NAVIGATING THE UP/DOWN KEYS ************* //:aCols[ 3 ]:lHide := .T. #include "fivewin.ch"#define C_GETH 25PROCEDURE MAIN local oDlg, oBrwTLib,oBrwTAss, oFontSay, oFontLovBrw local aArrData1 ...

... can call 2 files with ::LoadBitmaps( cBmpUpFile, cBmpDownFile ) then on METHOD LoadBitmaps( cName ) you can load one file I tried also with IIF(lHide, oApp():oToolButton:SetFile( "TOOLBAR_OFF", "TOOLBAR_OFF" ),; oApp():oToolButton:SetFile( "TOOLBAR_ON", "TOOLBAR_ON") ...

... If you put this code after the creation of the exel file, the colums are back. AEval( oBrw:aCols, { |o| o:lHide := .f. } ) oBrw:refresh()

/***************************************************************************/
procedure EscondeColunasRestantes( oBrw, nColInicial)
/*
*/
Local x

for x:=nColInicial to len(oBrw:aCols)
oBrw:aCols[x]:lHide := .t.
next

return