Code: Alles auswählen
#include "gra.ch"
#include "xbp.ch"
#include "Appevent.ch"
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oDlg, oDraw, oStatic, cText
SetColor( "N/W" )
CLS
SetAppwindow():useShortCuts := .T.
app2:= {{XBP_PP_COMPOUNDNAME, "20.Courier New" }}
oStatic := XbpStatic():new( oDraw,, {70, 140}, {400, 100},app2 )
oStatic:caption := "Test & up"
oStatic:create()
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
Danke Wolfgang