Description

In version 1.4.1394.0 and newer

Removed. Current title is a propriety of a document, and not any more of the application.

Use, as a replacement:

Dim doc As FredDoc = FredApp.GetActiveDoc()

Dim titleid As Integer = 0

If Not doc Is Nothing Then

   titleId = doc.GetTitleId()

Else

   titleid = 0

End If

In version 1.4.1393.0 and older

Returns the value of the current title id selected in Fred through Edit > Choose Title.

Syntax

Remarks

Color is returned as long integer, where the RGB components are calculated as:

R + 256*G + 65536 * B