DP Tool Club 13/CD_ASCQ_13_0494.iso/maj/1697/samples/mdi.frm

Text File | 1993-11-21 | 31KB | 931 lines

VERSION 2.00
Begin MDIForm frmMDI
   Caption         =   "Early Morning Editor"
   Height          =   5775
   Icon            =   MDI.FRX:0000
   Left            =   375
   LinkTopic       =   "MDIForm1"
   Top             =   480
   Width           =   5700
   Begin PictureBox pictStatusBar
      Align           =   2  'Align Bottom
      AutoRedraw      =   -1  'True
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Enabled         =   0   'False
      Height          =   345
      Left            =   0
      ScaleHeight     =   345
      ScaleWidth      =   5580
      TabIndex        =   1
      Top             =   4740
      Width           =   5580
      Begin Label labelPosition
         BackStyle       =   0  'Transparent
         Height          =   195
         Left            =   1005
         TabIndex        =   2
         Top             =   90
         Width           =   31920
      End
      Begin Label labelInsert
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Insert"
         Height          =   195
         Left            =   90
         TabIndex        =   3
         Top             =   90
         Width           =   825
      End
      Begin Line TopLine2
         BorderColor     =   &H00000000&
         Index           =   0
         X1              =   0
         X2              =   32000
         Y1              =   0
         Y2              =   0
      End
      Begin Line TopLine2
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   0
         X2              =   32000
         Y1              =   15
         Y2              =   15
      End
      Begin Line TimeBoxLine
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   975
         X2              =   31995
         Y1              =   60
         Y2              =   60
      End
      Begin Line TimeBoxSide
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   975
         X2              =   975
         Y1              =   75
         Y2              =   315
      End
      Begin Line TimeBoxLine
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   975
         X2              =   32000
         Y1              =   300
         Y2              =   300
      End
      Begin Line MsgBoxLine
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   60
         X2              =   915
         Y1              =   60
         Y2              =   60
      End
      Begin Line MsgBoxLine
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   60
         X2              =   915
         Y1              =   300
         Y2              =   300
      End
      Begin Line MsgBoxSide
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   60
         X2              =   60
         Y1              =   60
         Y2              =   300
      End
      Begin Line MsgBoxSide
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   915
         X2              =   915
         Y1              =   60
         Y2              =   310
      End
   End
   Begin PictureBox picToolbar
      Align           =   1  'Align Top
      BackColor       =   &H8000000F&
      Height          =   435
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   5550
      TabIndex        =   0
      Top             =   0
      Width           =   5580
      Begin CommonDialog CMFontDialog
         Left            =   5430
         Top             =   30
      End
      Begin CommonDialog CMDialog1
         CancelError     =   -1  'True
         Filter          =   "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
         Left            =   5850
         Top             =   0
      End
      Begin Image imgNextButtonUp
         Height          =   330
         Left            =   8385
         Picture         =   MDI.FRX:0302
         Top             =   135
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgNextButtonDn
         Height          =   330
         Left            =   8805
         Picture         =   MDI.FRX:0484
         Top             =   90
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLookButtonDn
         Height          =   330
         Left            =   8055
         Picture         =   MDI.FRX:0606
         Top             =   105
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLookButtonUp
         Height          =   330
         Left            =   7605
         Picture         =   MDI.FRX:0788
         Top             =   120
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgNextButton
         Height          =   330
         Left            =   2850
         Picture         =   MDI.FRX:090A
         Tag             =   "Repeat last find or replace operation"
         Top             =   30
         Width           =   360
      End
      Begin Image imgLookButton
         Height          =   330
         Left            =   2490
         Picture         =   MDI.FRX:0A8C
         Tag             =   "Searsh for text"
         Top             =   30
         Width           =   360
      End
      Begin Image imgUndoButtonUp
         Height          =   330
         Left            =   6570
         Picture         =   MDI.FRX:0C0E
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgUndoButtonDown
         Height          =   330
         Left            =   6360
         Picture         =   MDI.FRX:0D90
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgUndoButton
         Height          =   330
         Left            =   2010
         Picture         =   MDI.FRX:0F12
         Tag             =   "Undo the previous edit action"
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgStreamButtonPushed
         Height          =   330
         Left            =   6870
         Picture         =   MDI.FRX:1094
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLineButtonPushed
         Height          =   330
         Left            =   6630
         Picture         =   MDI.FRX:1216
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgColumnButtonPushed
         Height          =   330
         Left            =   6810
         Picture         =   MDI.FRX:1398
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLineButtonDown
         Height          =   330
         Left            =   6720
         Picture         =   MDI.FRX:151A
         Top             =   0
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLineButtonUp
         Height          =   330
         Left            =   6600
         Picture         =   MDI.FRX:169C
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgColumnButtonUp
         Height          =   330
         Left            =   6600
         Picture         =   MDI.FRX:181E
         Top             =   0
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgColumnButtonDown
         Height          =   330
         Left            =   6540
         Picture         =   MDI.FRX:19A0
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgLineButton
         Height          =   330
         Left            =   3690
         Picture         =   MDI.FRX:1B22
         Tag             =   "Make line blocks the default block type"
         Top             =   30
         Width           =   360
      End
      Begin Image imgColumnButton
         Height          =   330
         Left            =   4050
         Picture         =   MDI.FRX:1CA4
         Tag             =   "Make column blocks the default block type"
         Top             =   30
         Width           =   360
      End
      Begin Image imgStreamButton
         Height          =   330
         Left            =   3330
         Picture         =   MDI.FRX:1E26
         Tag             =   "Make stream blocks the default block type"
         Top             =   30
         Width           =   360
      End
      Begin Image imgStreamButtonDown
         Height          =   330
         Left            =   6750
         Picture         =   MDI.FRX:1FA8
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgStreamButtonUp
         Height          =   330
         Left            =   6570
         Picture         =   MDI.FRX:212A
         Top             =   30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgPasteButtonUp
         Height          =   330
         Left            =   7020
         Picture         =   MDI.FRX:22AC
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgPasteButtonDn
         Height          =   330
         Left            =   6900
         Picture         =   MDI.FRX:2486
         Top             =   -30
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgCopyButtonDn
         Height          =   330
         Left            =   6840
         Picture         =   MDI.FRX:2660
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgCopyButtonUp
         Height          =   330
         Left            =   6870
         Picture         =   MDI.FRX:283A
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgCutButtonDn
         Height          =   330
         Left            =   6870
         Picture         =   MDI.FRX:2A14
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgCutButtonUp
         Height          =   330
         Left            =   6690
         Picture         =   MDI.FRX:2BEE
         Top             =   0
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgFileOpenButtonDn
         Height          =   330
         Left            =   6540
         Picture         =   MDI.FRX:2DC8
         Top             =   -30
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgFileOpenButtonUp
         Height          =   330
         Left            =   6600
         Picture         =   MDI.FRX:2F4A
         Top             =   0
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgFileNewButtonUp
         Height          =   330
         Left            =   6690
         Picture         =   MDI.FRX:30CC
         Top             =   0
         Visible         =   0   'False
         Width           =   360
      End
      Begin Image imgFileNewButtonDn
         Height          =   330
         Left            =   6540
         Picture         =   MDI.FRX:324E
         Top             =   30
         Visible         =   0   'False
         Width           =   375
      End
      Begin Image imgPasteButton
         Height          =   330
         Left            =   1650
         Picture         =   MDI.FRX:3428
         Tag             =   "Paste the Clipboard text at the insertion point"
         Top             =   30
         Width           =   375
      End
      Begin Image imgCopyButton
         Height          =   330
         Left            =   1290
         Picture         =   MDI.FRX:3602
         Tag             =   "Copy the selected text to the Clipboard"
         Top             =   30
         Width           =   375
      End
      Begin Image imgCutButton
         Height          =   330
         Left            =   930
         Picture         =   MDI.FRX:37DC
         Tag             =   "Move the selected text to the Clipboard"
         Top             =   30
         Width           =   375
      End
      Begin Image imgFileOpenButton
         Height          =   330
         Left            =   450
         Picture         =   MDI.FRX:39B6
         Tag             =   "Open an existing file"
         Top             =   30
         Width           =   360
      End
      Begin Image imgFileNewButton
         Height          =   330
         Left            =   90
         Picture         =   MDI.FRX:3B38
         Tag             =   "Create a new file"
         Top             =   30
         Width           =   360
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFNew
         Caption         =   "&New"
      End
      Begin Menu mnuFOpen
         Caption         =   "&Open..."
      End
      Begin Menu mnuFExit
         Caption         =   "E&xit"
      End
      Begin Menu mnuRecentFile
         Caption         =   "-"
         Index           =   0
         Visible         =   0   'False
      End
      Begin Menu mnuRecentFile
         Caption         =   "RecentFile1"
         Index           =   1
         Visible         =   0   'False
      End
      Begin Menu mnuRecentFile
         Caption         =   "RecentFile2"
         Index           =   2
         Visible         =   0   'False
      End
      Begin Menu mnuRecentFile
         Caption         =   "RecentFile3"
         Index           =   3
         Visible         =   0   'False
      End
      Begin Menu mnuRecentFile
         Caption         =   "RecentFile4"
         Index           =   4
         Visible         =   0   'False
      End
   End
   Begin Menu mnuOptions
      Caption         =   "&Options"
      Begin Menu mnuOToolbar
         Caption         =   "&Toolbar"
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      Begin Menu mnuHelpAbout
         Caption         =   "&About..."
      End
   End
End
Option Explicit

Sub BlockButton_Click (nButton As Integer)
    SetBlockType (nButton)
    UpdateToolBar
    imgStreamButton.Refresh
    imgLineButton.Refresh
    imgColumnButton.Refresh
End Sub

Sub DisplayButtonText (imgButtonText As String)
  labelPosition.Caption = imgButtonText
End Sub

Sub imgColumnButton_Click ()
    imgColumnButton.Refresh
    BlockButton_Click (3)
End Sub

Sub imgColumnButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If gfBlockType = 3 Then
        imgColumnButton.Picture = imgColumnButtonPushed.Picture
    Else
        imgColumnButton.Picture = imgColumnButtonDown.Picture
    End If
    DisplayButtonText (imgColumnButton.Tag)
End Sub

Sub imgColumnButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgColumnButton.Width Or Y < 0 Or Y > imgColumnButton.Height Then
            If gfBlockType <> 3 Then
                imgColumnButton.Picture = imgColumnButtonUp.Picture
            Else
                imgColumnButton.Picture = imgColumnButtonPushed.Picture
            End If
        Else
            If gfBlockType <> 3 Then
                imgColumnButton.Picture = imgColumnButtonDown.Picture
            Else
                imgColumnButton.Picture = imgColumnButtonPushed.Picture
            End If
        End If
    End Select
End Sub

Sub imgColumnButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    UpdateStatusLine
End Sub

Sub imgCopyButton_Click ()
    imgCopyButton.Refresh
    EditCopyProc
End Sub

Sub imgCopyButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgCopyButton.Picture = imgCopyButtonDn.Picture
    DisplayButtonText (imgCopyButton.Tag)
End Sub

Sub imgCopyButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgCopyButton.Width Or Y < 0 Or Y > imgCopyButton.Height Then
            imgCopyButton.Picture = imgCopyButtonUp.Picture
        Else
            imgCopyButton.Picture = imgCopyButtonDn.Picture
        End If
    End Select
End Sub

Sub imgCopyButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgCopyButton.Picture = imgCopyButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgCutButton_Click ()
    imgCutButton.Refresh
    EditCutProc
End Sub

Sub imgCutButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgCutButton.Picture = imgCutButtonDn.Picture
    DisplayButtonText (imgCutButton.Tag)
End Sub

Sub imgCutButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgCutButton.Width Or Y < 0 Or Y > imgCutButton.Height Then
            imgCutButton.Picture = imgCutButtonUp.Picture
        Else
            imgCutButton.Picture = imgCutButtonDn.Picture
        End If
    End Select
End Sub

Sub imgCutButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgCutButton.Picture = imgCutButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgFileNewButton_Click ()
    imgFileNewButton.Refresh
    FileNew
End Sub

Sub imgFileNewButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgFileNewButton.Picture = imgFileNewButtonDn.Picture
    DisplayButtonText (imgFileNewButton.Tag)
End Sub

Sub imgFileNewButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgFileNewButton.Width Or Y < 0 Or Y > imgFileNewButton.Height Then
            imgFileNewButton.Picture = imgFileNewButtonUp.Picture
        Else
            imgFileNewButton.Picture = imgFileNewButtonDn.Picture
        End If
    End Select
End Sub

Sub imgFileNewButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgFileNewButton.Picture = imgFileNewButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgFileOpenButton_Click ()
    imgFileOpenButton.Refresh
    FOpenProc
End Sub

Sub imgFileOpenButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgFileOpenButton.Picture = imgFileOpenButtonDn.Picture
    DisplayButtonText (imgFileOpenButton.Tag)
End Sub

Sub imgFileOpenButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgFileOpenButton.Width Or Y < 0 Or Y > imgFileOpenButton.Height Then
            imgFileOpenButton.Picture = imgFileOpenButtonUp.Picture
        Else
            imgFileOpenButton.Picture = imgFileOpenButtonDn.Picture
        End If
    End Select
End Sub

Sub imgFileOpenButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgFileOpenButton.Picture = imgFileOpenButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgLineButton_Click ()
    imgLineButton.Refresh
    BlockButton_Click (2)
End Sub

Sub imgLineButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If gfBlockType = 2 Then
        imgLineButton.Picture = imgLineButtonPushed.Picture
    Else
        imgLineButton.Picture = imgLineButtonDown.Picture
    End If
    DisplayButtonText (imgLineButton.Tag)
End Sub

Sub imgLineButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgLineButton.Width Or Y < 0 Or Y > imgLineButton.Height Then
            If gfBlockType <> 2 Then
                imgLineButton.Picture = imgLineButtonUp.Picture
            Else
                imgLineButton.Picture = imgLineButtonPushed.Picture
            End If
        Else
            If gfBlockType <> 2 Then
                imgLineButton.Picture = imgLineButtonDown.Picture
            Else
                imgLineButton.Picture = imgLineButtonPushed.Picture
            End If
        End If
    End Select
End Sub

Sub imgLineButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    UpdateStatusLine
End Sub

Sub imgLookButton_Click ()
    imgLookButton.Refresh
    FindProc
End Sub

Sub imgLookButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgLookButton.Picture = imgLookButtonDn.Picture
    DisplayButtonText (imgLookButton.Tag)
End Sub

Sub imgLookButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgLookButton.Width Or Y < 0 Or Y > imgLookButton.Height Then
            imgLookButton.Picture = imgLookButtonUp.Picture
        Else
            imgLookButton.Picture = imgLookButtonDn.Picture
        End If
    End Select

End Sub

Sub imgLookButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgLookButton.Picture = imgLookButtonUp.Picture
    UpdateStatusLine

End Sub

Sub imgNextButton_Click ()
    imgNextButton.Refresh
    FindNextProc
End Sub

Sub imgNextButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgNextButton.Picture = imgNextButtonDn.Picture
    DisplayButtonText (imgNextButton.Tag)
End Sub

Sub imgNextButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgNextButton.Width Or Y < 0 Or Y > imgNextButton.Height Then
            imgNextButton.Picture = imgNextButtonUp.Picture
        Else
            imgNextButton.Picture = imgNextButtonDn.Picture
        End If
    End Select
End Sub

Sub imgNextButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgNextButton.Picture = imgNextButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgPasteButton_Click ()
    imgPasteButton.Refresh
    EditPasteProc
End Sub

Sub imgPasteButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgPasteButton.Picture = imgPasteButtonDn.Picture
    DisplayButtonText (imgPasteButton.Tag)
End Sub

Sub imgPasteButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgPasteButton.Width Or Y < 0 Or Y > imgPasteButton.Height Then
            imgPasteButton.Picture = imgPasteButtonUp.Picture
        Else
            imgPasteButton.Picture = imgPasteButtonDn.Picture
        End If
    End Select
End Sub

Sub imgPasteButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgPasteButton.Picture = imgPasteButtonUp.Picture
    UpdateStatusLine
End Sub

Sub imgStreamButton_Click ()
    imgStreamButton.Refresh
    BlockButton_Click (1)
End Sub

Sub imgStreamButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If gfBlockType = 1 Then
        imgStreamButton.Picture = imgStreamButtonPushed.Picture
    Else
        imgStreamButton.Picture = imgStreamButtonDown.Picture
    End If
    DisplayButtonText (imgStreamButton.Tag)
End Sub

Sub imgStreamButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgStreamButton.Width Or Y < 0 Or Y > imgStreamButton.Height Then
            If gfBlockType <> 1 Then
                imgStreamButton.Picture = imgStreamButtonUp.Picture
            Else
                imgStreamButton.Picture = imgStreamButtonPushed.Picture
            End If
        Else
            If gfBlockType <> 1 Then
                imgStreamButton.Picture = imgStreamButtonDown.Picture
            Else
                imgStreamButton.Picture = imgStreamButtonPushed.Picture
            End If
        End If
    End Select
End Sub

Sub imgStreamButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    UpdateStatusLine
End Sub

Sub imgUndoButton_Click ()
    imgUndoButton.Refresh
End Sub

Sub imgUndoButton_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUndoButton.Picture = imgUndoButtonDown.Picture
    DisplayButtonText (imgUndoButton.Tag)
End Sub

Sub imgUndoButton_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' If the button is pressed, display the up bitmap if the
    ' mouse is dragged outside the button's area, otherwise
    ' display the up bitmap
    Select Case Button
    Case 1
        If X <= 0 Or X > imgUndoButton.Width Or Y < 0 Or Y > imgUndoButton.Height Then
            imgUndoButton.Picture = imgUndoButtonUp.Picture
        Else
            imgUndoButton.Picture = imgUndoButtonDown.Picture
        End If
    End Select

End Sub

Sub imgUndoButton_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUndoButton.Picture = imgUndoButtonUp.Picture
    UpdateStatusLine
End Sub

Sub MDIForm_Load ()

    Show ' Application starts here (Load event of Startup form).

    ChDir App.Path ' Always set working directory to directory containing the application.

    InitMDINOTE 'initialize data in MDINOTE.BAS

    Dim Cmd As String, AFileWasLoaded As Integer
    Cmd = Trim$(Command$)
    If Cmd <> "" Then ' If anything was specified on the command line...
        Dim nNextToken As Integer
        Do
            nNextToken = InStr(Cmd, " ") ' find first blank, if any
            If nNextToken = 0 Then nNextToken = Len(Cmd) + 1

            Dim OpenFileName As String
            OpenFileName = Mid$(Cmd, 1, nNextToken - 1)
            If OpenFile(OpenFileName, False) = True Then ' open the file
                If Not AFileWasLoaded Then GetRecentFiles
                UpdateFileMenu (OpenFileName)     ' add to recent files list
                AFileWasLoaded = True
            End If
            Cmd = Trim$(Mid$(Cmd, nNextToken + 1)) ' trim the filename off the command line
        Loop While Cmd <> "" ' repeat while there are still filenames on the command line
    End If
    If Not AFileWasLoaded Then
        FileNew
        GetRecentFiles ' Read EMEDIT.INI and set recent file menu items appropriately
    End If
End Sub

Sub MDIForm_Unload (Cancel As Integer)
    ' If the Unload was not canceled (in the QueryUnload events for the Notepad forms)
    ' there will be no document windows left, so go ahead and end the application.

    If Not AnyPadsLeft() Then
        End
    End If

End Sub

Sub mnuFExit_Click ()
    End
End Sub

Sub mnuFNew_Click ()
    FileNew
End Sub

Sub mnuFont_Click ()
    SetFontProc
End Sub

Sub mnuFOpen_Click ()
    FOpenProc
End Sub

Sub mnuHelpAbout_Click ()
    frmAbout.Show 1 'modal
End Sub

Sub mnuOptions_Click ()
    mnuOToolbar.Checked = frmMDI!picToolbar.Visible
End Sub

Sub mnuOToolbar_Click ()
    OptionsToolbarProc Me
End Sub

Sub mnuRecentFile_Click (index As Integer)
  Dim File2Open As String
  File2Open = mnuRecentFile(index).Caption
  If OpenFile(File2Open, False) = True Then
    ' Update recent files list.
    GetRecentFiles
  End If
End Sub

Sub pictStatusBar_Resize ()
    If TopLine2(0).X2 < frmMDI.Width Then
        TopLine2(0).X2 = frmMDI.Width
    End If
    If TopLine2(1).X2 < frmMDI.Width Then
        TopLine2(1).X2 = frmMDI.Width
    End If
End Sub