|
|
|
|
|
|
|
|
|
|
Version 6.0
WR GET SELECTION (Bereich; AnfAusw; EndAusw)
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl |  | 4D Write Bereich |
| AnfAusw | Lange Ganzzahl |  | Erhält erstes Zeichen der Auswahl |
| EndAusw | Lange Ganzzahl | | Erhält letztes Zeichen der Auswahl |
Beschreibung
Der Befehl WR GET SELECTION gibt in den Variablen AnfAusw und EndAusw Anfangs- und Endposition des ausgewählten Textes in Bereich zurück.
AnfAusw ist immer ein Zeichen weniger als das erste ausgewählte Zeichen. EndAusw ist immer gleich dem letzten ausgewählten Zeichen. Wurde kein Text ausgewählt, sind AnfAusw und EndAusw gleich und entsprechen der Einfügemarke.
Beispiel
Folgendes Beispiel ändert die Ränder des gesamten Dokuments, behält aber zugleich die aktuelle Auswahl bei:
WR GET SELECTION(Bereich;AnfAusw;EndAusw) `Merke aktuelle Auswahl WR EXECUTE COMMAND(Bereich;wr cmd select all) `Alles auswählen `Setze Ränder WR SET TEXT PROPERTY(Bereich;wr left margin;49) WR SET TEXT PROPERTY(Bereich;wr first indent;49) WR SET TEXT PROPERTY(Bereich;wr right margin;504) WR SET SELECTION(Bereich;AnfAusw;EndAusw) `Ursprüngliche Auswahl
|
|
|
|
|
|
|
|
|
|