lockUpdate

[andreas]

Hallo Leute,

benutzt jemand die Methode

Code: Alles auswählen

lockUpdate

, um Bildschirmausgabe zu sperren bzw. freizugeben.
Ich habe diese folgend eingebaut, damit nach dem Resize meines Fenster die Reste von XBPBrowse nicht überbleiben, aber es funktioniert irgendwie nicht.

Code: Alles auswählen

::resize := {|| ::lockUpdate(.t.), Resize( ::oBrowse, ::currentSize(), {584,308} ),::oBrowse:RefreshAll(), ::lockUpdate(.f.) }

Für alle Fälle die Resize-Function:

Code: Alles auswählen

Function Resize (oObject, aSize, aStartSize)

	IF oObject!=NIL .AND. aSize!=NIL   .AND. aStartSize!=NIL
		IF valtype(oObject)=="O" .AND. valtype(aSize)=="A"   .AND. valtype(aStartSize)=="A"

			oObject:setsize( {aSize[1]-(600-aStartSize[1]), aSize[2]-(400-aStartSize[2])} )

		else
			msgbox("Funktion RESIZE: Falscher Parametertyp.","Fehler")
		ENDIF
	else
		msgbox("Funktion RESIZE: fehlende Parameter.","Fehler")
	ENDIF
RETURN nil

[Martin Altmann]

Hallo Andreas,
ich nutze sie zwar nicht, aber müßten nicht Deine beiden letzten Anweisungen vertauscht werden?

Code: Alles auswählen

::resize := {|| ::lockUpdate(.t.), Resize( ::oBrowse, ::currentSize(), {584,308} ), ::lockUpdate(.f.), ::oBrowse:RefreshAll() }

Viele Grüße,
Martin

[andreas]

Hallo Martin,

ich habe das auch schon ausprobiert, hat aber nichts gebracht.

Ich hatte schon mal früher es ihrgend wo mal eingebaut, wo es auch funktioniert hat, finde aber die Stelle nicht mehr.

[olaf870]

Hallo andreas,

lockupdate() nicht nötig, um von dem von Dir gewünschten resultat zukommen. Warum bei dir Reste übrig bleiben, ist auf den ersten Blick nicht erkennbar.
Mach doch aber mal ein self:invalidaterec() , dann müßte auf jeden Fall der Bildschirm sauber wieder aufgebaut werden.

Gruß
Olaf

[andreas]

Danke, das hat geholfen.
Ich habe es folgendermassen geändert:

Code: Alles auswählen

::resize := {|| Resize( ::oBrowse, ::currentSize(), {584,308} ),::oBrowse:RefreshAll(), ::invalidateRect() }