Underlines
Contents
| HasUnderlines Method | Returns true if the underline properties (UY, UH,UColor, UGray, UFlags and NUnderlines) have a value. |
| GetNUnderlines Property | Returns the number of defined underlines. |
| GetUColor Property | Returns the name of the color of the nIdx underline. |
| GetUFlags Property | Returns options for the nIdx underline. |
| GetUGray Property | Returns tint of the nIdx underline. |
| GetUH Property | Returns the weight in millipoints of the nIdx underline. |
| UReset Method | Clears all the underlines. |
| GetUY Property | Returns the vertical position in millipoints of the nIdx underline. |
| SetUColor Method | Sets the name of the color of the nIdx underline. |
| SetUFlags Method | Sets options for the nIdx underline. |
| SetUGray Method | Sets tint of the nIdx underline. |
| SetUH Method | Sets the weight in millipoints of the nIdx underline. |
| SetUY Method | Sets the vertical position in millipoints of the nIdx underline. |
| SetU Method | Sets the underline nIdx. |
Example
'EditFontStrikeout
if Ted.EditBlockNoCmd = 0 then
dim objTS = Text.GetTextStatus
if objts.HasUnderlines then
if objTS.GetNUnderlines = 0 then
objTS.SetUY( 0 ) = -objTS.CHarH/3
objTS.SetUH( 0 ) = 500
else
objTS.UReset
end if
else
objTS.SetUY( 0 ) = -objTS.CHarH/3
objTS.SetUH( 0 ) = 500
end if
Text.SetTextStatus objTS
end if