zabpehely
/
remoteapptool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

Put the assembly description into the MainWindow title bar and about window - for Pre-release/Debug versions.

This commit is contained in:
Kim 2020-09-01 00:15:23 +10:00
parent 875a365ae5
commit 05e90580e4
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
remoteapp-tool/RemoteAppAboutWindow.vb
View File

@ -6,7 +6,7 @@ Public Class RemoteAppAboutWindow
Private Sub RemoteAppAboutWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub RemoteAppAboutWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "About " & My.Application.Info.Title Me.Text = "About " & My.Application.Info.Title
Me.TitleLabel.Text = My.Application.Info.Title Me.TitleLabel.Text = My.Application.Info.Title
Me.VersionLabel.Text = "Version " & My.Application.Info.Version.ToString Me.VersionLabel.Text = "Version " & My.Application.Info.Version.ToString & " " & My.Application.Info.Description.ToLower
End Sub End Sub
Private Sub SiteLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles SiteLinkLabel.LinkClicked Private Sub SiteLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles SiteLinkLabel.LinkClicked

7
remoteapp-tool/RemoteAppMainWindow.vb
View File

@ -22,7 +22,12 @@ Public Class RemoteAppMainWindow
End End
End Try End Try
Me.Text = My.Application.Info.Title & " " & My.Application.Info.Version.ToString & " (" & System.Net.Dns.GetHostName & ")" Dim VersionString = My.Application.Info.Version.ToString
If Not My.Application.Info.Description = Nothing Then
VersionString = My.Application.Info.Version.ToString & " " & My.Application.Info.Description.ToLower
End If
Me.Text = My.Application.Info.Title & " " & versionstring & " (" & System.Net.Dns.GetHostName & ")"
If Not My.Computer.Keyboard.ShiftKeyDown Then If Not My.Computer.Keyboard.ShiftKeyDown Then
If Not My.Settings.MainWindowWidth < Me.MinimumSize.Width Then Me.Width = My.Settings.MainWindowWidth If Not My.Settings.MainWindowWidth < Me.MinimumSize.Width Then Me.Width = My.Settings.MainWindowWidth
If Not My.Settings.MainWindowHeight < Me.MinimumSize.Height Then Me.Height = My.Settings.MainWindowHeight If Not My.Settings.MainWindowHeight < Me.MinimumSize.Height Then Me.Height = My.Settings.MainWindowHeight