home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 13
/
CD_ASCQ_13_0494.iso
/
maj
/
1697
/
samples
/
mdi.frm
< prev
next >
Wrap
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