27 Nov 2020 16:24
hb_gtInfo( HB_GTI_NOTIFIERBLOCKGUI, {| nEvent, ... | t_oCrt:notifier( nEvent, ... ) } )
27 Nov 2020 17:47
27 Nov 2020 17:56
asimoes escreveu:Mostra um exemplo Quintas
27 Nov 2020 20:11
29 Nov 2020 07:32
29 Nov 2020 19:42
30 Nov 2020 21:47
01 Dez 2020 04:03
01 Dez 2020 06:36
01 Dez 2020 11:58
hb_gtInfo( HB_GTI_NOTIFIERBLOCKGUI, {| nEvent, ... | t_oCrt:notifier( nEvent, ... ) } )
02 Dez 2020 11:46
02 Dez 2020 21:41
SYSTEM ERROR
Error BASE/2010 Argument error: WAPI_SETTEXTCOLOR
Called from WAPI_SETTEXTCOLOR(0)
Called from WVGTSTICON:HANDLEEVENT(561)
Called from WVGCRT:NOTIFIER(393)
Called from (b)WVGSETAPPWINDOW(78)
Called from WAPI_ENABLEWINDOW(0)
Called from WVGTSTICON:DISABLE(409)
...
02 Dez 2020 22:19
03 Dez 2020 17:47
asimoes escreveu:Isso é OnEvent na hwgui fica executando como se fosse uma thread
Todas as classes se não me engano tem o seu OnEvent
CLASS wvgWindow
...
METHOD wvgWindow:HandleEvent()
CLASS toolbar INHERIT wvgWindow, wvgPartHandler, wvgOutra
METHOD x()
::wvgWindow:HandleEvent()
04 Dez 2020 15:02
CLASS HGT INHERIT HMainWindow
METHOD New() INLINE ::Super:New(), ::Handle := hb_gtInfo( HB_GTI_WINHANDLE ), Self
ENDCLASS
THREAD STATIC MainWVT
FUNCTION MainGT()
IF Empty( MainWVT )
MainWVT := HGT():New()
MainWVT:Handle := hb_gtInfo( HB_GTI_WINHANDLE )
hb_gtInfo( HB_GTI_NOTIFIERBLOCKGUI, { | nEvent, ... | MainWVT:OnEvent( nEvent, ... ) } )
//MainWVT:IsGT := .T.
ENDIF
RETURN MainWVT
EXIT PROCEDURE KillGTChildren()
IF HB_ISOBJECT( MainWVT ) .AND. MainWVT:ClassName() == "WVTCRT" .AND. MainWVT:isGT
MainWVT:destroy()
MainWVT := NIL
ENDIF
RETURN