Code: Alles auswählen
#include "Appevent.ch"
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp
// Pushbutton erzeugen
oXbp:= XbpPushButton():new( SetAppWindow():drawingArea )
oXbp:caption := "Abbruch"
oXbp:create( , , {10,20}, {100,40} )
oXbp:activate := {|| PostAppEvent( xbeP_Close) }
// Event loop
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:HandleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
Mein Beispiel:
Code: Alles auswählen
FUNCTION buchungktovt_gui()
LOCAL mp1 := 0
LOCAL mp2 := 0
LOCAL nEvent := 0
LOCAL oBuchKto := buchungskonto():new():initvaria():dbOpen()
LOCAL oXbp
MEMVAR oBild
oBuchKto:maske_gui()
oBild:MenueHorizontal_Gui(oBuchKto)
SetAppFocus(oBuchKto:oEingabeFenster)
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent(@mp1, @mp2, @oXbp)
oXbp:handleEvent(nEvent, mp1, mp2)
ENDDO .T.
oBuchKto:closeDb()
oBuchKto:oEingabeFenster:destroy()
RETURN(.T.)
Beim Compilieren meines Beispieles wird immer oXbp angemeckert, weil es vor der Benutzung nicht gesetzt wurde. Aber was soll ich da setzen? Welchen Wert?