From ca3ea3857e894bbd3325af41b0704bb7bcd603de Mon Sep 17 00:00:00 2001 From: Kim Date: Sat, 15 Aug 2020 02:24:47 +1000 Subject: [PATCH] Updated credits and URL. Added licence info. --- .../RemoteAppAboutWindow.Designer.vb | 29 ++++++++++++++----- remoteapp-tool/RemoteAppAboutWindow.vb | 11 ++----- 2 files changed, 23 insertions(+), 17 deletions(-) diff --git a/remoteapp-tool/RemoteAppAboutWindow.Designer.vb b/remoteapp-tool/RemoteAppAboutWindow.Designer.vb index e9bc1b2..e9b684e 100644 --- a/remoteapp-tool/RemoteAppAboutWindow.Designer.vb +++ b/remoteapp-tool/RemoteAppAboutWindow.Designer.vb @@ -31,6 +31,7 @@ Partial Class RemoteAppAboutWindow Me.IconLibLabel = New System.Windows.Forms.Label() Me.IconLibLinkLabel = New System.Windows.Forms.LinkLabel() Me.IconLibLicenceTextLabel = New System.Windows.Forms.Label() + Me.RemoteAppToolLicenceTextLabel = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'TitleLabel @@ -61,24 +62,24 @@ Partial Class RemoteAppAboutWindow Me.CopyrightLabel.Name = "CopyrightLabel" Me.CopyrightLabel.Size = New System.Drawing.Size(263, 30) Me.CopyrightLabel.TabIndex = 0 - Me.CopyrightLabel.Text = "Created by Kim Knight" + Me.CopyrightLabel.Text = "Kim Knight, Brian Gale" Me.CopyrightLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'SiteLinkLabel ' Me.SiteLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top - Me.SiteLinkLabel.Location = New System.Drawing.Point(17, 99) + Me.SiteLinkLabel.Location = New System.Drawing.Point(17, 129) Me.SiteLinkLabel.Name = "SiteLinkLabel" Me.SiteLinkLabel.Size = New System.Drawing.Size(263, 30) Me.SiteLinkLabel.TabIndex = 1 Me.SiteLinkLabel.TabStop = True - Me.SiteLinkLabel.Text = "www.kimknight.net/remoteapptool" + Me.SiteLinkLabel.Text = "https://github.com/kimmknight/remoteapptool" Me.SiteLinkLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'IconLibCreatedByLabel ' Me.IconLibCreatedByLabel.Anchor = System.Windows.Forms.AnchorStyles.Top - Me.IconLibCreatedByLabel.Location = New System.Drawing.Point(17, 159) + Me.IconLibCreatedByLabel.Location = New System.Drawing.Point(17, 189) Me.IconLibCreatedByLabel.Name = "IconLibCreatedByLabel" Me.IconLibCreatedByLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibCreatedByLabel.TabIndex = 4 @@ -89,7 +90,7 @@ Partial Class RemoteAppAboutWindow ' Me.IconLibLabel.Anchor = System.Windows.Forms.AnchorStyles.Top Me.IconLibLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.IconLibLabel.Location = New System.Drawing.Point(17, 129) + Me.IconLibLabel.Location = New System.Drawing.Point(17, 159) Me.IconLibLabel.Name = "IconLibLabel" Me.IconLibLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLabel.TabIndex = 5 @@ -99,7 +100,7 @@ Partial Class RemoteAppAboutWindow 'IconLibLinkLabel ' Me.IconLibLinkLabel.Anchor = System.Windows.Forms.AnchorStyles.Top - Me.IconLibLinkLabel.Location = New System.Drawing.Point(17, 219) + Me.IconLibLinkLabel.Location = New System.Drawing.Point(17, 249) Me.IconLibLinkLabel.Name = "IconLibLinkLabel" Me.IconLibLinkLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLinkLabel.TabIndex = 1 @@ -110,19 +111,30 @@ Partial Class RemoteAppAboutWindow 'IconLibLicenceTextLabel ' Me.IconLibLicenceTextLabel.Anchor = System.Windows.Forms.AnchorStyles.Top - Me.IconLibLicenceTextLabel.Location = New System.Drawing.Point(17, 189) + Me.IconLibLicenceTextLabel.Location = New System.Drawing.Point(17, 219) Me.IconLibLicenceTextLabel.Name = "IconLibLicenceTextLabel" Me.IconLibLicenceTextLabel.Size = New System.Drawing.Size(263, 30) Me.IconLibLicenceTextLabel.TabIndex = 4 Me.IconLibLicenceTextLabel.Text = "Licensed under a Creative Commons" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attribution-Share Alike 3.0 Unported License" Me.IconLibLicenceTextLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' + 'RemoteAppToolLicenceTextLabel + ' + Me.RemoteAppToolLicenceTextLabel.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.RemoteAppToolLicenceTextLabel.Location = New System.Drawing.Point(17, 99) + Me.RemoteAppToolLicenceTextLabel.Name = "RemoteAppToolLicenceTextLabel" + Me.RemoteAppToolLicenceTextLabel.Size = New System.Drawing.Size(263, 30) + Me.RemoteAppToolLicenceTextLabel.TabIndex = 6 + Me.RemoteAppToolLicenceTextLabel.Text = "Licensed under The MIT License" + Me.RemoteAppToolLicenceTextLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' 'RemoteAppAboutWindow ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(298, 267) + Me.ClientSize = New System.Drawing.Size(298, 296) + Me.Controls.Add(Me.RemoteAppToolLicenceTextLabel) Me.Controls.Add(Me.IconLibLicenceTextLabel) Me.Controls.Add(Me.IconLibCreatedByLabel) Me.Controls.Add(Me.IconLibLabel) @@ -149,4 +161,5 @@ Partial Class RemoteAppAboutWindow Friend WithEvents IconLibLabel As System.Windows.Forms.Label Friend WithEvents IconLibLinkLabel As System.Windows.Forms.LinkLabel Friend WithEvents IconLibLicenceTextLabel As System.Windows.Forms.Label + Friend WithEvents RemoteAppToolLicenceTextLabel As Label End Class diff --git a/remoteapp-tool/RemoteAppAboutWindow.vb b/remoteapp-tool/RemoteAppAboutWindow.vb index b708919..b23684c 100644 --- a/remoteapp-tool/RemoteAppAboutWindow.vb +++ b/remoteapp-tool/RemoteAppAboutWindow.vb @@ -10,18 +10,11 @@ Public Class RemoteAppAboutWindow End Sub Private Sub SiteLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles SiteLinkLabel.LinkClicked - System.Diagnostics.Process.Start("http://www.kimknight.net/remoteapptool") + System.Diagnostics.Process.Start(SiteLinkLabel.Text) End Sub Private Sub IconLibLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IconLibLinkLabel.LinkClicked - System.Diagnostics.Process.Start("http://creativecommons.org/licenses/by-sa/3.0/") + System.Diagnostics.Process.Start(IconLibLinkLabel.Text) End Sub - Private Sub ralibLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) - System.Diagnostics.Process.Start("http://www.kimknight.net/") - End Sub - - Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) - System.Diagnostics.Process.Start("http://www.kimknight.net/") - End Sub End Class \ No newline at end of file