HRuleColor Property

Build 1501 on 14/Nov/2017  This topic last edited on: 23/Mar/2016, at 12:23

Description

The name of the color of the horizontal rule between the tabulation rows.

Can be superseded for a given row with the RuleColor property.

Syntax

object.HRuleColor(iRowType) [ =strColorName ]

object

Required. Object name, returned by Text.GetNewTable or Text.GetCurTable.

iRowType

0 = Odd (defrow 0), 1 = First (defrow -2), 2 = Last (defrow -3), 3 = Even (defrow -1).

Please note that if you want to set the same values for entire table, use iRowType = 0, that corresponds to odd rows, but if it's only specified, than it sets all row types.

strColorName

Color name.

Example

On a new table

This script creates a new table with 4 columns and 8 rows, and set colors, weight, tint, and dash for all row types independently:

Dim oTable = Text.GetNewTable

otable.NColumns = 4

oTable.NRows = 8

oTable.HRuleColor(0) = "C" ' odd rows, defrow 0

oTable.HRuleColor(1) = "M" ' first row, defrow -2

oTable.HRuleColor(2) = "Y" ' last row, defrow - 3

oTable.HRuleColor(3) = "K" ' even rows, defrow -1

oTable.HRuleWidth(0) = Units.ToVal("1pt") ' odd rows, defrow 0

oTable.HRuleWidth(1) = Units.ToVal("2pt") ' first row, defrow -2

oTable.HRuleWidth(2) = Units.ToVal("3pt") ' last row, defrow - 3

oTable.HRuleWidth(3) = Units.ToVal("4pt") ' even rows, defrow -1

oTable.HRuleGray(0) = 100 ' odd rows, defrow 0

oTable.HRuleGray(1) = 90 ' first row, defrow -2

oTable.HRuleGray(2) = 80 ' last row, defrow - 3

oTable.HRuleGray(3) = 70 ' even rows, defrow -1

oTable.HRuleDash(0) = "Dotted" ' odd rows, defrow 0

oTable.HRuleDash(1) = "Solid (butt cap)" ' first row, defrow -2

oTable.HRuleDash(2) = "Dashed" ' last row, defrow - 3

oTable.HRuleDash(3) = "Grid" ' even rows, defrow -1

Text.InsTable (oTable)

On an existing table

This script edits the current table, colors, weight, tint, and dash for all row types independently:

Dim oTable = Text.GetCurTable

oTable.HRuleColor(0) = "PANTONE 181 CVU" ' odd rows, defrow 0

oTable.HRuleColor(1) = "M" ' first row, defrow -2

oTable.HRuleColor(2) = "Y" ' last row, defrow - 3

oTable.HRuleColor(3) = "K" ' even rows, defrow -1

oTable.HRuleWidth(0) = Units.ToVal("1pt") ' odd rows, defrow 0

oTable.HRuleWidth(1) = Units.ToVal("2pt") ' first row, defrow -2

oTable.HRuleWidth(2) = Units.ToVal("3pt") ' last row, defrow - 3

oTable.HRuleWidth(3) = Units.ToVal("4pt") ' even rows, defrow -1

oTable.HRuleGray(0) = 100 ' odd rows, defrow 0

oTable.HRuleGray(1) = 90 ' first row, defrow -2

oTable.HRuleGray(2) = 80 ' last row, defrow - 3

oTable.HRuleGray(3) = 70 ' even rows, defrow -1

oTable.HRuleDash(0) = "Dotted" ' odd rows, defrow 0

oTable.HRuleDash(1) = "Solid (butt cap)" ' first row, defrow -2

oTable.HRuleDash(2) = "Dashed" ' last row, defrow - 3

oTable.HRuleDash(3) = "Grid" ' even rows, defrow -1

Text.UpdateTable (oTable)