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
#include "fivewin.ch"#include "xbrowse.ch"function main()local oWndlocal oGridlocal 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 MAXIMIZEDReturn nil
Muchas gracias.