From fb1a1b2e2b38d759ed7c97d6a63b639265f88ea6 Mon Sep 17 00:00:00 2001 From: Michael Krisper <michael.krisper@tugraz.at> Date: Wed, 24 Feb 2016 17:24:04 +0100 Subject: [PATCH] updated AboutBox --- VECTO/GUI/F_AboutBox.Designer.vb | 424 +++++++++++++++---------------- VECTO/GUI/F_AboutBox.vb | 7 +- 2 files changed, 216 insertions(+), 215 deletions(-) diff --git a/VECTO/GUI/F_AboutBox.Designer.vb b/VECTO/GUI/F_AboutBox.Designer.vb index d34697aa3f..e00fb4b9ee 100644 --- a/VECTO/GUI/F_AboutBox.Designer.vb +++ b/VECTO/GUI/F_AboutBox.Designer.vb @@ -1,213 +1,213 @@ -' Copyright 2014 European Union. -' Licensed under the EUPL (the 'Licence'); -' -' * You may not use this work except in compliance with the Licence. -' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl -' * Unless required by applicable law or agreed to in writing, -' software distributed under the Licence is distributed on an "AS IS" basis, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' -' See the LICENSE.txt for the specific language governing permissions and limitations. -<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ -Partial Class F_AboutBox - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - <System.Diagnostics.DebuggerNonUserCode()> _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - <System.Diagnostics.DebuggerStepThrough()> _ - Private Sub InitializeComponent() - Me.Label10 = New System.Windows.Forms.Label() - Me.LabelLic = New System.Windows.Forms.Label() - Me.LabelLicDate = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label8 = New System.Windows.Forms.Label() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() - Me.Label3 = New System.Windows.Forms.Label() - Me.PictureBoxJRC = New System.Windows.Forms.PictureBox() - Me.Panel1.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(9, 250) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(75, 13) - Me.Label10.TabIndex = 11 - Me.Label10.Text = "License file:" - ' - 'LabelLic - ' - Me.LabelLic.AutoSize = True - Me.LabelLic.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LabelLic.Location = New System.Drawing.Point(3, 0) - Me.LabelLic.Name = "LabelLic" - Me.LabelLic.Size = New System.Drawing.Size(22, 13) - Me.LabelLic.TabIndex = 12 - Me.LabelLic.Text = "Lic" - ' - 'LabelLicDate - ' - Me.LabelLicDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.LabelLicDate.AutoSize = True - Me.LabelLicDate.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LabelLicDate.Location = New System.Drawing.Point(3, 26) - Me.LabelLicDate.Name = "LabelLicDate" - Me.LabelLicDate.Size = New System.Drawing.Size(12, 13) - Me.LabelLicDate.TabIndex = 13 - Me.LabelLicDate.Text = "-" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(9, 346) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(162, 13) - Me.Label2.TabIndex = 7 - Me.Label2.Text = "Developed on behalf of the" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(24, 368) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(158, 39) - Me.Label8.TabIndex = 3 - Me.Label8.Text = "Joint Research Centre" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sustainable Transport Unit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "European Commission" - ' - 'Panel1 - ' - Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - Me.Panel1.Controls.Add(Me.LabelLic) - Me.Panel1.Controls.Add(Me.LabelLicDate) - Me.Panel1.Location = New System.Drawing.Point(12, 266) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(464, 52) - Me.Panel1.TabIndex = 16 - ' - 'PictureBox1 - ' - Me.PictureBox1.Image = Global.VECTO.My.Resources.Resources.VECTO_About - Me.PictureBox1.Location = New System.Drawing.Point(23, 12) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(447, 182) - Me.PictureBox1.TabIndex = 14 - Me.PictureBox1.TabStop = False - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(9, 436) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(105, 13) - Me.Label1.TabIndex = 7 - Me.Label1.Text = "Support Contact:" - ' - 'LinkLabel1 - ' - Me.LinkLabel1.AutoSize = True - Me.LinkLabel1.Location = New System.Drawing.Point(120, 436) - Me.LinkLabel1.Name = "LinkLabel1" - Me.LinkLabel1.Size = New System.Drawing.Size(122, 13) - Me.LinkLabel1.TabIndex = 17 - Me.LinkLabel1.TabStop = True - Me.LinkLabel1.Text = "vecto@jrc.ec.europa.eu" - ' - 'LinkLabel2 - ' - Me.LinkLabel2.AutoSize = True - Me.LinkLabel2.Font = New System.Drawing.Font("Verdana", 8.25!) - Me.LinkLabel2.Location = New System.Drawing.Point(20, 197) - Me.LinkLabel2.Name = "LinkLabel2" - Me.LinkLabel2.Size = New System.Drawing.Size(179, 13) - Me.LinkLabel2.TabIndex = 18 - Me.LinkLabel2.TabStop = True - Me.LinkLabel2.Text = "VECTO is licensed under EUPL" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Verdana", 8.25!) - Me.Label3.Location = New System.Drawing.Point(20, 213) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(194, 13) - Me.Label3.TabIndex = 19 - Me.Label3.Text = "Copyright: 2015 European Union" - ' - 'PictureBoxJRC - ' - Me.PictureBoxJRC.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBoxJRC.Image = Global.VECTO.My.Resources.Resources.JRC_About - Me.PictureBoxJRC.Location = New System.Drawing.Point(216, 353) - Me.PictureBoxJRC.Name = "PictureBoxJRC" - Me.PictureBoxJRC.Size = New System.Drawing.Size(260, 54) - Me.PictureBoxJRC.TabIndex = 15 - Me.PictureBoxJRC.TabStop = False - ' - 'F_AboutBox - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.White +' Copyright 2014 European Union. +' Licensed under the EUPL (the 'Licence'); +' +' * You may not use this work except in compliance with the Licence. +' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl +' * Unless required by applicable law or agreed to in writing, +' software distributed under the Licence is distributed on an "AS IS" basis, +' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +' +' See the LICENSE.txt for the specific language governing permissions and limitations. +<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ +Partial Class F_AboutBox + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + <System.Diagnostics.DebuggerNonUserCode()> _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + <System.Diagnostics.DebuggerStepThrough()> _ + Private Sub InitializeComponent() + Me.Label10 = New System.Windows.Forms.Label() + Me.LabelLic = New System.Windows.Forms.Label() + Me.LabelLicDate = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBoxJRC = New System.Windows.Forms.PictureBox() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(9, 250) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(75, 13) + Me.Label10.TabIndex = 11 + Me.Label10.Text = "License file:" + ' + 'LabelLic + ' + Me.LabelLic.AutoSize = True + Me.LabelLic.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelLic.Location = New System.Drawing.Point(3, 0) + Me.LabelLic.Name = "LabelLic" + Me.LabelLic.Size = New System.Drawing.Size(22, 13) + Me.LabelLic.TabIndex = 12 + Me.LabelLic.Text = "Lic" + ' + 'LabelLicDate + ' + Me.LabelLicDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.LabelLicDate.AutoSize = True + Me.LabelLicDate.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelLicDate.Location = New System.Drawing.Point(3, 26) + Me.LabelLicDate.Name = "LabelLicDate" + Me.LabelLicDate.Size = New System.Drawing.Size(12, 13) + Me.LabelLicDate.TabIndex = 13 + Me.LabelLicDate.Text = "-" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(9, 346) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(162, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Developed on behalf of the" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(24, 368) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(158, 39) + Me.Label8.TabIndex = 3 + Me.Label8.Text = "Joint Research Centre" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sustainable Transport Unit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "European Commission" + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Panel1.Controls.Add(Me.LabelLic) + Me.Panel1.Controls.Add(Me.LabelLicDate) + Me.Panel1.Location = New System.Drawing.Point(12, 266) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(464, 52) + Me.Panel1.TabIndex = 16 + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = Global.VECTO.My.Resources.Resources.VECTO_About + Me.PictureBox1.Location = New System.Drawing.Point(23, 12) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(447, 182) + Me.PictureBox1.TabIndex = 14 + Me.PictureBox1.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(9, 436) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(105, 13) + Me.Label1.TabIndex = 7 + Me.Label1.Text = "Support Contact:" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(120, 436) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(122, 13) + Me.LinkLabel1.TabIndex = 17 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "vecto@jrc.ec.europa.eu" + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Font = New System.Drawing.Font("Verdana", 8.25!) + Me.LinkLabel2.Location = New System.Drawing.Point(20, 197) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(210, 13) + Me.LinkLabel2.TabIndex = 18 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "VECTO is licensed under EUPL 1.1+" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Verdana", 8.25!) + Me.Label3.Location = New System.Drawing.Point(20, 213) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(237, 13) + Me.Label3.TabIndex = 19 + Me.Label3.Text = "Copyright © 2012-2016 European Union" + ' + 'PictureBoxJRC + ' + Me.PictureBoxJRC.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBoxJRC.Image = Global.VECTO.My.Resources.Resources.JRC_About + Me.PictureBoxJRC.Location = New System.Drawing.Point(216, 353) + Me.PictureBoxJRC.Name = "PictureBoxJRC" + Me.PictureBoxJRC.Size = New System.Drawing.Size(260, 54) + Me.PictureBoxJRC.TabIndex = 15 + Me.PictureBoxJRC.TabStop = False + ' + 'F_AboutBox + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(491, 474) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.LinkLabel2) - Me.Controls.Add(Me.LinkLabel1) - Me.Controls.Add(Me.Panel1) - Me.Controls.Add(Me.PictureBoxJRC) - Me.Controls.Add(Me.PictureBox1) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label8) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow - Me.Name = "F_AboutBox" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent - Me.Text = "About VECTO" - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents LabelLic As System.Windows.Forms.Label - Friend WithEvents LabelLicDate As System.Windows.Forms.Label - Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents Panel1 As System.Windows.Forms.Panel - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel - Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents PictureBoxJRC As System.Windows.Forms.PictureBox -End Class + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.LinkLabel2) + Me.Controls.Add(Me.LinkLabel1) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.PictureBoxJRC) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label8) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "F_AboutBox" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "About VECTO" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents LabelLic As System.Windows.Forms.Label + Friend WithEvents LabelLicDate As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents PictureBoxJRC As System.Windows.Forms.PictureBox +End Class diff --git a/VECTO/GUI/F_AboutBox.vb b/VECTO/GUI/F_AboutBox.vb index 2cacd679b1..a396719aaf 100644 --- a/VECTO/GUI/F_AboutBox.vb +++ b/VECTO/GUI/F_AboutBox.vb @@ -37,7 +37,8 @@ Public Class F_AboutBox End Sub - Private Sub LinkLabel2_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked - System.Diagnostics.Process.Start("https://joinup.ec.europa.eu/software/page/eupl") - End Sub + Private Sub LinkLabel2_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _ + Handles LinkLabel2.LinkClicked + System.Diagnostics.Process.Start("https://joinup.ec.europa.eu/community/eupl/og_page/eupl") + End Sub End Class -- GitLab