4D Write v14

WR GET CURSOR POSITION

Home

 
4D Write v14
WR GET CURSOR POSITION

WR GET CURSOR POSITION 


 

WR GET CURSOR POSITION ( Bereich ; Seite ; Spalte ; Linie ; MarkePos ) 
Parameter Typ   Beschreibung
Bereich  Lange Ganzzahl in 4D Write Bereich
Seite  Lange Ganzzahl in Nummer der Seite, wo Auswahl ist
Spalte  Lange Ganzzahl in Nummer der Spalte, wo Auswahl ist
Linie  Lange Ganzzahl in Nummer der Zeile in Spalte
MarkePos  Lange Ganzzahl in Position der Auswahl in aktueller Zeile

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.

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)

 
EIGENSCHAFTEN 

Produkt: 4D Write
Thema: WR Bereich Optionen
Nummer: 89461

 
GESCHICHTE 

Erstellt: 4D Write 6.5

 
SIEHE AUCH 

WR GET CURSOR COORDINATES
WR Get frame
WR SET CURSOR POSITION

 
ARTIKELVERWENDUNG

4D Write Programmiersprache ( 4D Write v11.6)
4D Write Programmiersprache ( 4D Write v12)
4D Write Programmiersprache ( 4D v13)
4D Write Programmiersprache ( 4D Write v14)
4D Write Programmiersprache ( 4D Write v14 R2)
4D Write Programmiersprache ( 4D Write v14 R3)
4D Write Programmiersprache ( 4D Write v14 R4)