ich hab wieder ein mal das Vergnügen mich in XBase einzuarbeiten und versuche gerade eine simple GUI-Anwendung mit XbpDialog zum Testen zu erstellen.
Das Fenster geht auf und reagiert auf das Close-Ereignis. Jetzt wollte ich eigentlich, dass in nem StaticText-Object andere Events angezeigt werden ( Str( nEvent ) ).
Nachdem das nicht funktionierte habe ich das Event noch etwas eingegrenzt aber es funktioniert dennoch nicht.
Code: Alles auswählen
#include "Appevent.ch"
#include "Xbp.ch"
PROCEDURE Main
LOCAL nPara, nIter, cParas
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oTxtCapt, cTxtCapt
AppSys()
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oStat := SetAppWindow():childFromName( 1001 )
IF nEvent == xbeK_ESC
oStat:setCaption( "Esc pressed" )
ENDIF
oXbp:HandleEvent( nEvent, mp1,mp2 )
ENDDO
RETURN
PROCEDURE AppSys
LOCAL aSize, oDlg
aSize := {500,500} // SetAppWindow():currentSize()
oDlg := XbpDialog():new()
oDlg:title := "Test-Application"
oDlg:create( nil,nil, {100,100},{200,100},nil, .t. )
oTxtCapt := XbpStatic():new()
oTxtCapt:setName( 1001 )
oTxtCapt:type := XBPSTATIC_TYPE_TEXT
oTxtCapt:autoSize := .t.
oTxtCapt:caption := "Event: "
oTxtCapt:create( oDlg:drawingArea, , {50,50},{200,100},, .t. )
oDlg:show()
SetAppWindow( oDlg )
SetAppFocus( oDlg )
RETURN
Danke schon mal für nen Hinweis der mich in die richtige Richtung weiterführt.