topic-20954

Board index FiveWin para Harbour/xHarbour Consulta xBrowse

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Consulta xBrowse
Posted: Fri Feb 18, 2011 01:57 PM

Gente:
Estoy comenzando con el uso de xBrowse (disculpas amigo Checcarrelli, pero el amor no es eterno

).
Estoy listando una tabla mySQL. La consulta es: como indicar que ordene por la columna x al hacer clic sobre la misma
Uso Ealge6, que para ordenar por una columna dispongo del metodo :SetOrderBy( nCol,, TRUE ). Debo usarlo? o xbrowse prescinde de el?
Pretendo que quede así:

y También (por el mismo precio

), quisiera agregar color. Es decir que la columna que indica el orden ademas del icono tenga el color que le indico

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Consulta xBrowse
Posted: Fri Feb 18, 2011 03:46 PM

Gente;
por ahora lo solucioné así

Code (fw): Select all Collapse

   ::aoTB[SFO_OBRAS]:SetOrderBy( nCol,, TRUE )
   ::oBrw:aCols[nCol]:oHeaderFont:= ::hFont["SysFontB"]
   ::oBrw:aCols[nCol]:bClrHeader:= {|| { CLR_HBLUE, if( ::oBrw:l2007, nRGB( 231, 242, 255 ), GetSysColor( COLOR_BTNFACE ) ) } }
   aEval( ::oBrw:aCols, {|o,n| nColAct:= n, ;
                               if( !nColAct == nCol, o:bClrHeader:= {|| { CLR_BLACK, ;
                                                                          if( ::oBrw:l2007, nRGB( 231, 242, 255 ), GetSysColor( COLOR_BTNFACE ) ) } }, ) ;
                               })
   ::oBrw:GoTop()
   ::oBrw:Refresh()

y se vé así:

Solo por curiosidad. Se puede hacer que muestre el icono de la columna que tiene el orden activo?, como?

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Consulta xBrowse
Posted: Sat Feb 19, 2011 06:10 AM

If understand you correctly,
When the user clicks on header of column, (a) that column must be sorted using your sort function, (b) the column header should be shown in different color and (c) arrow bitmap should be shown in the header of the column.

This is the shortest code to achieve this: You need to set these codeblocks for each column you want to be sorted

Code (fw): Select all Collapse

oCol:cSortOrder := { |o| <YourSortFuntion>(<your params>),  'A' } // Return 'A' if sorted ascending and return 'D' if sorted discending

oCol:bClrHeader := { || If( Empty( oCol:cOrder ), { normal color pair }, { sorted color pair } ) }

How it works?:

Each column of XBrowse has a DATA cOrder. For sorted column, it is 'A' or 'D' and for all other columns it is Empty. XBrowse internally assigns these values. XBrowse shows UpArrow bitmap for the column where cOrder is 'A' or downarrow bitmap if cOrder is 'D' and no sort bitmaps for all other columns.

When use clicks on Header of a Column, XBrowse checks for the value in the column's DATA cSortOrder. If the value is codeblock, it executes the codeblock and assigns the return value to cOrder and redraws the headers.

Regards

G. N. Rao.

Hyderabad, India

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Consulta xBrowse
Posted: Sat Feb 19, 2011 02:02 PM

G.N.Rao
many thanks; that is what needed

regards

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Consulta xBrowse - TEMA CERRADO
Posted: Mon Feb 21, 2011 02:10 PM

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Consulta xBrowse
Posted: Mon Feb 21, 2011 03:43 PM

Disculpas, por haber escrito TEMA CERRADO
Algo debo estar haciendo mal. He cambiado el código de acuerdo a lo indicado por Rao, pero el efecto no es el esperado
(Rao, something is wrong in my code)

Code (fw): Select all Collapse

...
   // Browse
   WITH OBJECT ::oBrw:= ::SetdefaultBrws( h1:oWTab )
      :nFreeze:= 2
   END
   // IDObra
   WITH Object oCol:= ::oBrw:AddCol()
      ::SetDefaultCol( oCol, _CodObra )

      :bStrData     := {|| hb_ValToStr( ::aoTB[SFO_OBRAS]:FieldGet( Tb_CodObra ) ) }
      :bLClickHeader:= {|| ::Ordenar( _CodObra ) }
   END
   // Descripcion
   WITH Object oCol:= ::oBrw:AddCol()
      ::SetDefaultCol( oCol, _Desc_Obra )

      :bStrData     := {|| hb_ValToStr( ::aoTB[SFO_OBRAS]:FieldGet( Tb_Desc_Obra ) ) }
      :bLClickHeader:= {|| ::Ordenar( _Desc_Obra ) }
   END
   // Precio
   WITH Object oCol:= ::oBrw:AddCol()
      ::SetDefaultCol( oCol, _Precio_Ofic  )

      :bStrData     := {|| Trans( ::aoTB[SFO_OBRAS]:FieldGet( Tb_Prec_Ofic ), PIC_ONCE ) }
      :bLClickHeader:= {|| ::Ordenar( _Precio_Ofic  ) }
   END

   WITH OBJECT ::oBrw
      :SetMySql( ::aoTB[SFO_OBRAS], .f. )
      :bSkip := { | n | ::oBrw:oMysql:Skipper( n ) }

      :CreateFromCode()
   END

   h1:oWTab:oClient:= ::oBrw
   ::oBrw:SetFocus()

   return( nil )

// ------------------------
METHOD Ordenar( nCol )   CLASS TSFOTablas
   WITH OBJECT oCol:= ::oBrw:aCols[nCol]
      :cSortOrder := {|o| ::aoTB[SFO_OBRAS]:SetOrderBy( nCol,, TRUE ), "A" }
      :bClrHeader := {|o| If( Empty( oCol:cOrder ), { CLR_BLACK, GetSysColor( COLOR_BTNFACE ) }, ;
                                                    { CLR_HBLUE, GetSysColor( COLOR_BTNFACE ) } ) }
   END
   ::oBrw:GoTop()
   ::oBrw:Refresh()

   return( nil )

Al ejecutar la aplicación y hacer clic en cada columna, la primera vez, no ocurre nada; la segunda vez ordena como se espera.
Ahora bien, en acciones siguientes, al hacer solo un clic, ya se produce el efecto.
Que falta?

Rao, sorry for my english
When run my app and click in each column, the first time, nothing do. If I click again, in any column, the sort it happens.
what is lacking?

regards

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Consulta xBrowse
Posted: Thu Feb 24, 2011 02:14 PM

Gente:
Esta solución no funciona:

Code (fw): Select all Collapse

// ------------------------
METHOD Ordenar( nCol )   CLASS TSFOTablas
   WITH OBJECT oCol:= ::oBrw:aCols[nCol]
      :cSortOrder := {|o| ::aoTB[SFO_OBRAS]:SetOrderBy( nCol,, TRUE ), "A" }
      :bClrHeader := {|o| If( Empty( oCol:cOrder ), { CLR_BLACK, GetSysColor( COLOR_BTNFACE ) }, ;
                                                    { CLR_HBLUE, GetSysColor( COLOR_BTNFACE ) } ) }
   END
...

Por alguna razón que no entiendo, para que funcione, debo hacer un primer clic sobre una columna y, a partir de los clic siguientes el efecto si funciona de acuerdo a lo esperado.

Por ahora lo soluciono así:

Code (fw): Select all Collapse

   ::aoTB[SFO_OBRAS]:SetOrderBy( nCol,, TRUE )
   aEval( ::oBrw:aCols, {|o| o:cOrder:= "", ;
                             o:oHeaderFont:= ::oBrw:oFont } )
   WITH OBJECT oCol:= ::oBrw:aCols[nCol]
      :cOrder     := "A"
      :oHeaderFont:= ::hFont["SysFontB"]
      :bClrHeader := {|o| if( Empty( oCol:cOrder ), { CLR_BLACK, GetSysColor( COLOR_BTNFACE ) }, ;
                                                    { CLR_HBLUE, GetSysColor( COLOR_BTNFACE ) } ) }
   END

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion