updates author information in 'About' tab (adds links to email and websites)

Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj

@@ -13,7 +13,7 @@
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
     <IsWebBootstrapper>true</IsWebBootstrapper>
-    <PublishUrl>Z:\Leitungslaengenberechnung\</PublishUrl>
+    <PublishUrl>Z:\tools\Leitungslaengenberechnung\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Web</InstallFrom>
     <UpdateEnabled>true</UpdateEnabled>
@@ -25,12 +25,12 @@
     <MapFileExtensions>true</MapFileExtensions>
     <InstallUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</InstallUrl>
     <UpdateUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</UpdateUrl>
-    <SupportUrl>http://klamm.io</SupportUrl>
+    <SupportUrl>https://github.com/freefallcid/leitungslaengenberechnung</SupportUrl>
     <ErrorReportUrl>https://github.com/freefallcid/leitungslaengenberechnung/issues</ErrorReportUrl>
     <ProductName>Leitungslängenberechnung</ProductName>
     <PublisherName>Dominic Reich</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>2</ApplicationRevision>
+    <ApplicationRevision>3</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
@@ -76,10 +76,11 @@
     <ApplicationIcon>cable.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestCertificateThumbprint>528486DB0FBE19A685C8460B46BA67E50BDFB669</ManifestCertificateThumbprint>
+    <ManifestCertificateThumbprint>7333803A93B717E3FFCB65C8CB363B334722D217</ManifestCertificateThumbprint>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestKeyFile>Leitungslaengenberechnung_TemporaryKey.pfx</ManifestKeyFile>
+    <ManifestKeyFile>
+    </ManifestKeyFile>
   </PropertyGroup>
   <PropertyGroup>
     <GenerateManifests>true</GenerateManifests>

Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
-    <PublishUrlHistory>Z:\Leitungslaengenberechnung\|publish\</PublishUrlHistory>
+    <PublishUrlHistory>Z:\tools\Leitungslaengenberechnung\|Z:\Leitungslaengenberechnung\|publish\</PublishUrlHistory>
     <InstallUrlHistory>http://tools.dominicreich.com/Leitungslaengenberechnung/</InstallUrlHistory>
-    <SupportUrlHistory>http://tmsn.at/%3ftools&amp;leitungslaengenberechnung</SupportUrlHistory>
+    <SupportUrlHistory>http://klamm.io|http://tmsn.at/%3ftools&amp;leitungslaengenberechnung</SupportUrlHistory>
     <UpdateUrlHistory>http://tools.dominicreich.com/Leitungslaengenberechnung/</UpdateUrlHistory>
     <BootstrapperUrlHistory />
     <ErrorReportUrlHistory>https://github.com/freefallcid/leitungslaengenberechnung/issues</ErrorReportUrlHistory>

Leitungslaengenberechnung/frm_Main.Designer.vb

@@ -83,7 +83,11 @@ Partial Class frm_Main
         Me.iAus_schleife = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.tabPageAbout = New System.Windows.Forms.TabPage()
-        Me.Label24 = New System.Windows.Forms.Label()
+        Me.lblAboutName = New System.Windows.Forms.Label()
+        Me.lblAboutTirol = New System.Windows.Forms.Label()
+        Me.linkAboutEmail = New System.Windows.Forms.LinkLabel()
+        Me.linkAboutWebsite = New System.Windows.Forms.LinkLabel()
+        Me.linkAboutGithub = New System.Windows.Forms.LinkLabel()
         Me.tabAbout.SuspendLayout()
         Me.tab_page1.SuspendLayout()
         Me.tab_page2.SuspendLayout()
@@ -695,7 +699,11 @@ Partial Class frm_Main
         '
         'tabPageAbout
         '
-        Me.tabPageAbout.Controls.Add(Me.Label24)
+        Me.tabPageAbout.Controls.Add(Me.linkAboutGithub)
+        Me.tabPageAbout.Controls.Add(Me.linkAboutWebsite)
+        Me.tabPageAbout.Controls.Add(Me.linkAboutEmail)
+        Me.tabPageAbout.Controls.Add(Me.lblAboutTirol)
+        Me.tabPageAbout.Controls.Add(Me.lblAboutName)
         Me.tabPageAbout.Location = New System.Drawing.Point(4, 22)
         Me.tabPageAbout.Name = "tabPageAbout"
         Me.tabPageAbout.Padding = New System.Windows.Forms.Padding(3)
@@ -704,13 +712,53 @@ Partial Class frm_Main
         Me.tabPageAbout.Text = "About"
         Me.tabPageAbout.UseVisualStyleBackColor = True
         '
-        'Label24
-        '
-        Me.Label24.Location = New System.Drawing.Point(21, 27)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(205, 44)
-        Me.Label24.TabIndex = 0
-        Me.Label24.Text = "Label24"
+        'lblAboutName
+        '
+        Me.lblAboutName.AutoSize = True
+        Me.lblAboutName.Location = New System.Drawing.Point(25, 30)
+        Me.lblAboutName.Name = "lblAboutName"
+        Me.lblAboutName.Size = New System.Drawing.Size(76, 13)
+        Me.lblAboutName.TabIndex = 0
+        Me.lblAboutName.Text = "Dominic Reich"
+        '
+        'lblAboutTirol
+        '
+        Me.lblAboutTirol.AutoSize = True
+        Me.lblAboutTirol.Location = New System.Drawing.Point(25, 45)
+        Me.lblAboutTirol.Name = "lblAboutTirol"
+        Me.lblAboutTirol.Size = New System.Drawing.Size(68, 13)
+        Me.lblAboutTirol.TabIndex = 1
+        Me.lblAboutTirol.Text = "Tirol - Austria"
+        '
+        'linkAboutEmail
+        '
+        Me.linkAboutEmail.AutoSize = True
+        Me.linkAboutEmail.Location = New System.Drawing.Point(25, 60)
+        Me.linkAboutEmail.Name = "linkAboutEmail"
+        Me.linkAboutEmail.Size = New System.Drawing.Size(117, 13)
+        Me.linkAboutEmail.TabIndex = 2
+        Me.linkAboutEmail.TabStop = True
+        Me.linkAboutEmail.Text = "info@dominicreich.com"
+        '
+        'linkAboutWebsite
+        '
+        Me.linkAboutWebsite.AutoSize = True
+        Me.linkAboutWebsite.Location = New System.Drawing.Point(25, 75)
+        Me.linkAboutWebsite.Name = "linkAboutWebsite"
+        Me.linkAboutWebsite.Size = New System.Drawing.Size(125, 13)
+        Me.linkAboutWebsite.TabIndex = 3
+        Me.linkAboutWebsite.TabStop = True
+        Me.linkAboutWebsite.Text = "https://dominicreich.com"
+        '
+        'linkAboutGithub
+        '
+        Me.linkAboutGithub.AutoSize = True
+        Me.linkAboutGithub.Location = New System.Drawing.Point(25, 90)
+        Me.linkAboutGithub.Name = "linkAboutGithub"
+        Me.linkAboutGithub.Size = New System.Drawing.Size(127, 13)
+        Me.linkAboutGithub.TabIndex = 4
+        Me.linkAboutGithub.TabStop = True
+        Me.linkAboutGithub.Text = "Dieses Projekt auf Github"
         '
         'frm_Main
         '
@@ -731,6 +779,7 @@ Partial Class frm_Main
         Me.tab3.ResumeLayout(False)
         Me.tab3.PerformLayout()
         Me.tabPageAbout.ResumeLayout(False)
+        Me.tabPageAbout.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -794,5 +843,9 @@ Partial Class frm_Main
     Friend WithEvents oAus_ausschaltstrom As System.Windows.Forms.TextBox
     Friend WithEvents oAus_rechnung As System.Windows.Forms.Label
     Friend WithEvents tabPageAbout As TabPage
-    Friend WithEvents Label24 As Label
+    Friend WithEvents lblAboutName As Label
+    Friend WithEvents linkAboutWebsite As LinkLabel
+    Friend WithEvents linkAboutEmail As LinkLabel
+    Friend WithEvents lblAboutTirol As Label
+    Friend WithEvents linkAboutGithub As LinkLabel
 End Class

Leitungslaengenberechnung/frm_Main.vb

@@ -59,7 +59,7 @@
         iAus_type.SelectedIndex = 0
 
         ' tabAbout - set multiline text to label
-        Label24.Text = "Dominic Reich" & Chr(13) & "dr@klamm.io" & Chr(13) & "visit me at http://klamm.io"
+        'Label24.Text = "Dominic Reich" & Chr(13) & "Email: <projekte@dominicreich.com>" & Chr(13) & Chr(13) & "visit me at https://dominicreich.com"
 
     End Sub
 
@@ -73,4 +73,16 @@
         End If
         oAus_rechnung.Text = Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text), 2) & " * " & Math.Round(CDec(oAus_ausschaltstrom.Text), 2) & Chr(13) & Chr(10) & Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text) * CDec(oAus_ausschaltstrom.Text), 2)
     End Sub
+
+    Private Sub linkAboutEmail_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutEmail.LinkClicked
+        Process.Start("mailto:Dominic Reich <info@dominicreich.com>?subject=[Leitungslängenberechnung]%20Kommentar&body=Hallo%20Dominic,%20%0A%0A--%20%0AEmail%20über%20das%20Programm%20'Leitungslängenberechnung'%20erstellt")
+    End Sub
+
+    Private Sub linkAboutWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutWebsite.LinkClicked
+        Process.Start("https://dominicreich.com/projekte/")
+    End Sub
+
+    Private Sub linkAboutGithub_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkAboutGithub.LinkClicked
+        Process.Start("https://github.com/freefallcid/leitungslaengenberechnung")
+    End Sub
 End Class