|
|
|
|
|
|
|
|
|
|
Version 6.5
WR GET CURSOR POSITION (Bereich; Seite; Spalte; Zeile; Position)
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl |  | 4D Write Bereich |
| Seite | Lange Ganzzahl |  | Nummer der Seite, wo Auswahl ist |
| Spalte | Lange Ganzzahl | | Nummer der Spalte, wo Auswahl ist |
| Zeile | Lange Ganzzahl | | Nummer der Zeile in Spalte |
| Position | Lange Ganzzahl | | Position der Auswahl in aktueller Zeile |
Beschreibung
Der Befehl WR GET CURSOR POSITION gibt die Position der Auswahl im 4D Write Bereich Bereich zurück.
• Seite: Dieser Wert liegt zwischen der ersten und der letzten Seitennummer des Dokuments. Er berücksichtigt – sofern vorhanden – die Art der Numerierung in den Voreinstellungen.
• Spalte: Dieser Wert liegt zwischen 1 und der Gesamtanzahl der Spalten.
• Zeile: Dieser Wert liegt zwischen 1 und der Gesamtanzahl der Zeilen in den Spalten.
• Position: Dieser Wert liegt zwischen 1 und der Gesamtanzahl der Zeichen in der Zeile.
Enthält die Auswahl mehrere Zeichen, wird die Position des ersten Zeichens zurückgegeben.
Sie können später an diese Stelle zurückgehen, wenn Sie den Befehl WR SET CURSOR POSITION mit denselben Parametern verwenden.
Mit der Funktion WR Get frame bestimmen Sie, in welchem Bereich der Cursor liegt.
Beispiel
Der Benutzer soll immer, wenn Bedarf ist, ein Logo in den Kopfteil des Dokuments einfügen können, ohne dass dabei die aktuelle Position des Cursors im Text verlorengeht. Weisen Sie dazu einer Schaltfläche folgende Methode zu:
C_LONGINT($frame;$Col;$Line;$Pos) C_REAL($PictWidth;$PictHeight;$OrigWidth;$OrigHeight;$HeadTopMargin) `Welcher Rahmen des Dokuments enthält den Cursor? $frame:=WR Get frame(Bereich) `Erhalte aktuelle Cursor-Position WR GET CURSOR POSITION (Bereich;$Page;$Col;$Line;$Pos) `Platziere im Kopfteil des Dokuments WR SET FRAME (Bereich;wr right header) `Lade Datensatz mit dem einzufügenden Logo ALL RECORDS([Interface]) `Füge Logo ein WR INSERT PICTURE(Bereich;[Interface]Logo;0) `Wähle Logo und erhalte seine Größe WR SELECT(Bereich;4;1) WR GET PICTURE SIZE(Bereich;$PictWidth;$PictHeight;$OrigWidth;$OrigHeight) `Bild muss in Höhe des Kopfteils passen $HeadTopMargin:=WR Get doc property(Bereich;wr header top margin) WR SET DOC PROPERTY(Bereich;wr text top margin;$HeadTopMargin+$PictHeight) WR SET DOC PROPERTY(Bereich;wr header bottom margin;$PictHeight) `Gehe wieder in Rahmen, wo sich Cursor befand WR SET FRAME(Bereich;$frame) `Setze Cursor wieder an seine ursprüngliche Position WR SET CURSOR POSITION(Bereich;$Page;$Col;$Line;$Pos)
Referenz
WR Get frame, WR SET CURSOR POSITION.
|
|
|
|
|
|
|
|
|
|