Documentation Center

PslOutputWnd.Type

Returns the type of a line in the output window.

pslOutputText (value = 0) The line contains a simple text output

pslOutputError (value = 1) The line contains an error message

pslOutputJump (value = 2) The line contains text with a 'jump', i.e. the user can doubleclick the line to select a string.

Syntax

Expression.Type (Line as Long) as Long

Expression Object of type PslOutputWnd

Line The line number, the first line has the number 1

Example

Dim trn As PslTransList
Dim trn As PslTransList
Set trn = PSL.ActiveTransList
If trn Is Nothing Then Exit Sub

' Perform check on active translation list
trn.Check

Dim checkwnd As PslOutputWnd
Set checkwnd = PSL.OutputWnd(pslOutputWndCheck)

Dim Line As Long
For Line = 1 To checkwnd.LineCount
  If checkwnd.Type(Line) = pslOutputJump And _
    checkwnd.JumpError(Line) = 301 Then
    ' Mark translation string
    Dim t As PslTransString
    Set t = trn.String(checkwnd.JumpNumber(Line), pslNumber)
    t.TransComment = "TODO: Resize"
  End If
Next Line

trn.Save