AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_0612

Browse Source
This commit is contained in:
SchreiberM 2016-12-07 10:18:58 +01:00
parent 29abb10c1b
commit e809444d94
14 changed files with 418 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD-Record-Organiser/ClassLogger.vb
View File

@ -49,6 +49,7 @@ Public Class ClassLogger
Else
ClassLogger.DateiSpeicherort = speicherort
End If
End Sub
' legt das Prefix für den Dateinamen fest

4
app/DD-Record-Organiser/ClassWindreamDocGrid.vb
View File

@ -68,8 +68,10 @@ Public Class ClassWindreamDocGrid
End Try
Try
newRow("INWORK") = gridView.GetRowCellValue(row, "in work?")
SELECTED_INWORK = gridView.GetRowCellValue(row, "in work?")
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = gridView.GetRowCellValue(row, "Displayname")
@ -106,8 +108,10 @@ Public Class ClassWindreamDocGrid
End Try
Try
newRow("INWORK") = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
SELECTED_INWORK = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
Catch ex As Exception
newRow("INWORK") = False
SELECTED_INWORK = False
End Try
Try
Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname"))

6
app/DD-Record-Organiser/ModuleRuntimeVariables.vb
View File

@ -128,4 +128,10 @@
Public FAU_AD_USER_PW As String
Public FAU_AD_SERVER As String
Public MSG_TITLE As String
Public MSG_LABLE1 As String
Public MSG_ERROR1 As String
Public MSG_LABLE2 As String
Public MSG_ERROR2 As String
End Module

15
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@ -227,7 +227,6 @@ Partial Class frmConstructor_Main
Me.TabDetails.SuspendLayout()
CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDetails.SuspendLayout()
Me.pnlDocFill.SuspendLayout()
Me.statStripDoc.SuspendLayout()
Me.ToolStripEdit.SuspendLayout()
Me.TabWindream.SuspendLayout()
@ -642,9 +641,10 @@ Partial Class frmConstructor_Main
Me.SplitContainerDetails.Name = "SplitContainerDetails"
Me.SplitContainerDetails.Panel1.Controls.Add(Me.pnlDetails)
resources.ApplyResources(Me.SplitContainerDetails.Panel1, "SplitContainerDetails.Panel1")
Me.SplitContainerDetails.Panel2.Controls.Add(Me.pnlDocFill)
Me.SplitContainerDetails.Panel2.Controls.Add(Me.pnlDocToolStrip)
resources.ApplyResources(Me.SplitContainerDetails.Panel2, "SplitContainerDetails.Panel2")
Me.SplitContainerDetails.Panel2.Controls.Add(Me.pnlDocFill)
Me.SplitContainerDetails.Panel2.Controls.Add(Me.statStripDoc)
Me.SplitContainerDetails.Panel2.Controls.Add(Me.pnlDocToolStrip)
Me.SplitContainerDetails.SplitterPosition = 786
'
'pnlDetails
@ -655,7 +655,6 @@ Partial Class frmConstructor_Main
'
'pnlDocFill
'
Me.pnlDocFill.Controls.Add(Me.statStripDoc)
resources.ApplyResources(Me.pnlDocFill, "pnlDocFill")
Me.pnlDocFill.Name = "pnlDocFill"
'
@ -1535,8 +1534,6 @@ Partial Class frmConstructor_Main
Me.TabDetails.PerformLayout()
CType(Me.SplitContainerDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDetails.ResumeLayout(False)
Me.pnlDocFill.ResumeLayout(False)
Me.pnlDocFill.PerformLayout()
Me.statStripDoc.ResumeLayout(False)
Me.statStripDoc.PerformLayout()
Me.ToolStripEdit.ResumeLayout(False)
@ -1581,9 +1578,9 @@ Partial Class frmConstructor_Main
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout
Me.PerformLayout()
End Sub
End Sub
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
@ -1734,7 +1731,6 @@ End Sub
Friend WithEvents docCMEntityWideSearch As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator20 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents pnlDocToolStrip As System.Windows.Forms.Panel
Friend WithEvents pnlDocFill As System.Windows.Forms.Panel
Friend WithEvents statStripDoc As System.Windows.Forms.StatusStrip
Friend WithEvents tslblDocIDTab1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblDocViewLocked As System.Windows.Forms.ToolStripStatusLabel
@ -1768,4 +1764,5 @@ End Sub
Friend WithEvents tsbtnPanel1Collapse As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator21 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripSeparator22 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents pnlDocFill As System.Windows.Forms.Panel
End Class

115
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@ -177,7 +177,7 @@
<value>Auswertung anzeigen</value>
</data>
<data name="CMSEntity.Size" type="System.Drawing.Size, System.Drawing">
<value>195, 138</value>
<value>195, 160</value>
</data>
<data name="&gt;&gt;CMSEntity.Name" xml:space="preserve">
<value>CMSEntity</value>
@ -343,7 +343,7 @@
<value>0, 25</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 212</value>
<value>1067, 212</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -466,7 +466,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 25</value>
<value>1067, 25</value>
</data>
<data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -550,7 +550,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>786, 343</value>
<value>786, 336</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -570,44 +570,8 @@
<data name="SplitContainerDetails.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<metadata name="statStripDoc.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>987, 95</value>
</metadata>
<data name="tslblDocIDTab1.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 19</value>
</data>
<data name="tslblDocIDTab1.Text" xml:space="preserve">
<value>DocID:</value>
</data>
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>281, 19</value>
</data>
<data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>Ansicht gesperrt - Klick Bearbeiten für Entsperren</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 293</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 24</value>
</data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="statStripDoc.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;statStripDoc.Name" xml:space="preserve">
<value>statStripDoc</value>
</data>
<data name="&gt;&gt;statStripDoc.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;statStripDoc.Parent" xml:space="preserve">
<value>pnlDocFill</value>
</data>
<data name="&gt;&gt;statStripDoc.ZOrder" xml:space="preserve">
<value>0</value>
<data name="SplitContainerDetails.Panel2.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="pnlDocFill.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
@ -616,7 +580,7 @@
<value>0, 26</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 317</value>
<value>554, 286</value>
</data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -633,6 +597,45 @@
<data name="&gt;&gt;pnlDocFill.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="statStripDoc.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>987, 95</value>
</metadata>
<data name="tslblDocIDTab1.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 19</value>
</data>
<data name="tslblDocIDTab1.Text" xml:space="preserve">
<value>DocID:</value>
</data>
<data name="tslblDocViewLocked.Size" type="System.Drawing.Size, System.Drawing">
<value>281, 19</value>
</data>
<data name="tslblDocViewLocked.Text" xml:space="preserve">
<value>Ansicht gesperrt - Klick Bearbeiten für Entsperren</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 312</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>554, 24</value>
</data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="statStripDoc.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;statStripDoc.Name" xml:space="preserve">
<value>statStripDoc</value>
</data>
<data name="&gt;&gt;statStripDoc.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;statStripDoc.Parent" xml:space="preserve">
<value>SplitContainerDetails.Panel2</value>
</data>
<data name="&gt;&gt;statStripDoc.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="pnlDocToolStrip.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
@ -640,7 +643,7 @@
<value>0, 0</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>561, 26</value>
<value>554, 26</value>
</data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -655,13 +658,13 @@
<value>SplitContainerDetails.Panel2</value>
</data>
<data name="&gt;&gt;pnlDocToolStrip.ZOrder" xml:space="preserve">
<value>1</value>
<value>2</value>
</data>
<data name="SplitContainerDetails.Panel2.Text" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1356, 340</value>
</data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -837,7 +840,7 @@
<value>1</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
<value>1356, 365</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@ -855,7 +858,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1362, 403</value>
<value>1362, 396</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -1002,7 +1005,7 @@
<value>Aqua</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1356, 340</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@ -1092,7 +1095,7 @@
<value>1</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
<value>1356, 365</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value>
@ -1523,7 +1526,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
<value>1356, 365</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@ -1550,7 +1553,7 @@
<value>Cyan</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1356, 340</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -1574,7 +1577,7 @@
<value>0, 25</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1356, 340</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -1778,7 +1781,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
<value>1356, 365</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@ -1889,7 +1892,7 @@
<value>5</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1356, 340</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@ -1961,7 +1964,7 @@
<value>1</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value>
<value>1356, 365</value>
</data>
<data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value>

26
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -5796,8 +5796,8 @@ Public Class frmConstructor_Main
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
IW_USER = foundRowsLevel0(0)(13)
IW_COMMENT = foundRowsLevel0(0)(14)
IW_USER = foundRowsLevel0(0)("IN_WORK_USER")
IW_COMMENT = foundRowsLevel0(0)("IN_WORK_COMMENT")
Catch ex As Exception
IW_USER = ""
IW_COMMENT = ""
@ -5808,7 +5808,7 @@ Public Class frmConstructor_Main
Dim displ As String
If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
displ = "Datei wieder freigeben"
If USER_LANGUAGE <> "de-DE" Then
displ = "Set file free"
@ -5839,7 +5839,7 @@ Public Class frmConstructor_Main
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
If ClassWindreamDocGrid.SELECTED_INWORK = True Then ' Datei ist in Bearbeitung
Dim displ As String
If IW_USER.ToUpper = USER_USERNAME.ToUpper Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
If ClassFileResult.Set_InWork(0, "") = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
@ -6362,4 +6362,22 @@ Public Class frmConstructor_Main
tsbtnPanel1Collapse.Image = My.Resources.arrow_left
End If
End Sub
Private Sub CMSEntity_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles CMSEntity.Opening
Dim control = Me.ActiveControl
Console.WriteLine(control.Name)
If Not IsNothing(control) Then
If control.Name <> TreeViewMain.Name Then
e.Cancel = True
End If
End If
End Sub
Private Function FindFocussedControl(ByVal ctr As Control) As Control
Dim container As ContainerControl = TryCast(ctr, ContainerControl)
Do While (container IsNot Nothing)
ctr = container.ActiveControl
container = TryCast(ctr, ContainerControl)
Loop
Return ctr
End Function
End Class

30
app/DD-Record-Organiser/frmGeodataSelect.Designer.vb generated
View File

@ -22,8 +22,8 @@ Partial Class frmGeodataSelect
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ImageTilesLayer2 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim VectorItemsLayer2 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
Dim ImageTilesLayer1 As DevExpress.XtraMap.ImageTilesLayer = New DevExpress.XtraMap.ImageTilesLayer()
Dim VectorItemsLayer1 As DevExpress.XtraMap.VectorItemsLayer = New DevExpress.XtraMap.VectorItemsLayer()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.btnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
@ -31,6 +31,7 @@ Partial Class frmGeodataSelect
Me.txtLat = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel()
Me.txtLon = New System.Windows.Forms.ToolStripLabel()
Me.tsbtnactivate = New System.Windows.Forms.ToolStripButton()
Me.MapControl1 = New DevExpress.XtraMap.MapControl()
Me.ToolStrip1.SuspendLayout()
CType(Me.MapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -39,10 +40,10 @@ Partial Class frmGeodataSelect
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSave, Me.ToolStripLabel1, Me.ToolStripLabel2, Me.txtLat, Me.ToolStripLabel4, Me.txtLon})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnSave, Me.ToolStripLabel1, Me.ToolStripLabel2, Me.txtLat, Me.ToolStripLabel4, Me.txtLon, Me.tsbtnactivate})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(882, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(934, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
@ -86,23 +87,31 @@ Partial Class frmGeodataSelect
Me.txtLon.Size = New System.Drawing.Size(40, 22)
Me.txtLon.Text = "txtLon"
'
'tsbtnactivate
'
Me.tsbtnactivate.Image = Global.DD_Record_Organiser.My.Resources.Resources.base_globe_32
Me.tsbtnactivate.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnactivate.Name = "tsbtnactivate"
Me.tsbtnactivate.Size = New System.Drawing.Size(148, 22)
Me.tsbtnactivate.Text = "Aktiviere Mausauswahl"
'
'MapControl1
'
Me.MapControl1.Dock = System.Windows.Forms.DockStyle.Fill
ImageTilesLayer2.Name = "ImageLayer"
VectorItemsLayer2.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer2)
Me.MapControl1.Layers.Add(VectorItemsLayer2)
ImageTilesLayer1.Name = "ImageLayer"
VectorItemsLayer1.Name = "VectorLayer"
Me.MapControl1.Layers.Add(ImageTilesLayer1)
Me.MapControl1.Layers.Add(VectorItemsLayer1)
Me.MapControl1.Location = New System.Drawing.Point(0, 25)
Me.MapControl1.Name = "MapControl1"
Me.MapControl1.Size = New System.Drawing.Size(882, 442)
Me.MapControl1.Size = New System.Drawing.Size(934, 442)
Me.MapControl1.TabIndex = 1
'
'frmGeodataSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(882, 467)
Me.ClientSize = New System.Drawing.Size(934, 467)
Me.Controls.Add(Me.MapControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmGeodataSelect"
@ -122,4 +131,5 @@ Partial Class frmGeodataSelect
Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel
Friend WithEvents txtLon As System.Windows.Forms.ToolStripLabel
Friend WithEvents MapControl1 As DevExpress.XtraMap.MapControl
Friend WithEvents tsbtnactivate As System.Windows.Forms.ToolStripButton
End Class

16
app/DD-Record-Organiser/frmGeodataSelect.vb
View File

@ -2,7 +2,7 @@
Public Class frmGeodataSelect
Public SelectedPoint As GeoPoint = Nothing
Dim _SelectActive As Boolean = False
Private BING_KEY As String = "hQUTlqLLK70bETnonpfi~0jx1pIAq1yQ7gXqbIyzKrg~Au-Tewbty8afAxdbNilSv4JlU7qwU-fQKu0ouH9e1uJmpIyVdA3jugVEWMdy1Rbt"
Private ReadOnly Property ImageLayer() As ImageTilesLayer
@ -33,7 +33,9 @@ Public Class frmGeodataSelect
If e.Button <> Windows.Forms.MouseButtons.Left Then
Exit Sub
End If
If _SelectActive = False Then
Exit Sub
End If
Dim point As GeoPoint = MapControl1.ScreenPointToCoordPoint(e.Location)
Dim items As New List(Of MapPushpin)
@ -73,4 +75,14 @@ Public Class frmGeodataSelect
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub tsbtnactivate_Click(sender As Object, e As EventArgs) Handles tsbtnactivate.Click
If _SelectActive = False Then
_SelectActive = True
tsbtnactivate.Checked = True
Else
tsbtnactivate.Checked = False
_SelectActive = False
End If
End Sub
End Class

102
app/DD-Record-Organiser/frmMessageBox.Designer.vb generated Normal file
View File

@ -0,0 +1,102 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMessageBox
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.OK_Button = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'OK_Button
'
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Location = New System.Drawing.Point(305, 153)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(118, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(321, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(324, 30)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(38, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Label2"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(305, 64)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 21)
Me.TextBox1.TabIndex = 3
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(327, 106)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 21)
Me.TextBox2.TabIndex = 4
'
'frmMessageBox
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(435, 188)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.OK_Button)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMessageBox"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "frmMessageBox"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
End Class

120
app/DD-Record-Organiser/frmMessageBox.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

15
app/DD-Record-Organiser/frmMessageBox.vb Normal file
View File

@ -0,0 +1,15 @@
Imports System.Windows.Forms
Public Class frmMessageBox
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
End Class

9
app/DD-Record-Organiser/frmSplash.Designer.vb generated
View File

@ -35,6 +35,7 @@ Partial Class frmSplash
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblpersonilization = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
@ -95,11 +96,18 @@ Partial Class frmSplash
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'lblpersonilization
'
resources.ApplyResources(Me.lblpersonilization, "lblpersonilization")
Me.lblpersonilization.BackColor = System.Drawing.Color.Yellow
Me.lblpersonilization.Name = "lblpersonilization"
'
'frmSplash
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ControlBox = False
Me.Controls.Add(Me.lblpersonilization)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ApplicationTitle)
Me.Controls.Add(Me.PictureBox1)
@ -128,5 +136,6 @@ Partial Class frmSplash
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblpersonilization As System.Windows.Forms.Label
End Class

45
app/DD-Record-Organiser/frmSplash.resx
View File

@ -217,7 +217,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;ApplicationTitle.ZOrder" xml:space="preserve">
<value>1</value>
<value>2</value>
</data>
<data name="lblStatus.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -250,7 +250,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;lblStatus.ZOrder" xml:space="preserve">
<value>4</value>
<value>5</value>
</data>
<data name="pbStatus.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Bottom</value>
@ -274,7 +274,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;pbStatus.ZOrder" xml:space="preserve">
<value>5</value>
<value>6</value>
</data>
<data name="TableLayoutPanel1.ColumnCount" type="System.Int32, mscorlib">
<value>1</value>
@ -301,7 +301,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.ZOrder" xml:space="preserve">
<value>3</value>
<value>4</value>
</data>
<data name="TableLayoutPanel1.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms">
<value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls&gt;&lt;Control Name="Copyright" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;Control Name="Version" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;/Controls&gt;&lt;Columns Styles="AutoSize,0" /&gt;&lt;Rows Styles="Percent,50,Percent,50,Absolute,20" /&gt;&lt;/TableLayoutSettings&gt;</value>
@ -328,7 +328,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;PictureBox1.ZOrder" xml:space="preserve">
<value>2</value>
<value>3</value>
</data>
<data name="PictureBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
@ -352,7 +352,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;PictureBox2.ZOrder" xml:space="preserve">
<value>6</value>
<value>7</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -382,6 +382,39 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="lblpersonilization.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lblpersonilization.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="lblpersonilization.Location" type="System.Drawing.Point, System.Drawing">
<value>299, 378</value>
</data>
<data name="lblpersonilization.Size" type="System.Drawing.Size, System.Drawing">
<value>141, 13</value>
</data>
<data name="lblpersonilization.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="lblpersonilization.Text" xml:space="preserve">
<value>Personified Login active</value>
</data>
<data name="lblpersonilization.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;lblpersonilization.Name" xml:space="preserve">
<value>lblpersonilization</value>
</data>
<data name="&gt;&gt;lblpersonilization.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblpersonilization.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblpersonilization.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

1
app/DD-Record-Organiser/frmSplash.vb
View File

@ -14,6 +14,7 @@ Public NotInheritable Class frmSplash
Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then
ESC_Hidden = True
lblpersonilization.Visible = True
End If
End Sub