- Author / Company
- idlagam.com
correção erro
Se ao teclar ENTER no browse de array e ocorrer o erro:Error BASE/1004 Class: 'NIL' has no exported method: PROPS2ARR
A solução é simples: defina a fonte na janela. Mesmo que o browse esteja em outro container (panel...) sem fonte, não ocorrerá o erro.
A princípio isso não é um bug, mas um requisito da janela (melhor se a janela assumisse uma fonte padrão para evitar o erro).
Código exemplo completo:
C-like:
/* Eric - www.idlagam.com
https://devclub.idlagam.com
https://www.facebook.com/MDevClub
*/
#include 'hwgui.ch'
function main
SET DATE BRITISH
SET CENTURY ON
SET EPOCH TO 1999
teste()
return nil
function teste()
local oDlg, oBrw
INIT DIALOG oDlg TITLE 'Browse Array - DevClub.idlagam.com' ;
AT 0,0 SIZE 600, 280 NOEXIT ;
STYLE WS_DLGFRAME + WS_SYSMENU + DS_CENTER ;
FONT HFont():Add( 'Courier',0,-12 )
//FONT HFont():Add( 'Arial',0,-12 )
@20, 20 BROWSE ARRAY oBrw SIZE 560, 220
hwg_CreateArList(oBrw, directory('*.*') )
with object oBrw
:aHeadPadding:={4, 4, 4, 4}
:Freeze:=1
if ! EMPTY(:aArray)
:acolumns[1]:heading:='Nome'
:acolumns[1]:length :=25
:acolumns[1]:picture:='@!'
:acolumns[2]:heading:='Tamanho'
:acolumns[2]:nJusLin:=DT_RIGHT
:acolumns[3]:heading:='Data'
:acolumns[4]:heading:='Hora'
:acolumns[5]:heading:='Atrib'
endif
end with
oDlg:Activate()
return nil
#ifdef __XHARBOUR__
function hb_CODEPAGE_UTF8()
return nil
#endif
