Hi Pritpal, after I add the two functions to my project, it run fine
I left the two changes into hbqt_slots.cpp indicated in previous mails.
Thanks a lot
CdQ
On Tue, Oct 20, 2009 at 11:58 PM, Pritpal Bedi <bediprit...@hotmail.com>wrote:
>
> Hi
>
> #include "common.ch"
>
> STATIC qApp
>
> INIT PROCEDURE Qt_Start()
> qApp := QApplication():new()
> RETURN
>
> EXIT PROCEDURE Qt_End()
> qApp:quit()
> RETURN
>
> PROCEDURE Main()
> Local oWin
>
> // The following functions are to be called for each thread.
> // This change ensures more speed, initially every call to an event
> was checking for thread stack.
> //
> Qt_SetEventFilter()
> Qt_SetEventSlots()
>
> oWin := QMainWindow():new()
> oWin:ReSize( 640, 400 )
> oWin:Move( 10 , 10 )
> QT_CONNECT_EVENT( oWin:pPtr , 6 , {|o,e| My_Events( o , e ) } ) // *<--
> Cancel here*
> oWin:Show()
> qApp:exec()
> RETURN .T.
>
> Function My_Events( o , e )
> MsgInfo( "Key Pressed" )
> Return .T.
>
> STATIC FUNCTION MsgInfo( cMsg )
> LOCAL oMB
> oMB := QMessageBox():new()
> oMB:setInformativeText( cMsg )
> oMB:setWindowTitle( "Harbour-QT" )
> oMB:exec()
> RETURN nil
>
> #ifdef __PLATFORM__WINDOWS
> PROCEDURE hb_GtSys()
> HB_GT_GUI_DEFAULT()
> RETURN
> #endif
>
>
> Regards
> Pritpal Bedi
>
> --
> View this message in context:
> http://www.nabble.com/HbQt-and-Connect-Events-tp25976580p25985786.html
> Sent from the Harbour - Dev mailing list archive at Nabble.com.
>
> _______________________________________________
> Harbour mailing list
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
--
QAC (I want something comfortable !!!) - Incremental Compilation with all
MiniGUIs versions
QAC (Quiero Algo Cómodo !!!) - Compilación Incremental con todas las
versiones de MiniGUI
Download: www.CarozoDeQuilmes.com.ar
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
