mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-18 14:40:32 +08:00
Valdiralita
aa92c99804
* improve directory path handling by using the inbuilt functions * use SetThreadExecutionState instead of PowerSetRequest to suppress standby * linux compatible environment variable handling * always use shipped fonts * catch missing icon exception on linux * remove generated FrameServer.aps file from source control * fix linux problem when culture is empty * fix checkbox text rendering on linux * fix apps launching from the apps window on linux * improve path handling for adding and removing path entries from apps window * fix opening help files of apps * Fix Path.DirectorySeparatorChar in MainForm.vb * Update Muxer.vb Change was not necessary and wrong * Update Muxer.vb Re-add the additional statement in case of... * Revert Controls.vb Due to other implementation meanwhile * Update AudioProfile.vb * Update GlobalClass.vb Improvements and minor fixes * Update Audio.vb * use more path.combine (cherry picked from commit 36facec70aa71334c51ec073cd6ed1bf6a3fff04) * fix linux get path variable (cherry picked from commit 4300eb68746973f09321a05f6063015933a6627a) * fix build * fix VCEEncC path --------- Co-authored-by: Dendraspis <dendraspis@gmx.net>
115 lines
3.5 KiB
VB.net
115 lines
3.5 KiB
VB.net
|
|
Imports StaxRip.UI
|
|
|
|
Public Class HelpForm
|
|
Inherits FormBase
|
|
|
|
#Region " Designer "
|
|
<System.Diagnostics.DebuggerNonUserCode()>
|
|
Protected Overloads Overrides Sub Dispose(disposing As Boolean)
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
Private ReadOnly components As System.ComponentModel.IContainer
|
|
|
|
Friend WithEvents Browser As System.Windows.Forms.WebBrowser
|
|
<System.Diagnostics.DebuggerStepThrough()>
|
|
Private Sub InitializeComponent()
|
|
Me.Browser = New System.Windows.Forms.WebBrowser()
|
|
Me.SuspendLayout()
|
|
'
|
|
'Browser
|
|
'
|
|
Me.Browser.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Browser.Location = New System.Drawing.Point(0, 0)
|
|
Me.Browser.Name = "Browser"
|
|
Me.Browser.Size = New System.Drawing.Size(1218, 791)
|
|
Me.Browser.TabIndex = 0
|
|
'
|
|
'HelpForm
|
|
'
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
|
|
Me.ClientSize = New System.Drawing.Size(1218, 791)
|
|
Me.Controls.Add(Me.Browser)
|
|
Me.KeyPreview = True
|
|
Me.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6)
|
|
Me.Name = $"{g.DefaultCommands.GetApplicationDetails()} - HelpForm"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
RestoreClientSize(50, 35)
|
|
Icon = g.Icon
|
|
End Sub
|
|
|
|
Private DocumentValue As HelpDocument
|
|
|
|
Property Doc() As HelpDocument
|
|
Get
|
|
If DocumentValue Is Nothing Then
|
|
Dim path = IO.Path.Combine(Folder.Temp, Guid.NewGuid.ToString + ".htm")
|
|
AddHandler g.MainForm.Disposed, Sub() FileHelp.Delete(path)
|
|
DocumentValue = New HelpDocument(path)
|
|
End If
|
|
|
|
Return DocumentValue
|
|
End Get
|
|
Set(Value As HelpDocument)
|
|
DocumentValue = Value
|
|
End Set
|
|
End Property
|
|
|
|
Overloads Shared Sub ShowDialog(heading As String, tips As StringPairList)
|
|
ShowDialog(heading, tips, Nothing)
|
|
End Sub
|
|
|
|
Overloads Shared Sub ShowDialog(heading As String, tips As StringPairList, summary As String)
|
|
Dim form As New HelpForm()
|
|
form.Doc.WriteStart(heading)
|
|
|
|
If summary IsNot Nothing Then
|
|
form.Doc.WriteParagraph(summary)
|
|
End If
|
|
|
|
form.Doc.WriteTips(tips)
|
|
form.Show()
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
|
|
Dispose()
|
|
End Sub
|
|
|
|
Sub Browser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles Browser.DocumentCompleted
|
|
WebBrowserHelp.ResetTextSize(Browser)
|
|
End Sub
|
|
|
|
Sub Browser_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles Browser.Navigated
|
|
If Browser.DocumentTitle <> "" Then
|
|
Text = Browser.DocumentTitle
|
|
ElseIf File.Exists(e.Url.LocalPath) Then
|
|
Text = e.Url.LocalPath.Base
|
|
End If
|
|
End Sub
|
|
|
|
Shadows Sub Show()
|
|
MyBase.Show()
|
|
|
|
DocumentValue?.WriteDocument(Browser)
|
|
End Sub
|
|
|
|
Sub Browser_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles Browser.Navigating
|
|
If e.Url.AbsoluteUri.StartsWith("http") Then
|
|
e.Cancel = True
|
|
g.ShellExecute(e.Url.ToString)
|
|
End If
|
|
End Sub
|
|
End Class
|