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

Text File | 1995-02-27 | 4KB | 159 lines

VERSION 2.00
Begin Form Viewform
   BorderStyle     =   1  'Fixed Single
   Caption         =   "OGMESSAGE - Message Read "
   ClientHeight    =   4545
   ClientLeft      =   4035
   ClientTop       =   2130
   ClientWidth     =   7350
   ControlBox      =   0   'False
   Height          =   5475
   Icon            =   VIEWFORM.FRX:0000
   Left            =   3975
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4545
   ScaleWidth      =   7350
   Top             =   1260
   Width           =   7470
   Begin CommandButton done_btn
      Caption         =   "&Done"
      Height          =   615
      Left            =   4560
      TabIndex        =   1
      Top             =   3600
      Width           =   1815
   End
   Begin CommandButton reply_btn
      Caption         =   "&Reply"
      Height          =   615
      Left            =   1560
      TabIndex        =   2
      Top             =   3600
      Width           =   1815
   End
   Begin TextBox Message_read
      Height          =   3135
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   240
      Width           =   7095
   End
   Begin Menu f_men
      Caption         =   "&File"
      Begin Menu f_save
         Caption         =   "&Save As "
      End
      Begin Menu f_setup
         Caption         =   "Set&up"
      End
      Begin Menu f_print
         Caption         =   "&Print Message"
      End
      Begin Menu f_about
         Caption         =   "&About"
      End
   End
   Begin Menu e_menu
      Caption         =   "&Edit"
      Begin Menu e_copy
         Caption         =   "&Copy"
      End
      Begin Menu e_call
         Caption         =   "Copy &All"
      End
   End
End
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