mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-12-03 16:49:21 +00:00
Delete frmOptions.frm
This commit is contained in:
SistemaRayoXP
GitHub
parent
3626a4b9bf
commit
4e362739b8
346
frmOptions.frm
346
frmOptions.frm
@ -1,346 +0,0 @@
|
||||
VERSION 5.00
|
||||
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
|
||||
Begin VB.Form frmOptions
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "Options"
|
||||
ClientHeight = 5850
|
||||
ClientLeft = 45
|
||||
ClientTop = 435
|
||||
ClientWidth = 8565
|
||||
BeginProperty Font
|
||||
Name = "Tahoma"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H8000000F&
|
||||
Icon = "frmOptions.frx":0000
|
||||
KeyPreview = -1 'True
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 5850
|
||||
ScaleWidth = 8565
|
||||
ShowInTaskbar = 0 'False
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Tag = "1017"
|
||||
Begin MSComDlg.CommonDialog Browse
|
||||
Left = 4440
|
||||
Top = 3600
|
||||
_ExtentX = 847
|
||||
_ExtentY = 847
|
||||
_Version = 393216
|
||||
End
|
||||
Begin VB.Frame OptionsContainer
|
||||
Caption = "Virtual Mac Options"
|
||||
Height = 5535
|
||||
Left = 120
|
||||
TabIndex = 8
|
||||
Top = 120
|
||||
Width = 4215
|
||||
Begin VB.ListBox OptionsList
|
||||
Height = 5325
|
||||
ItemData = "frmOptions.frx":000C
|
||||
Left = 0
|
||||
List = "frmOptions.frx":0016
|
||||
TabIndex = 9
|
||||
Top = 240
|
||||
Width = 4215
|
||||
End
|
||||
End
|
||||
Begin VB.CommandButton cmdOK
|
||||
Caption = "OK"
|
||||
Default = -1 'True
|
||||
Height = 320
|
||||
Left = 6045
|
||||
TabIndex = 0
|
||||
Tag = "1024"
|
||||
Top = 5280
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdCancel
|
||||
Cancel = -1 'True
|
||||
Caption = "Cancel"
|
||||
Height = 320
|
||||
Left = 7260
|
||||
TabIndex = 1
|
||||
Tag = "1023"
|
||||
Top = 5280
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.PictureBox picOptions
|
||||
BorderStyle = 0 'None
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 3780
|
||||
Index = 3
|
||||
Left = -20000
|
||||
ScaleHeight = 3840.968
|
||||
ScaleMode = 0 'User
|
||||
ScaleWidth = 5745.64
|
||||
TabIndex = 3
|
||||
TabStop = 0 'False
|
||||
Top = 480
|
||||
Width = 5685
|
||||
Begin VB.Frame fraSample4
|
||||
Caption = "Ejemplo 4"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 2022
|
||||
Left = 505
|
||||
TabIndex = 7
|
||||
Tag = "1021"
|
||||
Top = 502
|
||||
Width = 2033
|
||||
End
|
||||
End
|
||||
Begin VB.PictureBox picOptions
|
||||
BorderStyle = 0 'None
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 3780
|
||||
Index = 2
|
||||
Left = -20000
|
||||
ScaleHeight = 3840.968
|
||||
ScaleMode = 0 'User
|
||||
ScaleWidth = 5745.64
|
||||
TabIndex = 5
|
||||
TabStop = 0 'False
|
||||
Top = 480
|
||||
Width = 5685
|
||||
Begin VB.Frame fraSample3
|
||||
Caption = "Ejemplo 3"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 2022
|
||||
Left = 406
|
||||
TabIndex = 6
|
||||
Tag = "1020"
|
||||
Top = 403
|
||||
Width = 2033
|
||||
End
|
||||
End
|
||||
Begin VB.PictureBox picOptions
|
||||
BorderStyle = 0 'None
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 3780
|
||||
Index = 1
|
||||
Left = -20000
|
||||
ScaleHeight = 3840.968
|
||||
ScaleMode = 0 'User
|
||||
ScaleWidth = 5745.64
|
||||
TabIndex = 2
|
||||
TabStop = 0 'False
|
||||
Top = 480
|
||||
Width = 5685
|
||||
Begin VB.Frame fraSample2
|
||||
Caption = "Ejemplo 2"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 2022
|
||||
Left = 307
|
||||
TabIndex = 4
|
||||
Tag = "1019"
|
||||
Top = 305
|
||||
Width = 2033
|
||||
End
|
||||
End
|
||||
Begin VB.Frame Folders
|
||||
Caption = "Folders"
|
||||
Height = 3255
|
||||
Left = 4560
|
||||
TabIndex = 13
|
||||
Top = 120
|
||||
Visible = 0 'False
|
||||
Width = 3735
|
||||
Begin VB.CommandButton BrowseFolder
|
||||
Caption = "Browse..."
|
||||
Height = 320
|
||||
Left = 120
|
||||
TabIndex = 16
|
||||
Top = 840
|
||||
Width = 975
|
||||
End
|
||||
Begin VB.TextBox DefaultMacFolder
|
||||
Height = 285
|
||||
Left = 120
|
||||
Locked = -1 'True
|
||||
TabIndex = 14
|
||||
Text = "C:\Documents and settings\Edson Armando\Mis documentos\My Macs"
|
||||
Top = 480
|
||||
Width = 3495
|
||||
End
|
||||
Begin VB.Label DefFolderTitle
|
||||
Caption = "Default Mac Folder"
|
||||
Height = 255
|
||||
Left = 120
|
||||
TabIndex = 15
|
||||
Top = 240
|
||||
Width = 1575
|
||||
End
|
||||
End
|
||||
Begin VB.Frame ROM
|
||||
Caption = "ROM"
|
||||
Height = 3255
|
||||
Left = 4560
|
||||
TabIndex = 10
|
||||
Top = 120
|
||||
Visible = 0 'False
|
||||
Width = 3735
|
||||
Begin VB.TextBox ROMFile
|
||||
Height = 285
|
||||
Left = 120
|
||||
Locked = -1 'True
|
||||
TabIndex = 12
|
||||
Top = 360
|
||||
Width = 3735
|
||||
End
|
||||
Begin VB.CommandButton BrowseROM
|
||||
Caption = "Browse..."
|
||||
Height = 320
|
||||
Left = 120
|
||||
TabIndex = 11
|
||||
Top = 720
|
||||
Width = 1000
|
||||
End
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmOptions"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Function SelectFolder(Optional DialogTitle As String, _
|
||||
Optional IntialPath As Variant) As String
|
||||
|
||||
On Local Error GoTo errFunction
|
||||
|
||||
Dim objShell As Object
|
||||
Dim objFolder As Object
|
||||
Dim Folder As Object
|
||||
|
||||
Set objShell = CreateObject("Shell.Application")
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
Set objFolder = objShell.BrowseForFolder( _
|
||||
0, _
|
||||
DialogTitle, _
|
||||
0, _
|
||||
InitialPath)
|
||||
|
||||
Set Folder = objFolder.Self
|
||||
|
||||
SelectFolder = Folder.Path
|
||||
|
||||
Exit Function
|
||||
'Error Handler
|
||||
errFunction:
|
||||
MsgBox Err.Description, vbCritical
|
||||
SelectFolder = vbNullString
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub BrowseFolder_Click()
|
||||
Dim Folder As String
|
||||
|
||||
Folder = SelectFolder
|
||||
|
||||
DefaultMacFolder.Text = Folder
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BrowseROM_Click()
|
||||
|
||||
Browse.Filter = "ROM File (*.rom)|*.rom|All files (*.*)|*.*"
|
||||
Browse.ShowOpen
|
||||
If Browse.FileName = "" Then
|
||||
ROMFile.Text = "(No selected)"
|
||||
Else
|
||||
ROMFile.Text = Browse.FileName
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmdCancel_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdOK_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
OptionsList.ListIndex = 0
|
||||
|
||||
If DefaultMacFolder.Text = "" Then
|
||||
DefaultMacFolder.Text = "(No selected)"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub OptionsList_Click()
|
||||
|
||||
If Browse.FileName = "" Then
|
||||
ROMFile.Text = "(No selected)"
|
||||
End If
|
||||
|
||||
Select Case OptionsList.ListIndex
|
||||
|
||||
Case 0
|
||||
ROM.Visible = True
|
||||
Folders.Visible = False
|
||||
|
||||
Case 1
|
||||
ROM.Visible = False
|
||||
Folders.Visible = True
|
||||
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
Loading…
Reference in New Issue
Block a user