4D v13
WR GET STYLESHEET TAB
- 4D Write Language
-
- WR Style Sheet
-
- Style Sheet, Introduction
- WR ADD STYLESHEET TAB
- WR APPLY STYLESHEET
- WR Create stylesheet
- WR DELETE STYLESHEET
- WR DELETE STYLESHEET TAB
- WR Get stylesheet font
- WR GET STYLESHEET INFO
- WR GET STYLESHEET TAB
- WR Get stylesheet text prop
- WR SET STYLESHEET FONT
- WR SET STYLESHEET INFO
- WR SET STYLESHEET TAB
- WR SET STYLESHEET TEXT PROP
- WR UPDATE STYLESHEET
WR GET STYLESHEET TAB
| WR GET STYLESHEET TAB ( area ; stylesheetNum ; tabNumber ; position ; justification ; fillCharacter ) | ||||||||
| Parameter | Type | Description | ||||||
| area | Longint |
|
4D Write area | |||||
| stylesheetNum | Longint |
|
Stylesheet number | |||||
| tabNumber | Longint |
|
Tab number | |||||
| position | Longint |
|
Position of the tab | |||||
| justification | Integer |
|
Alignment value for the tab | |||||
| fillCharacter | String |
|
Selected fill character | |||||
The WR GET STYLESHEET TAB command allows you to retrieve the settings of the tab stop whose number was passed in tabNumber and which belongs to the style sheet whose number was passed in styleSheetNumber in the 4D Write area referenced by area.
To know the number of tabs in the style sheet, you can use: WR GET STYLESHEET INFO(area;styleSheetNumber;wr tab;applyTO), which will return the number of tab stops.
position is the distance from the left document margin to the tab stop, expressed in the current default units of the document.
alignment is the alignment type of the tab:
| Value | Text alignment |
| 1 | Left alignment |
| 2 | Centered |
| 3 | Right alignment |
| 4 | Decimal |
| 5 | Vertical separator |
fillCharacter can be any character whose code is between 33 and 127. If fillCharacter is an empty string, then there is no fill character in the tab stop setting.
You want to change the fill characters for each style sheet tab stop, and then update your document.
$StyleSheetNum:=WR Count(Area;wr nb stylesheets)
For($i;1;$StyleSheetNum)
$TabNum:=WR Get stylesheet text prop(Area;$i;wr tab;$Apply)
If($TabNum#0)
For($j;1;$TabNum)
WR GET STYLESHEET TAB(Area;$i;$j;$Pos;$Justif;$FillChar)
If($FillChar#"")
WR SET STYLESHEET TAB(Area;$i;$j;$Pos;$Justif;Char(126))
End if
End for
WR UPDATE STYLESHEET(Area;$i)
End if
End for
Product: 4D
Theme: WR Style Sheet
Number:
89441
Created: 4D Write 6.5
WR ADD STYLESHEET TAB
WR GET TAB
WR SET STYLESHEET TAB
