ich habe meine Clipper Anwendungen alle im CRT Fenster laufen. Nun wollte ich anfangen auf GUI umzustellen.
aus einem CRT Fenster (Objekt oCRT) rufe ich auf:
Code: Alles auswählen
function Dialog
LOCAL nEvent, mp1, mp2, oDlg
// Dialogfenster versteckt erzeugen
oDlg := XbpDialog():new( oCRT,,{10,10}, {600,400},, .F. )
oDlg:icon := -1
oDlg:taskList := .f.
oDlg:title := "Titel"
oDlg:titlebar := .t.
oDlg:maxbutton:= .F.
oDlg:minbutton:= .F.
oDlg:border:= XBPDLG_DLGBORDER
oDlg:drawingArea:setFontCompoundName( "8.Helv" )
oDlg:create()
// Pushbutton erzeugen
butt1:= XbpPushButton():new( oDlg ,, {10,10}, {100,30})
butt1:caption := "Abbruch"
butt1:create( , , {10,20}, {100,40} )
butt1:activate := {|| PostAppEvent( xbeP_Close) }
oDlg:show()
SetAppFocus( oDlg )
// Event loop
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oDlg )
oDlg:HandleEvent( nEvent, mp1, mp2 )
ENDDO
oCrt:show()
SetAppFocus( oCRT )
SetAppWindow ( oCrt )
oDlg:Destroy()
return .t.
Wo liegt mein Fehler
Danke
Wolfgang