nach langer Zeit beschäftige ich mich wieder mal mit xBase und bin dabei auf ein kleines Problem gestossen, dass mich jetzt schon 2 volle Tage beschäftigt. Ich möchte in meine Windows-Applikation ein Crt-Modul einbauen. Mit den bordeigenen Mitteln von xBase bekomme ich ein leeres Fenster erstellt und angezeigt. Wenn ich jedoch "Clipper" Befehle wie @ Say, @get, Setmouse(), Setcolor() einsetzen will, bricht mir die Anwendung ab. Wahrscheinlich ist es nur ein winziger Befehl, ein Include oder was ähnliches was dieses Problem verursacht.
Wo liegt jetzt mein Problem ?#include "Appevent.ch"
#include "Font.ch"
#include "Gra.ch"
#include "Xbp.ch" /*
* Normales XbpCrt-Fenster (h„ufigste Konfiguration)
*/
PROCEDURE Crt_Fenster()
LOCAL oCrt, oXbp, aPos, aSize := {640,400}
LOCAL oParent := AppDesktop()
aPos := CenterPos( aSize, oParent:currentSize() )
oCrt := XbpCrt():new( oParent, , aPos, 25, 80 )
oCrt:taskList := .T.
oCrt:title := "Normales XbpCrt-Fenster auf dem Desktop"
oCrt:close := {|mp1,mp2,obj| obj:destroy() }
oCrt:create()
@ 8, 30 PROMPT "1 - Einzelwertung "
@ 10, 30 PROMPT "2 - Team-Wertungen"
@ 12, 30 PROMPT "3 - Online-Liga "
@ 16, 30 PROMPT "X - Ende "
oXbp := XbpPushButton():new( oCrt, , {12,12}, {84,24} )
oXbp:caption := "Schließen"
oXbp:create()
oXbp:activate := {|| PostAppEvent(xbeP_Close,,, oCrt) }
RETURN
STATIC FUNCTION CenterPos( aSize, aRefSize )
RETURN { Int( (aRefSize[1] - aSize[1]) / 2 ) ;
, Int( (aRefSize[2] - aSize[2]) / 2 ) }
Vielen Dank im voraus für eine Hilfe.
Gruß
Lutz