Description

Returns the kern value, specified by the ordinal number, in the currently loaded font.

Syntax

object

Required. Object name. Returned by Ted.GetFont.

i

Required. Kern pair index in the range of 0 to NKernPairs -1

Example

This script displays the the kerning pairs and values of the font, numbered as 10031:

Dim objFont = Ted.GetFont

objFont.Code = 10031

str = ""

For i = 0 To objFont.NKernPairs-1

 str = str & objFont.KernPair(i) & " " & objFont.KernValue(i) & chr(13) & chr(10)

Next

msgbox str

See also the example in KernPair.

 

Context

Font object