84f5afb216
* contrib/hbtpathy/telepath.prg
* using hb_default() instead of rolling it manually
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/gtwvg/tests/wvgmodal.prg
* contrib/hbhttpd/core.prg
* contrib/hbhttpd/log.prg
* contrib/hbide/hbqreportsmanager.prg
* contrib/hbide/hbqtoolbar.prg
* contrib/hbide/idebrowse.prg
* contrib/hbide/ideconsole.prg
* contrib/hbide/idedict.prg
* contrib/hbide/idedocks.prg
* contrib/hbide/ideedit.prg
* contrib/hbide/ideeditor.prg
* contrib/hbide/idefindreplace.prg
* contrib/hbide/ideharbourhelp.prg
* contrib/hbide/idemisc.prg
* contrib/hbide/ideprojmanager.prg
* contrib/hbide/ideshortcuts.prg
* contrib/hbide/idesources.prg
* contrib/hbide/idestylesheets.prg
* contrib/hbide/idethemes.prg
* contrib/hbide/idetools.prg
* contrib/hbide/ideuisrcmanager.prg
* contrib/hbmagic/hbmagis.prg
* contrib/hbmxml/tests/custom.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.prg
* contrib/hbnetio/utils/hbnetio/netiosrv.prg
* contrib/hbnf/menutonf.prg
* contrib/hbnf/ontick.prg
* contrib/hboslib/core.prg
* contrib/hbqt/tests/cls_dbstruct.prg
* contrib/hbqt/tests/demoqt.prg
* contrib/hbxbp/tests/xbpqtc.prg
* contrib/xhb/stream.prg
* contrib/xhb/xhbole.prg
* examples/hbxlsxml/xlsxml_s.prg
* examples/hbxlsxml/xlsxml_y.prg
* examples/hbxlsxml/xlsxml.prg
* tests/parseini.prg
* formatting HB_IS*() calls
! using HB_ISSTRING() instead of HB_ISCHAR() on .prg level
* utils/hbmk2/hbmk2.prg
! minor typo on help screen
139 lines
3.2 KiB
Plaintext
139 lines
3.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
<CLASS> . Do not edit lines in this section!
|
|
NAME = ui_dbstruct
|
|
</CLASS>
|
|
*/
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#include "hbclass.ch"
|
|
#include "error.ch"
|
|
#include "hbqtgui.ch"
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
CLASS ui_dbstruct
|
|
|
|
DATA oParent
|
|
|
|
/* <METHODSCOMMON> . Do not edit lines in this section! */
|
|
METHOD new( oParent )
|
|
METHOD create( oParent )
|
|
METHOD destroy()
|
|
METHOD connects()
|
|
METHOD disconnects()
|
|
ERROR HANDLER __OnError( ... )
|
|
/* </METHODSCOMMON> */
|
|
|
|
/* <METHODSEVENTS> . Do not edit lines in this section! */
|
|
METHOD buttonAdd_Activated( ... )
|
|
/* </METHODSEVENTS> */
|
|
|
|
PROTECTED:
|
|
DATA oUI
|
|
|
|
ENDCLASS
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:new( oParent )
|
|
|
|
hb_default( @oParent, ::oParent )
|
|
::oParent := oParent
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:create( oParent )
|
|
|
|
hb_default( @oParent, ::oParent )
|
|
::oParent := oParent
|
|
|
|
::oUI := hbqtui_dbstruct( ::oParent )
|
|
|
|
::connects()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:destroy()
|
|
|
|
IF HB_ISOBJECT( ::oUI )
|
|
::disconnects()
|
|
::oUI:destroy()
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:__OnError( ... )
|
|
LOCAL cMsg := __GetMessage()
|
|
LOCAL oError
|
|
|
|
IF SubStr( cMsg, 1, 1 ) == "_"
|
|
cMsg := SubStr( cMsg, 2 )
|
|
ENDIF
|
|
|
|
IF Left( cMsg, 2 ) == "Q_"
|
|
IF SubStr( cMsg, 3 ) $ ::oUI:qObj
|
|
RETURN ::oUI:qObj[ SubStr( cMsg, 3 ) ]
|
|
ELSE
|
|
oError := ErrorNew()
|
|
|
|
oError:severity := ES_ERROR
|
|
oError:genCode := EG_ARG
|
|
oError:subSystem := "HBQT"
|
|
oError:subCode := 1001
|
|
oError:canRetry := .F.
|
|
oError:canDefault := .F.
|
|
oError:Args := hb_AParams()
|
|
oError:operation := ProcName()
|
|
oError:Description := "Control <" + substr( cMsg, 3 ) + "> does not exist"
|
|
|
|
Eval( ErrorBlock(), oError )
|
|
ENDIF
|
|
ELSEIF ::oUI:oWidget:hasValidPointer()
|
|
RETURN ::oUI:oWidget:&cMsg( ... )
|
|
ENDIF
|
|
|
|
RETURN NIL
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:connects()
|
|
|
|
/* <CONNECTS> . Do not edit lines in this section! */
|
|
::oUI:qObj[ "buttonAdd" ]:connect( "clicked()", {|...| ::buttonAdd_Activated( ... ) } )
|
|
/* </CONNECTS> */
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD ui_dbstruct:disconnects()
|
|
|
|
/* <DISCONNECTS> . Do not edit lines in this section! */
|
|
/* </DISCONNECTS> */
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
/* <EVENTSMETHODAREA> . Do not edit code in this section! */
|
|
METHOD ui_dbstruct:buttonAdd_Activated( ... )
|
|
Local oMsg
|
|
|
|
oMsg := QMessageBox()
|
|
oMsg:setText( "I am just clicked and fine " )
|
|
oMsg:exec()
|
|
|
|
RETURN Self
|
|
|
|
/* </EVENTSMETHODAREA> */
|
|
/*----------------------------------------------------------------------*/
|