xBrowse com colunas aleatórias a partir versão 17.05 da fwh

[Jmsilva]

@cnavarro e demais Olá!

O exemplo abaixo funciona corretamente até a versão FWH 10.11 (nov2010), depois que fiz atualização para 17.05  exibe apenas uma coluna.

Compilei com a ver 10.11 está ok, na 17.05 somente uma coluna, gostaria de saber se nas versões pós 17.05 o problema persiste.

Obrigado!

 

/*
 * Project: xbrw
 * File: xbrw.prg
 * Description:
 * Author:
 * Date: 03-04-2018
 */
#include "fivewin.ch"

**===================================================================
Function main()
**===================================================================
Local oDlg,oExec,oBrw,cTitle
Local aVet := {{1,2,3},{4,5,6},{7,8,9}}
Local aVet1 := {{"a","b","c","d"},{"e","f","g","h"},{"i","j","k","l"}}

DEFINE DIALOG oDlg SIZE 680,360 TITLE "Teste xBrowse colunas aleatorias"

@ 2,3 XBROWSE oBrw ;
      SIZE 220, 170 PIXEL ;
      OF oDlg ;
      ARRAY {} AUTOCOLS ;
      LINES
oBrw:CreateFromCode()

@ 080, 270 BTNBMP oExec prompt "Vet" SIZE 60,20 CENTER 2007;
           OF oDlg ACTION oBrw:SetArray(aVet)


@ 140, 270 BTNBMP oExec prompt "Vet1" SIZE 60,20 CENTER 2007;
           OF oDlg ACTION oBrw:SetArray(aVet1)

ACTIVATE DIALOG oDlg CENTER //on init XBrowse(oBrw)


RETURN NIL

 

 

[cnavarro]

Intente con este código

OF oDlg ACTION ( oBrw:aCols := {}, oBrw:SetArray(aVet) )

[Jmsilva]

Muy Bueno, gracias !

regards, saludos

JMSilva