problema de pintado del xBrowse

[MOISES]

Hola:

Hay un problema de pintado. No pinta toda la anchura de una vez, sino que primero pinta el xBrowse hasta mitad de la pantalla, y luego lo ensancha. El efecto es bastante feo, pues parece que la app va a trompicones.

Aquí pongo un ejemplo:

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"



function main()

local oWnd
local oGrid
local oBtn, oGet1, oGet2




   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

 

   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER





    oGrid:CreateFromCode()


     @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oPanel ;
              SIZE 80, 20 PIXEL                   ;
              ACTION ( alert(oGrid:Refresh()) )


ACTIVATE WINDOW oWnd MAXIMIZED


Return nil

 

Muchas gracias.

[Cgallegoa]

Moises, así pinta bien:

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"


function main()
local oWnd
local oGrid
local oBtn, oGet1, oGet2

   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

ACTIVATE WINDOW oWnd MAXIMIZED ON INIT PintaBrw(oWnd)

Return nil
//**************************************************************************//

Function PintaBrw(oWnd)
LOCAL oGrid, oBtn
   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER

   oGrid:CreateFromCode()

   @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oWnd ;
            SIZE 80, 20 PIXEL                   ;
            ACTION ( alert(oGrid:Refresh()) )
Return(NIL)
//**************************************************************************//

Saludos,

[MOISES]

Muchas gracias Carlos.

[pacotre]

A vueltas con XBrowse.

Deseo que toda la linea que tiene el Focus aparezca con fondo azul, y no sólo la celda sobre la que está el cursor.

Lo he intentado con

oBrw:bClrSel := {|| { CLR_BLACK,fondo}}
oBrw:bClrSelFocus := {|| { CLR_BLACK,CRED}}
oBrw:bClrRowFocus := {|| { CLR_BLACK,letradialog}}

La única que responde a los cambios de color, y solo sobre la celda es oBrw:bClrSelFocus , las demás no hacen nada. Como puedo hacerlo?. Quiero que destaque toda la linea, como sí responde oBrw:bClrStd en función al contenido del registro.

Alguna solución?

Solucionado con oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Gracias

[leandro]

Intenta así

Code: Select all  Expand view  RUN

oBrw:nMarqueeStyle      := MARQSTYLE_HIGHLCELL

[jvtecheto]

A vueltas con XBrowse.

Deseo que toda la linea que tiene el Focus aparezca con fondo azul, y no sólo la celda sobre la que está el cursor.

Lo he intentado con

oBrw:bClrSel := {|| { CLR_BLACK,fondo}}
oBrw:bClrSelFocus := {|| { CLR_BLACK,CRED}}
oBrw:bClrRowFocus := {|| { CLR_BLACK,letradialog}}

La única que responde a los cambios de color, y solo sobre la celda es oBrw:bClrSelFocus , las demás no hacen nada. Como puedo hacerlo?. Quiero que destaque toda la linea, como sí responde oBrw:bClrStd en función al contenido del registro.

Alguna solución?

Solucionado con oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Gracias

Hostias Pacotre, has preguntado y solucionado en el mismo post. No lo habia visto en mi vida.

Perdon por el off-topic.

Saludos.

Jose.

[pacotre]

para no meter otro edité el primero una hora después. y así evitar molestias de responde a algo ya resuelto.

[nageswaragunupudi]

Hola:

Hay un problema de pintado. No pinta toda la anchura de una vez, sino que primero pinta el xBrowse hasta mitad de la pantalla, y luego lo ensancha. El efecto es bastante feo, pues parece que la app va a trompicones.

Aquí pongo un ejemplo:

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"



function main()

local oWnd
local oGrid
local oBtn, oGet1, oGet2




   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

 

   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER





    oGrid:CreateFromCode()


     @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oPanel ;
              SIZE 80, 20 PIXEL                   ;
              ACTION ( alert(oGrid:Refresh()) )


ACTIVATE WINDOW oWnd MAXIMIZED


Return nil

 

Muchas gracias.

After

Code: Select all  Expand view  RUN

 DEFINE WINDOW oWnd
   oWnd: nHeight : = ScreenHeight ( )
 

Add the line

Code: Select all  Expand view  RUN

oWnd:nWidth := ScreenWidth()
 

[MOISES]

With the change, the painting problem is transferred to the bottom of the xBrowse.