4D Doc Center : WR LOCK COMMAND

Home

4D Write v14

WR LOCK COMMAND


WR LOCK COMMAND ( Bereich ; Befehlsnummer ; Gesperrt )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
Befehlsnummer	Lange Ganzzahl	Nummer des auszuführenden Befehls
Gesperrt	Ganzzahl	0=erlaubt die Ausführung, 1=untersagt die Ausführung

Beschreibung

Der Befehl WR LOCK COMMAND verhindert, dass ein Benutzer den Befehl mit der Nummer Befehlsnummer ausführen kann. Das kann sowohl ein Menübefehl als auch ein Befehl der Werkzeugpalette sein. Dieser Befehl gilt nur für den Benutzerzugriff auf den angegebenen Befehl im 4D Write Bereich Bereich. In anderen 4D Write Bereichen ist der Befehl weiter zugänglich.

Im Parameter Gesperrt können Sie eine Konstante unter dem Thema WR Parameter übergeben:

Konstante	Typ	Wert	Meldung
wr enabled command	Lange Ganzzahl	0	Der aufgerufene Befehl wird ausgeführt.
wr locked command	Lange Ganzzahl	1	Der aufgerufene Befehl wird nicht ausgeführt. Er wird in den entsprechenden Menüs und Paletten deaktiviert, d.h. in Grauschrift gesetzt.

Hinweise:

Selbst wenn ein Befehl gesperrt ist, lässt sich Ihr Code mit dem Befehl WR EXECUTE COMMAND weiter ausführen.
WR ON COMMAND wird nicht aufgerufen, wenn der Benutzer versucht, einen inaktiven Befehl aufzurufen.
Wird in Befehlsnummer ein Menü oder Untermenü ausgeführt, wird das Menü und die dazugehörigen Befehle deaktiviert, d.h. in Grauschrift gesetzt.

Selbst wenn sich Befehle eines gesperrten Menüs nicht auswählen lassen, sind Tastaturkürzel oder Icons der Werkzeugleisten weiter ausführbar. Diese Befehle sind nur vollständig gesperrt, wenn Sie für jeden einzelnen den Befehl WR LOCK COMMAND aufrufen.

Die Liste der Menüs, Befehle und dazugehörigen Referenzen finden Sie in den 4D Write Konstanten unter dem Thema WR Befehle. Sie können entweder einen Konstantennamen oder einen Wert übergeben.

Beispiel 1

Sie möchten den Zugriff auf den Designmodus für den Designer gestatten, für alle anderen Benutzer untersagen:

 If(Current user="Designer")

    WR LOCK COMMAND(Bereich;wr cmd insert 4D expression;wr enabled command)

 Else

    WR LOCK COMMAND(Bereich;wr cmd insert 4D expression;wr locked command)

 End if

Beispiel 2

Lautet der Benutzername nicht "Guru", kann er bzw. sie keine neuen Dokumente erstellen:

 If(Form event=On Load)

    If(Current user#"Guru")

       WR LOCK COMMAND(Bereich;wr cmd new;wr locked command)

    End if

 End if