mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-05-28 22:41:29 +00:00
623da0afb0
Deleted the files which were before in master (Those can be found in the releases > 0.3.0) Uploaded new files which are of the 0.5.2 version Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II) and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
98 lines
3.8 KiB
VB.net
98 lines
3.8 KiB
VB.net
Public Class frmHelp
|
|
Public InitialUrl As String = ""
|
|
Public Sub SetInitialLocation(ByVal NewUrl As String)
|
|
InitialUrl = NewUrl
|
|
End Sub
|
|
|
|
Private Sub frmHelp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If InitialUrl <> "" Then
|
|
HelpRenderer.Navigate(InitialUrl)
|
|
Else
|
|
HelpRenderer.Navigate("http://emaculation.com/doku.php")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GoHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoHome.Click
|
|
HelpRenderer.Navigate("http://emaculation.com/doku.php")
|
|
End Sub
|
|
|
|
Private Sub GoBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBack.Click
|
|
If HelpRenderer.CanGoBack = True Then
|
|
HelpRenderer.GoBack()
|
|
Else
|
|
GoBack.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GoForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForward.Click
|
|
If HelpRenderer.CanGoForward = True Then
|
|
HelpRenderer.GoForward()
|
|
Else
|
|
GoForward.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub HelpRenderer_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles HelpRenderer.DocumentCompleted
|
|
If HelpRenderer.CanGoBack = True Then
|
|
GoBack.Enabled = True
|
|
Else
|
|
GoBack.Enabled = False
|
|
End If
|
|
If HelpRenderer.CanGoForward = True Then
|
|
GoForward.Enabled = True
|
|
Else
|
|
GoForward.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.GotFocus
|
|
SearchBox.ForeColor = System.Windows.Forms.Control.DefaultForeColor
|
|
If SearchBox.Text = "Search..." Then
|
|
SearchBox.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.LostFocus
|
|
If SearchBox.Text = "" Then
|
|
SearchBox.Text = "Search..."
|
|
End If
|
|
SearchBox.ForeColor = Color.Gray
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyDown
|
|
e.Handled = True
|
|
If e.KeyData = Keys.Return Then
|
|
SearchStart_Click(Nothing, Nothing)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SearchBox.KeyPress
|
|
If Char.IsControl(e.KeyChar) = True Then
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyUp
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Sub SearchBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.TextChanged
|
|
If SearchBox.Text <> "" Then
|
|
SearchStart.Enabled = True
|
|
ElseIf SearchBox.Text = "Search..." Then
|
|
SearchStart.Enabled = False
|
|
Else
|
|
SearchStart.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchStart.Click
|
|
Dim SearchTerm As String = SearchBox.Text
|
|
Dim SearchUrl As String = "https://www.emaculation.com/doku.php/mac_emulation?do=search&q="
|
|
HelpRenderer.Navigate(SearchUrl + SearchTerm)
|
|
End Sub
|
|
|
|
Private Sub frmHelp_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
|
|
HelpRenderer.Height = Me.ClientSize.Height - NavigationBar.Height
|
|
End Sub
|
|
End Class |