ich habe ein kleines Testprogramm installiert. Ein Anwendungsfenster und ein weiteres Fenster darin.
Code: Alles auswählen
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp, aPos[2], aSize, nHeight:=500, nWidth := 715
// Größe vom DeskTop feststellen
// um Anwendungsfenster zu zentrieren
aSize := SetAppWindow():currentSize()
aPos[1] := Int( (aSize[1]-nWidth ) / 2 )
aPos[2] := Int( (aSize[2]-nHeight) / 2 )
// Anwendungsfenster erzeugen
oFensterStart := XbpDialog():new()
oFensterStart:border := XBPDLG_DLGBORDER
oFensterStart:taskList := .T.
oFensterStart:title := "Timechecker"
oFensterStart:maxButton:= .T.
oFensterStart:create( ,, aPos, {nWidth, nHeight},, .T. )
// Fenster erzeugen
oFensterl := XbpDialog():new()
oFensterl :border := XBPDLG_DLGBORDER
oFensterl :taskList := .T.
oFensterl :title := "Fenster links"
oFensterl :maxButton:= .T.
oFensterl :create(oFensterstart:drawingArea ,, {8,100}, {348,357},, .T. )
SetAppWindow( oFensterl )
SetAppFocus ( oFensterl )
DO WHILE .T.
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
mfg
Wolfgang