#include "FiveWin.ch"
function Main()
local oWnd := TMyWindow():New()
oWnd:Activate()
return nil
CLASS TMyWindow FROM TWindow
CLASSDATA lRegistered
METHOD HandleEvent( nMsg, nWParam, nLParam )
ENDCLASS
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TMyWindow
LogFile( "events.log", { nMsg, nWParam, nLParam } )
return Super:HandleEvent( nMsg, nWParam, nLParam )
#include "FiveWin.ch"
function Main()
local oWnd := TMyWindow():New()
oWnd:Activate()
return nil
CLASS TMyWindow FROM TWindow
CLASSDATA lRegistered
METHOD HandleEvent( nMsg, nWParam, nLParam )
ENDCLASS
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TMyWindow
LogFile( "events.log", { nMsg, nWParam, nLParam } )
if nMsg == 49713
MsgInfo( "rotate", nLParam )
endif
return Super:HandleEvent( nMsg, nWParam, nLParam )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 65 guests