From 5fc67238f29d5c64a012e3cef4f0e79edbcc043e Mon Sep 17 00:00:00 2001 From: Barbra2020 Date: Mon, 11 Dec 2023 12:28:38 +0300 Subject: [PATCH 1/3] Changes to the code --- instat/dlgIDFCurves.Designer.vb | 41 +++++++++++ instat/dlgIDFCurves.resx | 120 ++++++++++++++++++++++++++++++++ instat/dlgIDFCurves.vb | 3 + instat/frmMain.Designer.vb | 4 +- instat/frmMain.vb | 4 ++ instat/instat.vbproj | 9 +++ 6 files changed, 178 insertions(+), 3 deletions(-) create mode 100644 instat/dlgIDFCurves.Designer.vb create mode 100644 instat/dlgIDFCurves.resx create mode 100644 instat/dlgIDFCurves.vb diff --git a/instat/dlgIDFCurves.Designer.vb b/instat/dlgIDFCurves.Designer.vb new file mode 100644 index 00000000000..1569dccfe7c --- /dev/null +++ b/instat/dlgIDFCurves.Designer.vb @@ -0,0 +1,41 @@ + _ +Partial Class dlgIDFCurves + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + 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 + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'dlgIDFCurves + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(487, 450) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "dlgIDFCurves" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "dlgIDFCurves" + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/instat/dlgIDFCurves.resx b/instat/dlgIDFCurves.resx new file mode 100644 index 00000000000..1af7de150c9 --- /dev/null +++ b/instat/dlgIDFCurves.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/instat/dlgIDFCurves.vb b/instat/dlgIDFCurves.vb new file mode 100644 index 00000000000..e146ccf6d86 --- /dev/null +++ b/instat/dlgIDFCurves.vb @@ -0,0 +1,3 @@ +Public Class dlgIDFCurves + +End Class \ No newline at end of file diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index 8b97727f1a8..d5dc9e36a17 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -5092,9 +5092,7 @@ Partial Class frmMain Me.IsMdiContainer = True Me.MainMenuStrip = Me.mnuBar Me.Name = "frmMain" - Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." + - My.Application.Info.Version.Minor.ToString + "." + - My.Application.Info.Version.Build.ToString + Me.Text = "R-Instat .." Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.stsStrip.ResumeLayout(False) Me.stsStrip.PerformLayout() diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 27eb531ec8a..3d47b2e8971 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -2636,4 +2636,8 @@ Public Class frmMain Private Sub mnuClimaticDescribeSeasonalGraph_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeSeasonalGraph.Click dlgSeasonalGraph.ShowDialog() End Sub + + Private Sub mnuClimaticDescribeIDF_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeIDF.Click + dlgIDFCurves.ShowDialog() + End Sub End Class diff --git a/instat/instat.vbproj b/instat/instat.vbproj index a650e9eec1d..eb03c008b07 100644 --- a/instat/instat.vbproj +++ b/instat/instat.vbproj @@ -245,6 +245,12 @@ Form + + dlgIDFCurves.vb + + + Form + dlgImportFromPostgres.vb @@ -3044,6 +3050,9 @@ dlgHomogenization.vb + + dlgIDFCurves.vb + dlgImportERA5Data.vb From cf2dcea934facfcb9932c8045f14453cf19e67be Mon Sep 17 00:00:00 2001 From: Barbra2020 Date: Mon, 11 Dec 2023 12:38:32 +0300 Subject: [PATCH 2/3] changes to dialog --- instat/dlgIDFCurves.Designer.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/instat/dlgIDFCurves.Designer.vb b/instat/dlgIDFCurves.Designer.vb index 1569dccfe7c..f9af1238740 100644 --- a/instat/dlgIDFCurves.Designer.vb +++ b/instat/dlgIDFCurves.Designer.vb @@ -34,7 +34,7 @@ Partial Class dlgIDFCurves Me.MinimizeBox = False Me.Name = "dlgIDFCurves" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "dlgIDFCurves" + Me.Text = "IDF Curves" Me.ResumeLayout(False) End Sub From 0e74a35d809fa7a10000b2961d89149a1864828c Mon Sep 17 00:00:00 2001 From: Barbra2020 Date: Mon, 11 Dec 2023 13:13:47 +0300 Subject: [PATCH 3/3] changes to the code --- instat/frmMain.Designer.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index d5dc9e36a17..8b97727f1a8 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -5092,7 +5092,9 @@ Partial Class frmMain Me.IsMdiContainer = True Me.MainMenuStrip = Me.mnuBar Me.Name = "frmMain" - Me.Text = "R-Instat .." + Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." + + My.Application.Info.Version.Minor.ToString + "." + + My.Application.Info.Version.Build.ToString Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.stsStrip.ResumeLayout(False) Me.stsStrip.PerformLayout()