Programming Tool Box/SIMS_2.iso/code/network/ogmess/viewform.txt

Text File | 1995-02-27 | 2KB | 89 lines

Sub done_btn_Click ()
    viewmsg = False
    Kill maildir + username
    Unload viewform
End Sub

Sub e_call_Click ()
clipboard.SetText message_read.text
End Sub

Sub e_copy_Click ()
If message_read.sellength = 0 Then
    MsgBox "There is no text selected for Copy", 48
Else
    clipboard.SetText message_read.seltext
End If

End Sub

Sub f_about_Click ()
about.Show

End Sub

Sub f_print_Click ()
stuff$ = viewform.message_read.text
printmsg_rtn stuff$

End Sub

Sub f_save_Click ()
'This command will save the text currently in the message
'box to a specified file.
    savetext = message_read.text
    saveit.Show
End Sub

Sub f_setup_Click ()
resetup
End Sub

Sub Form_Load ()
    viewmsg = True

    Open maildir + username For Input As #2
        If LOF(2) > 60000 Then
            msg$ = "Sorry, message is too large to View"
            MsgBox msg$, 16, "File too Big"
            Unload viewform
        End If

    loopcnt% = 0

    Do Until EOF(2)

        Line Input #2, nextline$
        loopcnt% = loopcnt% + 1
        If loopcnt% = 1 Then
            fromname = getfield$(2, "-", nextline$)
        End If
        If loopcnt% = 2 Then   'get subject

            default_subj = Right$(nextline$, ((Len(nextline$) - 10)))
        End If
        filebuffer$ = filebuffer$ + nextline$ + Chr$(13) + Chr$(10)

    Loop

    message_read.text = filebuffer$
    Close #2

End Sub

Sub Form_Paint ()
If windowstate = 0 Then
    centerwnd viewform
End If

End Sub

Sub reply_btn_Click ()
    done_btn_Click
    If fromname <> "" Then
        ogsend.select_user_combo.text = fromname
    End If
    ogsend.Show
End Sub