jj 19.10 improve diagrams, add export options

This commit is contained in:
JenneJ
2016-10-19 16:24:36 +02:00
parent 11ec67a434
commit 21d95420e3
3 changed files with 400 additions and 116 deletions

View File

@@ -26,10 +26,20 @@ Partial Class frmDiagrams
Me.SplitContainerMain = New System.Windows.Forms.SplitContainer()
Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripTopLeft = New System.Windows.Forms.ToolStrip()
Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripTopRight = New System.Windows.Forms.ToolStrip()
Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer()
Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip()
Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip()
Me.ToolStripMain = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.saveDialog = New System.Windows.Forms.SaveFileDialog()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.txtExportTitle = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.Panel1.SuspendLayout()
Me.SplitContainerMain.Panel2.SuspendLayout()
@@ -46,12 +56,15 @@ Partial Class frmDiagrams
Me.SplitContainerBottom.SuspendLayout()
CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripMain.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainerMain
'
Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SplitContainerMain.Location = New System.Drawing.Point(0, 28)
Me.SplitContainerMain.Name = "SplitContainerMain"
Me.SplitContainerMain.Orientation = System.Windows.Forms.Orientation.Horizontal
'
@@ -62,8 +75,8 @@ Partial Class frmDiagrams
'SplitContainerMain.Panel2
'
Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerBottom)
Me.SplitContainerMain.Size = New System.Drawing.Size(1160, 671)
Me.SplitContainerMain.SplitterDistance = 386
Me.SplitContainerMain.Size = New System.Drawing.Size(1160, 643)
Me.SplitContainerMain.SplitterDistance = 369
Me.SplitContainerMain.TabIndex = 0
'
'SplitContainerTop
@@ -75,32 +88,52 @@ Partial Class frmDiagrams
'SplitContainerTop.Panel1
'
Me.SplitContainerTop.Panel1.Controls.Add(Me.ChartTopLeft)
Me.SplitContainerTop.Panel1.Controls.Add(Me.ToolStripTopLeft)
'
'SplitContainerTop.Panel2
'
Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight)
Me.SplitContainerTop.Size = New System.Drawing.Size(1160, 386)
Me.SplitContainerTop.Panel2.Controls.Add(Me.ToolStripTopRight)
Me.SplitContainerTop.Size = New System.Drawing.Size(1160, 369)
Me.SplitContainerTop.SplitterDistance = 386
Me.SplitContainerTop.TabIndex = 0
'
'ChartTopLeft
'
Me.ChartTopLeft.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartTopLeft.Location = New System.Drawing.Point(0, 0)
Me.ChartTopLeft.Location = New System.Drawing.Point(0, 25)
Me.ChartTopLeft.Name = "ChartTopLeft"
Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartTopLeft.Size = New System.Drawing.Size(386, 386)
Me.ChartTopLeft.TabIndex = 0
Me.ChartTopLeft.Size = New System.Drawing.Size(386, 344)
Me.ChartTopLeft.TabIndex = 2
'
'ToolStripTopLeft
'
Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopLeft.Location = New System.Drawing.Point(0, 0)
Me.ToolStripTopLeft.Name = "ToolStripTopLeft"
Me.ToolStripTopLeft.Size = New System.Drawing.Size(386, 25)
Me.ToolStripTopLeft.TabIndex = 1
Me.ToolStripTopLeft.Text = "ToolStrip1"
'
'ChartTopRight
'
Me.ChartTopRight.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartTopRight.Location = New System.Drawing.Point(0, 0)
Me.ChartTopRight.Location = New System.Drawing.Point(0, 25)
Me.ChartTopRight.Name = "ChartTopRight"
Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartTopRight.Size = New System.Drawing.Size(770, 386)
Me.ChartTopRight.Size = New System.Drawing.Size(770, 344)
Me.ChartTopRight.TabIndex = 1
'
'ToolStripTopRight
'
Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopRight.Location = New System.Drawing.Point(0, 0)
Me.ToolStripTopRight.Name = "ToolStripTopRight"
Me.ToolStripTopRight.Size = New System.Drawing.Size(770, 25)
Me.ToolStripTopRight.TabIndex = 0
Me.ToolStripTopRight.Text = "ToolStrip2"
'
'SplitContainerBottom
'
Me.SplitContainerBottom.Dock = System.Windows.Forms.DockStyle.Fill
@@ -110,37 +143,92 @@ Partial Class frmDiagrams
'SplitContainerBottom.Panel1
'
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ChartBottomLeft)
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripBottomLeft)
'
'SplitContainerBottom.Panel2
'
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight)
Me.SplitContainerBottom.Size = New System.Drawing.Size(1160, 281)
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ToolStripBottomRight)
Me.SplitContainerBottom.Size = New System.Drawing.Size(1160, 270)
Me.SplitContainerBottom.SplitterDistance = 386
Me.SplitContainerBottom.TabIndex = 0
'
'ChartBottomLeft
'
Me.ChartBottomLeft.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartBottomLeft.Location = New System.Drawing.Point(0, 0)
Me.ChartBottomLeft.Location = New System.Drawing.Point(0, 25)
Me.ChartBottomLeft.Name = "ChartBottomLeft"
Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartBottomLeft.Size = New System.Drawing.Size(386, 281)
Me.ChartBottomLeft.TabIndex = 0
Me.ChartBottomLeft.Size = New System.Drawing.Size(386, 245)
Me.ChartBottomLeft.TabIndex = 1
'
'ToolStripBottomLeft
'
Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomLeft.Location = New System.Drawing.Point(0, 0)
Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft"
Me.ToolStripBottomLeft.Size = New System.Drawing.Size(386, 25)
Me.ToolStripBottomLeft.TabIndex = 0
Me.ToolStripBottomLeft.Text = "ToolStrip4"
'
'ChartBottomRight
'
Me.ChartBottomRight.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartBottomRight.Location = New System.Drawing.Point(0, 0)
Me.ChartBottomRight.Location = New System.Drawing.Point(0, 25)
Me.ChartBottomRight.Name = "ChartBottomRight"
Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartBottomRight.Size = New System.Drawing.Size(770, 281)
Me.ChartBottomRight.TabIndex = 0
Me.ChartBottomRight.Size = New System.Drawing.Size(770, 245)
Me.ChartBottomRight.TabIndex = 1
'
'ToolStripBottomRight
'
Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomRight.Location = New System.Drawing.Point(0, 0)
Me.ToolStripBottomRight.Name = "ToolStripBottomRight"
Me.ToolStripBottomRight.Size = New System.Drawing.Size(770, 25)
Me.ToolStripBottomRight.TabIndex = 0
Me.ToolStripBottomRight.Text = "ToolStrip3"
'
'ToolStripMain
'
Me.ToolStripMain.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripSeparator1, Me.ToolStripLabel1, Me.txtExportTitle})
Me.ToolStripMain.Location = New System.Drawing.Point(0, 0)
Me.ToolStripMain.Name = "ToolStripMain"
Me.ToolStripMain.Size = New System.Drawing.Size(1160, 25)
Me.ToolStripMain.TabIndex = 1
Me.ToolStripMain.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.pdf
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(101, 22)
Me.ToolStripButton1.Text = "Export als PDF"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(87, 22)
Me.ToolStripLabel1.Text = "Titel für Export:"
'
'txtExportTitle
'
Me.txtExportTitle.Name = "txtExportTitle"
Me.txtExportTitle.Size = New System.Drawing.Size(150, 25)
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'frmDiagrams
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1160, 671)
Me.Controls.Add(Me.ToolStripMain)
Me.Controls.Add(Me.SplitContainerMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmDiagrams"
@@ -150,25 +238,42 @@ Partial Class frmDiagrams
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(False)
Me.SplitContainerTop.Panel1.ResumeLayout(False)
Me.SplitContainerTop.Panel1.PerformLayout()
Me.SplitContainerTop.Panel2.ResumeLayout(False)
Me.SplitContainerTop.Panel2.PerformLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTop.ResumeLayout(False)
CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerBottom.Panel1.ResumeLayout(False)
Me.SplitContainerBottom.Panel1.PerformLayout()
Me.SplitContainerBottom.Panel2.ResumeLayout(False)
Me.SplitContainerBottom.Panel2.PerformLayout()
CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerBottom.ResumeLayout(False)
CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripMain.ResumeLayout(False)
Me.ToolStripMain.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents SplitContainerMain As System.Windows.Forms.SplitContainer
Friend WithEvents SplitContainerTop As System.Windows.Forms.SplitContainer
Friend WithEvents SplitContainerBottom As System.Windows.Forms.SplitContainer
Friend WithEvents ChartTopLeft As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripTopLeft As System.Windows.Forms.ToolStrip
Friend WithEvents ChartTopRight As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripTopRight As System.Windows.Forms.ToolStrip
Friend WithEvents ChartBottomLeft As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripBottomLeft As System.Windows.Forms.ToolStrip
Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripBottomRight As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripMain As System.Windows.Forms.ToolStrip
Friend WithEvents saveDialog As System.Windows.Forms.SaveFileDialog
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents txtExportTitle As System.Windows.Forms.ToolStripTextBox
End Class