Good news started Reliability for QT & XHB
2009/10/21 CarozoDeQuilmes <[email protected]>: > 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 <[email protected]> > 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 >> [email protected] >> 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 > [email protected] > http://lists.harbour-project.org/mailman/listinfo/harbour > > -- Massimo Belgrano _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
