home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk1
/
mdi.fr_
/
mdi.bin
Wrap
Text File
|
1993-04-28
|
12KB
|
378 lines
VERSION 2.00
Begin MDIForm frmMDI
Caption = "MDI NotePad"
ClientHeight = 4785
ClientLeft = 1620
ClientTop = 1815
ClientWidth = 5685
Height = 5475
Left = 1560
LinkTopic = "MDIForm1"
Top = 1185
Width = 5805
Begin PictureBox picToolbar
Align = 1 'Align Top
BackColor = &H8000000F&
Height = 375
Left = 0
ScaleHeight = 345
ScaleWidth = 5655
TabIndex = 0
Top = 0
Width = 5685
Begin CommonDialog CMDialog1
CancelError = -1 'True
Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
Left = 1680
Top = 0
End
Begin Image imgPasteButtonUp
Height = 330
Left = 5280
Picture = MDI.FRX:0000
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgPasteButtonDn
Height = 330
Left = 4920
Picture = MDI.FRX:01DA
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgCopyButtonDn
Height = 330
Left = 4200
Picture = MDI.FRX:03B4
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgCopyButtonUp
Height = 330
Left = 4560
Picture = MDI.FRX:058E
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgCutButtonDn
Height = 330
Left = 3840
Picture = MDI.FRX:0768
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgCutButtonUp
Height = 330
Left = 3480
Picture = MDI.FRX:0942
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgFileOpenButtonDn
Height = 330
Left = 2760
Picture = MDI.FRX:0B1C
Top = 0
Visible = 0 'False
Width = 360
End
Begin Image imgFileOpenButtonUp
Height = 330
Left = 3120
Picture = MDI.FRX:0C9E
Top = 0
Visible = 0 'False
Width = 360
End
Begin Image imgFileNewButtonUp
Height = 330
Left = 2400
Picture = MDI.FRX:0E20
Top = 0
Visible = 0 'False
Width = 360
End
Begin Image imgFileNewButtonDn
Height = 330
Left = 2040
Picture = MDI.FRX:0FA2
Top = 0
Visible = 0 'False
Width = 375
End
Begin Image imgPasteButton
Height = 330
Left = 1560
Picture = MDI.FRX:117C
Top = 0
Width = 375
End
Begin Image imgCopyButton
Height = 330
Left = 1200
Picture = MDI.FRX:1356
Top = 0
Width = 375
End
Begin Image imgCutButton
Height = 330
Left = 840
Picture = MDI.FRX:1530
Top = 0
Width = 375
End
Begin Image imgFileOpenButton
Height = 330
Left = 360
Picture = MDI.FRX:170A
Top = 0
Width = 360
End
Begin Image imgFileNewButton
Height = 330
Left = 0
Picture = MDI.FRX:188C
Top = 0
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
End
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
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
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
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
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
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
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
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
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
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
End Sub
Sub MDIForm_Load ()
' Application starts here (Load event of Startup form).
Show
' Always set working directory to directory containing the application.
ChDir App.Path
'Initialize document form arrays, and show first document.
ReDim Document(1)
ReDim FState(1)
Document(1).Tag = 1
FState(1).Dirty = False
Document(1).Show
' Read MDINOTE.INI and set recent file menu items appropriately
GetRecentFiles
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 mnuFOpen_Click ()
FOpenProc
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)
OpenFile (mnuRecentFile(index).Caption)
' Update recent files list.
GetRecentFiles
End Sub