Ich mache für mein Programm folgendes Fenster auf .. das ist auch das einzige:
Code: Alles auswählen
aSizeDesktop := AppDesktop():currentSize()
oCrt := SetAppWindow()
oCrt:icon:=1
oCrt:FontWidth := monitor1->Fontw
oCrt:FontHeight := monitor1->Fonth
oCrt:FontName := "Lucida Console"
oPos := oCrt:currentSize()
aPos := { (aSizeDesktop[1]-oPos[1]) /2, (aSizeDesktop[2]-oPos[2]) /2}
oCrt:configure(NIL, NIL, apos ,monitor1->Spalte,monitor1->Zeile)
oCrt:setPos( { monitor1->pos1 , monitor1->pos2 } )
oCrt:setTitle( "Test" )
danach überprüfe ich einige Daten ...
auf dem Bildschirm wird dann z.B. mit ? "Bitte Warten " oder was mit SAY angezeigt ... ich habe versucht da im Hintergrund solange ein Bild zu laden und anzuzeigen
... ist mir aber nur gelungen in dem ein neues Fenster aufgegangen ist ...
Das Bild sollte nach dem obigen CODE geladen werden .... das sich die Zeilen bzw Spalten Anzahl je nach Monitor unterschiedlich sein kann sollte das Bild auch angepasst werden...
da muß ich doch dann mit folgendem CODE vorgehen:
Code: Alles auswählen
LOCAL oHintergrund
...
oHintergrund := XbpBitmap():new():create()
oHintergrund:loadfile("ABLUE.BMP")
...
und wie wird es dann in dem aktuellen Fenster angezeigt ?
mir würde aber erstmal reichen ein Bild überhaupt in den den Hintergrund zu laden ... und solange geladen zu lassen bis das Hauptmenü kommt .. vorher sollte es dann wieder entfernt werden bzw der Speicher freigegeben ...
hast jemand da was ... mit nem CODE mit dem ich testen Könnte... der zumindest in dieses Fenster ein Bild in den Hintergrund lädt ...
wie gesagt es soll kein neues Fenster aufgehen sondern nur ein Bild im Hintergrund dieses Fenster geladen werden und dann wieder gelöscht ...
ist ja beim mir ein CRT Fenster
Mfg Klaus