[Hwgui-developers] Error Dialog objects.

[Itamar M. L. J. L. <ita...@gm...>]

>From user Leonardo Machado.

Error HCUSTOMWINDOW/0  Invalid class member
Called from ->HDIALOG:OTIME_MSG(225)
Called from ->(b)MY_MSGINFO(48)
Called from ->HBUTTONEX:ONCLICK(401)
Called from ->(b)HBUTTONX_NEW(312)
Called from ->ONDLGCOMMAND(335)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(182)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->MY_MSGINFO(52)
Called from ->MAIN(17)

HWGUI 2.19 Build 1
Date:02/13/15
Time:18:31:16

-------------------------------->8-------------------
#pragma /w2
#pragma /es2

#include "hwgui.ch"
#include "hwg_extctrl.ch"

STATIC Thisform
STATIC nTempo := 0

FUNCTION MAIN()

MY_MSGINFO('test hwgui',30)

RETURN(.T.)

*******************************
FUNCTION MY_MSGINFO(cTIT,cTempo)
*******************************
Local oSAY, oButton1, oDlg
Local oTime_MSG

IF nTempo <> 0
   nTempo :=0
ENDIF

IF cTempo=Nil
   cTempo=30
ENDIF

INIT DIALOG oDlg TITLE "test hwgui" NOEXIT NOEXITESC ;
AT 0,0 SIZE 400,105 ;
ICON HIcon():AddResource(1001) ;
STYLE DS_CENTER +WS_VISIBLE
Thisform := oDlg

@ 10,15 SAY oSAY CAPTION cTIT SIZE 400,20;
STYLE SS_CENTER;
FONT HFont():Add( '',0,-11,400,,,)

@ 150,40 BUTTONEX oButton1 Caption "&OK" ON CLICK {||
(Thisform:oTime_MSG:end()), Thisform:Close() };
SIZE 60,22 STYLE WS_TABSTOP + DS_CENTER ;
FONT HFont():Add( '',0,-12,400,,,);
TOOLTIP "Clique Aqui Para Proseguir"

SET TIMER oTIME_MSG OF oDlg ID 9007 VALUE 1000 ACTION {||
ATUALIZA_TIMER(cTempo) }

ACTIVATE DIALOG oDlg

Return(.t.)

**************************************
STATIC FUNCTION ATUALIZA_TIMER(cTempo)
**************************************
nTempo++
IF nTempo=cTempo
   Thisform:oTime_MSG:end()
   Thisform:Close()
ENDIF
//HWG_DOEVENTS()
Thisform:oButton1:SETTEXT("&OK-"+alltrim(str(cTempo-nTempo)) )
Thisform:oButton1:REFRESH()
RETURN(.T.)


Best regards,
Itamar M. Lins Jr.