4D Doc Center : WR GET CURSOR POSITION

Home

4D Write v14

WR GET CURSOR POSITION


WR GET CURSOR POSITION ( Bereich ; Seite ; Spalte ; Linie ; MarkePos )

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
Linie	Lange Ganzzahl	Nummer der Zeile in Spalte
MarkePos	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.
MarkePos: 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)