4D Doc Center : WR SET TAB

Home

4D Write v14

WR SET TAB


WR SET TAB ( Bereich ; TabNr ; Abstand ; Ausrichtung ; Füllzeichen )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
TabNr	Lange Ganzzahl	Nummer des Tabulators
Abstand	Lange Ganzzahl	Neue Position des Tabulators
Ausrichtung	Ganzzahl	Neuer Wert für Ausrichtung des Tabulators
Füllzeichen	String	Neues Füllzeichen

Beschreibung

Mit dem Befehl WR SET TAB setzen Sie die Parameter des Tabulators mit der Nummer TabNr (Tabulatoren werden von links nach rechts gezählt). Der Befehl WR SET TAB bewegt den Tabulator auf Abstand und setzt Füllzeichen und Ausrichtung.

Der ausgewählte Tabulator wird für alle Absätze der aktuellen Auswahl geändert.
Gibt es an der neuen Position bereits einen Tabulator, wird er durch den geänderten Tabulator ersetzt.

Abstand ist der Abstand vom linken Rand. Er wird in der Standardeinheit des Dokuments angegeben. Wollen Sie die Position des Tabulators nicht verändern, übergeben Sie im Parameter den Wert -1.

Ausrichtung definiert die Art des Tabulators. Wollen Sie die Ausrichtung des Tabulators nicht verändern, übergeben Sie -1. Sonst können Sie eine der folgenden Konstanten unter dem Thema WR Tabs verwenden:

Konstante	Typ	Wert	Meldung
wr left tab	Lange Ganzzahl	1	Linksbündig
wr centered tab	Lange Ganzzahl	2	Zentriert
wr right tab	Lange Ganzzahl	3	Rechtsbündig
wr decimal tab	Lange Ganzzahl	4	Dezimal
wr vertical separator tab	Lange Ganzzahl	5	Vertikaler Trenner

Der optionale Parameter Füllzeichen kann jedes Zeichen mit einem Code zwischen 33 und 127 sein. Dieses Zeichen wird in derselben Schrift wie der geänderte Tabulator hinzugefügt.

Beispiel

Sie möchten im ausgewählten Text den Tabulator bei 168 Punkt löschen, den Tabulator von 252 auf 280 Punkt verschieben und das Füllzeichen '$' zuweisen:

 C_LONGINT(Bereich;$i;$Nbtab;$Unit;$uniforme;$Justif)

 C_REAL($Pos)

 C_STRING(2;$fill)

 $Nbtab:=WR Get text property(Bereich;wr tab;$uniforme)

  `Speichere aktuelle Einheit für das Dokument

 $Unit:=WR Get doc property(Bereich;wr unit)

 If($Unit#2)

  `Setze Einheit auf Punkt, falls das noch nicht der Fall ist

    WR SET DOC PROPERTY(Bereich;wr unit;2)

 End if

 $i:=1

 Repeat

    WR GET TAB(Bereich;$i;$pos;$Justif;$fill)

    Case of

       :($Pos=168)

  `Lösche Tabulator auf 168 Punkt

          WR DELETE TAB(Bereich;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

  `Bewege Tabulator von 252 Punkt auf 280 Punkt

          WR SET TAB(Bereich;$i;280;$Justif;"$")

          $i:=$i+1

    End case

 Until($i=$Nbtab)

  `Gehe zurück zur ursprünglichen Einheit des Dokuments

 WR SET DOC PROPERTY(Bereich;wr unit;$Unit)