problem painting xBrowse

[MOISES]

Hello,

There's a painting problem with xBrowse. It doesn't paint the whole width at once, but first it paints up to the middle of the screen and then it widens.

This is a sample:

Code: Select all  Expand view

#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

 

Thank you very much.

[FranciscoA]

Prueba asi:

Code: Select all  Expand view

#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:nWidth := ScreenWidth()
   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 oWnd ;      // <<-----
              SIZE 80, 20 PIXEL                   ;
              ACTION ( alert(oGrid:Refresh()) )


ACTIVATE WINDOW oWnd MAXIMIZED


Return nil

 

Saludos.

[MOISES]

Thank you.

Now it happens with the lower half of the xBrowse, including the horizontal scroll bar.

[MOISES]

Up