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

Design for presearch, searchstart and flow form

Browse Source
This commit is contained in:
Jonathan Jenne 2020-11-05 16:20:35 +01:00
parent 10f660460f
commit 88edadc816
16 changed files with 602 additions and 270 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
GUIs.ZooFlow/App.config Normal file
View File

@ -0,0 +1,97 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<applicationSettings>
<DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 Colorful</value>
</setting>
<setting name="DefaultPalette" serializeAs="String">
<value>Custom/Digital Data Palette</value>
</setting>
<setting name="TouchUI" serializeAs="String">
<value></value>
</setting>
<setting name="CompactUI" serializeAs="String">
<value></value>
</setting>
<setting name="TouchScaleFactor" serializeAs="String">
<value></value>
</setting>
<setting name="DirectX" serializeAs="String">
<value></value>
</setting>
<setting name="RegisterUserSkins" serializeAs="String">
<value></value>
</setting>
<setting name="RegisterBonusSkins" serializeAs="String">
<value></value>
</setting>
<setting name="FontBehavior" serializeAs="String">
<value>UseSegoeUI</value>
</setting>
<setting name="DefaultAppFont" serializeAs="String">
<value></value>
</setting>
<setting name="DPIAwarenessMode" serializeAs="String">
<value></value>
</setting>
<setting name="CustomPaletteCollection" serializeAs="Xml">
<value>
<CustomPaletteCollection>
<Skin Name="Office 2019 Colorful">
<SvgPalette Name="Digital Data Palette">
<SvgColor Name="Paint" Value="248,248,248" />
<SvgColor Name="Paint High" Value="255,255,255" />
<SvgColor Name="Paint Shadow" Value="240,240,240" />
<SvgColor Name="Paint Deep Shadow" Value="230,230,230" />
<SvgColor Name="Brush" Value="72,70,68" />
<SvgColor Name="Brush High" Value="72,70,68" />
<SvgColor Name="Brush Light" Value="119,119,119" />
<SvgColor Name="Brush Major" Value="171,171,171" />
<SvgColor Name="Brush Minor" Value="210,210,210" />
<SvgColor Name="Accent Paint" Value="165,36,49" />
<SvgColor Name="Accent Paint Dark" Value="165,36,49" />
<SvgColor Name="Accent Paint Light" Value="250,220,221" />
<SvgColor Name="Accent Paint Lighter" Value="251,233,234" />
<SvgColor Name="Accent Brush" Value="255,255,255" />
<SvgColor Name="Accent Brush Light" Value="218,175,176" />
<SvgColor Name="Red" Value="237,61,59" />
<SvgColor Name="Green" Value="48,144,72" />
<SvgColor Name="Blue" Value="30,139,205" />
<SvgColor Name="Yellow" Value="251,152,59" />
<SvgColor Name="Black" Value="87,87,85" />
<SvgColor Name="Gray" Value="169,168,168" />
<SvgColor Name="White" Value="255,255,255" />
</SvgPalette>
</Skin>
</CustomPaletteCollection>
</value>
</setting>
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
</configuration>

2
GUIs.ZooFlow/ClassInitLoader.vb
View File

@ -67,7 +67,7 @@ Public Class ClassInitLoader
Dim oPercentComplete As Integer = CInt(Math.Truncate(oStepCounter / Steps.Count * 100)) Dim oPercentComplete As Integer = CInt(Math.Truncate(oStepCounter / Steps.Count * 100))
_Worker.ReportProgress(oPercentComplete) _Worker.ReportProgress(oPercentComplete)
Threading.Thread.Sleep(600) Threading.Thread.Sleep(200)
Next Next
e.Result = oMyApplication e.Result = oMyApplication

1
GUIs.ZooFlow/Config/ClassUIConfig.vb
View File

@ -1,5 +1,4 @@
Public Class ClassUIConfig Public Class ClassUIConfig
Public Property SkinName As String = "Office 2016 Colorful"
Public Property FlowForm As New FlowFormConfig Public Property FlowForm As New FlowFormConfig
Public Property SearchForm As New SearchFormConfig Public Property SearchForm As New SearchFormConfig
Public Class FlowFormConfig Public Class FlowFormConfig

4
GUIs.ZooFlow/My Project/Application.Designer.vb generated
View File

@ -29,8 +29,8 @@ Namespace My
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DigitalData.GUIs.ZooFlow.frmFlowForm Me.MainForm = Global.DigitalData.GUIs.ZooFlow.frmFlowForm
End Sub End Sub

17
GUIs.ZooFlow/My Project/licenses.licx
View File

@ -1,12 +1,13 @@
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

1
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -189,6 +189,7 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput> <LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource> </EmbeddedResource>
<None Include="App.config" />
<None Include="My Project\DataSources\ZooFlow.State.ClassUserState.datasource" /> <None Include="My Project\DataSources\ZooFlow.State.ClassUserState.datasource" />
<None Include="My Project\Settings.settings"> <None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator> <Generator>SettingsSingleFileGenerator</Generator>

133
GUIs.ZooFlow/frmConfigDatabase.Designer.vb generated
View File

@ -22,7 +22,6 @@ Partial Class frmConfigDatabase
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.txtServerName = New DevExpress.XtraEditors.TextEdit() Me.txtServerName = New DevExpress.XtraEditors.TextEdit()
Me.txtUserName = New DevExpress.XtraEditors.TextEdit() Me.txtUserName = New DevExpress.XtraEditors.TextEdit()
@ -40,24 +39,24 @@ Partial Class frmConfigDatabase
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1,System.ComponentModel.ISupportInitialize).BeginInit
Me.LayoutControl1.SuspendLayout() Me.LayoutControl1.SuspendLayout
CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtServerName.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtUserName.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtPassword.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.cmbDatabase.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtConnectionString.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.chkWinAuth.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem7,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout() Me.SuspendLayout
' '
'LayoutControl1 'LayoutControl1
' '
@ -78,40 +77,40 @@ Partial Class frmConfigDatabase
' '
'txtServerName 'txtServerName
' '
Me.txtServerName.Location = New System.Drawing.Point(145, 12) Me.txtServerName.Location = New System.Drawing.Point(157, 12)
Me.txtServerName.Name = "txtServerName" Me.txtServerName.Name = "txtServerName"
Me.txtServerName.Size = New System.Drawing.Size(403, 20) Me.txtServerName.Size = New System.Drawing.Size(391, 20)
Me.txtServerName.StyleController = Me.LayoutControl1 Me.txtServerName.StyleController = Me.LayoutControl1
Me.txtServerName.TabIndex = 4 Me.txtServerName.TabIndex = 4
' '
'txtUserName 'txtUserName
' '
Me.txtUserName.Location = New System.Drawing.Point(145, 36) Me.txtUserName.Location = New System.Drawing.Point(157, 36)
Me.txtUserName.Name = "txtUserName" Me.txtUserName.Name = "txtUserName"
Me.txtUserName.Size = New System.Drawing.Size(133, 20) Me.txtUserName.Size = New System.Drawing.Size(121, 20)
Me.txtUserName.StyleController = Me.LayoutControl1 Me.txtUserName.StyleController = Me.LayoutControl1
Me.txtUserName.TabIndex = 5 Me.txtUserName.TabIndex = 5
' '
'txtPassword 'txtPassword
' '
Me.txtPassword.Location = New System.Drawing.Point(415, 36) Me.txtPassword.Location = New System.Drawing.Point(427, 36)
Me.txtPassword.Name = "txtPassword" Me.txtPassword.Name = "txtPassword"
Me.txtPassword.Size = New System.Drawing.Size(133, 20) Me.txtPassword.Size = New System.Drawing.Size(121, 20)
Me.txtPassword.StyleController = Me.LayoutControl1 Me.txtPassword.StyleController = Me.LayoutControl1
Me.txtPassword.TabIndex = 6 Me.txtPassword.TabIndex = 6
' '
'cmbDatabase 'cmbDatabase
' '
Me.cmbDatabase.Location = New System.Drawing.Point(145, 60) Me.cmbDatabase.Location = New System.Drawing.Point(157, 60)
Me.cmbDatabase.Name = "cmbDatabase" Me.cmbDatabase.Name = "cmbDatabase"
Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.cmbDatabase.Size = New System.Drawing.Size(403, 20) Me.cmbDatabase.Size = New System.Drawing.Size(391, 20)
Me.cmbDatabase.StyleController = Me.LayoutControl1 Me.cmbDatabase.StyleController = Me.LayoutControl1
Me.cmbDatabase.TabIndex = 7 Me.cmbDatabase.TabIndex = 7
' '
'btnTestConnection 'btnTestConnection
' '
Me.btnTestConnection.Location = New System.Drawing.Point(12, 107) Me.btnTestConnection.Location = New System.Drawing.Point(12, 106)
Me.btnTestConnection.Name = "btnTestConnection" Me.btnTestConnection.Name = "btnTestConnection"
Me.btnTestConnection.Size = New System.Drawing.Size(536, 22) Me.btnTestConnection.Size = New System.Drawing.Size(536, 22)
Me.btnTestConnection.StyleController = Me.LayoutControl1 Me.btnTestConnection.StyleController = Me.LayoutControl1
@ -120,10 +119,10 @@ Partial Class frmConfigDatabase
' '
'txtConnectionString 'txtConnectionString
' '
Me.txtConnectionString.Location = New System.Drawing.Point(145, 133) Me.txtConnectionString.Location = New System.Drawing.Point(157, 132)
Me.txtConnectionString.Name = "txtConnectionString" Me.txtConnectionString.Name = "txtConnectionString"
Me.txtConnectionString.Properties.ReadOnly = True Me.txtConnectionString.Properties.ReadOnly = true
Me.txtConnectionString.Size = New System.Drawing.Size(403, 20) Me.txtConnectionString.Size = New System.Drawing.Size(391, 20)
Me.txtConnectionString.StyleController = Me.LayoutControl1 Me.txtConnectionString.StyleController = Me.LayoutControl1
Me.txtConnectionString.TabIndex = 9 Me.txtConnectionString.TabIndex = 9
' '
@ -132,18 +131,18 @@ Partial Class frmConfigDatabase
Me.chkWinAuth.Location = New System.Drawing.Point(12, 84) Me.chkWinAuth.Location = New System.Drawing.Point(12, 84)
Me.chkWinAuth.Name = "chkWinAuth" Me.chkWinAuth.Name = "chkWinAuth"
Me.chkWinAuth.Properties.Caption = "Windows Authentifizierung" Me.chkWinAuth.Properties.Caption = "Windows Authentifizierung"
Me.chkWinAuth.Size = New System.Drawing.Size(536, 19) Me.chkWinAuth.Size = New System.Drawing.Size(536, 18)
Me.chkWinAuth.StyleController = Me.LayoutControl1 Me.chkWinAuth.StyleController = Me.LayoutControl1
Me.chkWinAuth.TabIndex = 10 Me.chkWinAuth.TabIndex = 10
' '
'LayoutControlGroup1 'LayoutControlGroup1
' '
Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup1.GroupBordersVisible = False Me.LayoutControlGroup1.GroupBordersVisible = false
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5})
Me.LayoutControlGroup1.Name = "LayoutControlGroup1" Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(560, 186) Me.LayoutControlGroup1.Size = New System.Drawing.Size(560, 186)
Me.LayoutControlGroup1.TextVisible = False Me.LayoutControlGroup1.TextVisible = false
' '
'LayoutControlItem1 'LayoutControlItem1
' '
@ -152,7 +151,7 @@ Partial Class frmConfigDatabase
Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(540, 24) Me.LayoutControlItem1.Size = New System.Drawing.Size(540, 24)
Me.LayoutControlItem1.Text = "Server Name:" Me.LayoutControlItem1.Text = "Server Name:"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13) Me.LayoutControlItem1.TextSize = New System.Drawing.Size(142, 13)
' '
'LayoutControlItem2 'LayoutControlItem2
' '
@ -161,14 +160,14 @@ Partial Class frmConfigDatabase
Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(270, 24) Me.LayoutControlItem2.Size = New System.Drawing.Size(270, 24)
Me.LayoutControlItem2.Text = "Benutzername:" Me.LayoutControlItem2.Text = "Benutzername:"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13) Me.LayoutControlItem2.TextSize = New System.Drawing.Size(142, 13)
' '
'EmptySpaceItem1 'EmptySpaceItem1
' '
Me.EmptySpaceItem1.AllowHotTrack = False Me.EmptySpaceItem1.AllowHotTrack = false
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 145) Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 144)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1" Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(540, 21) Me.EmptySpaceItem1.Size = New System.Drawing.Size(540, 22)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
' '
'LayoutControlItem4 'LayoutControlItem4
@ -178,7 +177,7 @@ Partial Class frmConfigDatabase
Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(540, 24) Me.LayoutControlItem4.Size = New System.Drawing.Size(540, 24)
Me.LayoutControlItem4.Text = "Datenbank:" Me.LayoutControlItem4.Text = "Datenbank:"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13) Me.LayoutControlItem4.TextSize = New System.Drawing.Size(142, 13)
' '
'LayoutControlItem3 'LayoutControlItem3
' '
@ -187,63 +186,63 @@ Partial Class frmConfigDatabase
Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(270, 24) Me.LayoutControlItem3.Size = New System.Drawing.Size(270, 24)
Me.LayoutControlItem3.Text = "Passwort:" Me.LayoutControlItem3.Text = "Passwort:"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13) Me.LayoutControlItem3.TextSize = New System.Drawing.Size(142, 13)
' '
'LayoutControlItem7 'LayoutControlItem7
' '
Me.LayoutControlItem7.Control = Me.chkWinAuth Me.LayoutControlItem7.Control = Me.chkWinAuth
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 72) Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 72)
Me.LayoutControlItem7.Name = "LayoutControlItem7" Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Size = New System.Drawing.Size(540, 23) Me.LayoutControlItem7.Size = New System.Drawing.Size(540, 22)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False Me.LayoutControlItem7.TextVisible = false
' '
'LayoutControlItem6 'LayoutControlItem6
' '
Me.LayoutControlItem6.Control = Me.txtConnectionString Me.LayoutControlItem6.Control = Me.txtConnectionString
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 121) Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem6.Name = "LayoutControlItem6" Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(540, 24) Me.LayoutControlItem6.Size = New System.Drawing.Size(540, 24)
Me.LayoutControlItem6.Text = "Aktueller Connectionstring:" Me.LayoutControlItem6.Text = "Aktueller Connectionstring:"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13) Me.LayoutControlItem6.TextSize = New System.Drawing.Size(142, 13)
' '
'LayoutControlItem5 'LayoutControlItem5
' '
Me.LayoutControlItem5.Control = Me.btnTestConnection Me.LayoutControlItem5.Control = Me.btnTestConnection
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 95) Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 94)
Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(540, 26) Me.LayoutControlItem5.Size = New System.Drawing.Size(540, 26)
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False Me.LayoutControlItem5.TextVisible = false
' '
'frmConfigDatabase 'frmConfigDatabase
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(560, 186) Me.ClientSize = New System.Drawing.Size(560, 186)
Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.LayoutControl1)
Me.Name = "frmConfigDatabase" Me.Name = "frmConfigDatabase"
Me.Text = "Datenbank Verbindung" Me.Text = "Datenbank Verbindung"
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1,System.ComponentModel.ISupportInitialize).EndInit
Me.LayoutControl1.ResumeLayout(False) Me.LayoutControl1.ResumeLayout(false)
CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtServerName.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtUserName.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtPassword.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.cmbDatabase.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtConnectionString.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.chkWinAuth.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem7,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) Me.ResumeLayout(false)
End Sub End Sub
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup

74
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmFlowForm Partial Class frmFlowForm
Inherits System.Windows.Forms.Form Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>
@ -23,7 +23,7 @@ Partial Class frmFlowForm
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True) Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
@ -36,13 +36,13 @@ Partial Class frmFlowForm
Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox() Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
Me.PictureBoxPM = New System.Windows.Forms.PictureBox() Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
Me.PictureBoxSearch = New System.Windows.Forms.PictureBox() Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
Me.ContextMenuSystray.SuspendLayout() Me.ContextMenuSystray.SuspendLayout
Me.ContextMenuForm.SuspendLayout() Me.ContextMenuForm.SuspendLayout
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout() Me.SuspendLayout
' '
'SplashScreenManager 'SplashScreenManager
' '
@ -51,9 +51,9 @@ Partial Class frmFlowForm
'NotifyIcon 'NotifyIcon
' '
Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray
Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"), System.Drawing.Icon) Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"),System.Drawing.Icon)
Me.NotifyIcon.Text = "ZooFlow by Digital Data" Me.NotifyIcon.Text = "ZooFlow by Digital Data"
Me.NotifyIcon.Visible = True Me.NotifyIcon.Visible = true
' '
'ContextMenuSystray 'ContextMenuSystray
' '
@ -93,72 +93,74 @@ Partial Class frmFlowForm
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(197, 150) Me.PictureBox1.Size = New System.Drawing.Size(197, 150)
Me.PictureBox1.TabIndex = 10 Me.PictureBox1.TabIndex = 10
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = false
' '
'PictureBoxGlobix 'PictureBoxGlobix
' '
Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"), System.Drawing.Image) Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"),System.Drawing.Image)
Me.PictureBoxGlobix.Location = New System.Drawing.Point(448, 23) Me.PictureBoxGlobix.Location = New System.Drawing.Point(448, 23)
Me.PictureBoxGlobix.Name = "PictureBoxGlobix" Me.PictureBoxGlobix.Name = "PictureBoxGlobix"
Me.PictureBoxGlobix.Size = New System.Drawing.Size(90, 101) Me.PictureBoxGlobix.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxGlobix.TabIndex = 9 Me.PictureBoxGlobix.TabIndex = 9
Me.PictureBoxGlobix.TabStop = False Me.PictureBoxGlobix.TabStop = false
Me.PictureBoxGlobix.Visible = False Me.PictureBoxGlobix.Visible = false
' '
'PictureBoxPM 'PictureBoxPM
' '
Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"), System.Drawing.Image) Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"),System.Drawing.Image)
Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23) Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23)
Me.PictureBoxPM.Name = "PictureBoxPM" Me.PictureBoxPM.Name = "PictureBoxPM"
Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101) Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxPM.TabIndex = 4 Me.PictureBoxPM.TabIndex = 4
Me.PictureBoxPM.TabStop = False Me.PictureBoxPM.TabStop = false
Me.PictureBoxPM.Visible = False Me.PictureBoxPM.Visible = false
' '
'PictureBoxSearch 'PictureBoxSearch
' '
Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent
Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"), System.Drawing.Image) Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"),System.Drawing.Image)
Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23) Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23)
Me.PictureBoxSearch.Name = "PictureBoxSearch" Me.PictureBoxSearch.Name = "PictureBoxSearch"
Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101) Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101)
Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxSearch.TabIndex = 3 Me.PictureBoxSearch.TabIndex = 3
Me.PictureBoxSearch.TabStop = False Me.PictureBoxSearch.TabStop = false
' '
'frmFlowForm 'frmFlowForm
' '
Me.AllowDrop = True Me.AllowDrop = true
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(214,Byte),Integer), CType(CType(49,Byte),Integer))
Me.Appearance.ForeColor = System.Drawing.SystemColors.ControlText
Me.Appearance.Options.UseBackColor = true
Me.Appearance.Options.UseFont = true
Me.Appearance.Options.UseForeColor = true
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.ClientSize = New System.Drawing.Size(577, 150) Me.ClientSize = New System.Drawing.Size(577, 150)
Me.ContextMenuStrip = Me.ContextMenuForm Me.ContextMenuStrip = Me.ContextMenuForm
Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.PictureBoxGlobix) Me.Controls.Add(Me.PictureBoxGlobix)
Me.Controls.Add(Me.PictureBoxPM) Me.Controls.Add(Me.PictureBoxPM)
Me.Controls.Add(Me.PictureBoxSearch) Me.Controls.Add(Me.PictureBoxSearch)
Me.DoubleBuffered = True Me.DoubleBuffered = true
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.ForeColor = System.Drawing.SystemColors.ControlText
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmFlowForm" Me.Name = "frmFlowForm"
Me.Text = "frmFlowForm_Test1" Me.Text = "frmFlowForm_Test1"
Me.TopMost = True Me.TopMost = true
Me.ContextMenuSystray.ResumeLayout(False) Me.ContextMenuSystray.ResumeLayout(false)
Me.ContextMenuForm.ResumeLayout(False) Me.ContextMenuForm.ResumeLayout(false)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) Me.ResumeLayout(false)
End Sub End Sub
Friend WithEvents PictureBoxSearch As PictureBox Friend WithEvents PictureBoxSearch As PictureBox
Friend WithEvents PictureBoxPM As PictureBox Friend WithEvents PictureBoxPM As PictureBox
Friend WithEvents PictureBoxGlobix As PictureBox Friend WithEvents PictureBoxGlobix As PictureBox

20
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -45,7 +45,7 @@ Public Class frmFlowForm
Init.InitializeApplication() Init.InitializeApplication()
End Sub End Sub
Private Sub Init_Completed(sender As Object, e As EventArgs) Private Sub Init_Completed(sender As Object, e As EventArgs)
' === Initialization Complete === ' === Initialization Complete ===
ApplicationLoading = False ApplicationLoading = False
SplashScreenManager.CloseForm(False) SplashScreenManager.CloseForm(False)
@ -95,11 +95,11 @@ Public Class frmFlowForm
'TODO: Refresh Data 'TODO: Refresh Data
End Sub End Sub
Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs)
Opacity = OPACITY_HIDDEN Opacity = OPACITY_HIDDEN
End Sub End Sub
Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter, MyBase.MouseLeave
Opacity = OPACITY_SHOWN Opacity = OPACITY_SHOWN
End Sub End Sub
@ -181,7 +181,17 @@ Public Class frmFlowForm
frmAdministrationZooFlow.Show() frmAdministrationZooFlow.Show()
End Sub End Sub
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
PictureBox1.BackgroundImage = My.Resources._1_LOGO_ZOO_FLOW_DROP2 PictureBox1.image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
e.Effect = DragDropEffects.Copy
End Sub
Private Sub frmFlowForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
End Sub
Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
End Sub End Sub
End Class End Class

176
GUIs.ZooFlow/frmPreSearch.Designer.vb generated
View File

@ -22,20 +22,33 @@ Partial Class frmPreSearch
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPreSearch)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPreSearch))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView() Me.ViewMain = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.gridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BandedGridColumn2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BandedGridColumn3 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BandedGridColumn4 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.SuspendLayout() Me.BandedGridColumn5 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.BandedGridColumn6 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.RepositoryItemDateEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit()
Me.BandedGridColumn1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.SvgImageCollection = New DevExpress.Utils.SvgImageCollection(Me.components)
CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ViewMain,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.RepositoryItemDateEdit1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.SvgImageCollection,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
' '
'RibbonControl1 'RibbonControl1
' '
@ -46,9 +59,16 @@ Partial Class frmPreSearch
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(800, 158) Me.RibbonControl1.Size = New System.Drawing.Size(564, 159)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Neue Suche"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
@ -68,10 +88,10 @@ Partial Class frmPreSearch
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 611)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24) Me.RibbonStatusBar1.Size = New System.Drawing.Size(564, 22)
' '
'RibbonPage2 'RibbonPage2
' '
@ -81,45 +101,130 @@ Partial Class frmPreSearch
'GridControl1 'GridControl1
' '
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 158) Me.GridControl1.Location = New System.Drawing.Point(0, 159)
Me.GridControl1.MainView = Me.TileView1 Me.GridControl1.MainView = Me.ViewMain
Me.GridControl1.MenuManager = Me.RibbonControl1 Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(800, 268) Me.GridControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemDateEdit1})
Me.GridControl1.Size = New System.Drawing.Size(564, 452)
Me.GridControl1.TabIndex = 2 Me.GridControl1.TabIndex = 2
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewMain})
' '
'TileView1 'ViewMain
' '
Me.TileView1.GridControl = Me.GridControl1 Me.ViewMain.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand1})
Me.TileView1.Name = "TileView1" Me.ViewMain.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.BandedGridColumn1, Me.BandedGridColumn2, Me.BandedGridColumn3, Me.BandedGridColumn4, Me.BandedGridColumn5, Me.BandedGridColumn6})
Me.ViewMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
Me.ViewMain.GridControl = Me.GridControl1
Me.ViewMain.Name = "ViewMain"
Me.ViewMain.OptionsBehavior.Editable = false
Me.ViewMain.OptionsBehavior.ReadOnly = true
Me.ViewMain.OptionsView.ShowBands = false
Me.ViewMain.OptionsView.ShowGroupPanel = false
Me.ViewMain.OptionsView.ShowIndicator = false
Me.ViewMain.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.ViewMain.RowSeparatorHeight = 10
' '
'BarButtonItem1 'gridBand1
' '
Me.BarButtonItem1.Caption = "Neue Suche" Me.gridBand1.Caption = "gridBand1"
Me.BarButtonItem1.Id = 1 Me.gridBand1.Columns.Add(Me.BandedGridColumn2)
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.gridBand1.Columns.Add(Me.BandedGridColumn3)
Me.BarButtonItem1.Name = "BarButtonItem1" Me.gridBand1.Columns.Add(Me.BandedGridColumn4)
Me.gridBand1.Columns.Add(Me.BandedGridColumn5)
Me.gridBand1.Columns.Add(Me.BandedGridColumn6)
Me.gridBand1.Name = "gridBand1"
Me.gridBand1.VisibleIndex = 0
Me.gridBand1.Width = 336
'
'BandedGridColumn2
'
Me.BandedGridColumn2.Caption = "Title"
Me.BandedGridColumn2.FieldName = "Title"
Me.BandedGridColumn2.Name = "BandedGridColumn2"
Me.BandedGridColumn2.Visible = true
Me.BandedGridColumn2.Width = 336
'
'BandedGridColumn3
'
Me.BandedGridColumn3.Caption = "Results"
Me.BandedGridColumn3.FieldName = "Results"
Me.BandedGridColumn3.Name = "BandedGridColumn3"
Me.BandedGridColumn3.RowIndex = 1
Me.BandedGridColumn3.Visible = true
Me.BandedGridColumn3.Width = 84
'
'BandedGridColumn4
'
Me.BandedGridColumn4.Caption = "Changes"
Me.BandedGridColumn4.FieldName = "Changes"
Me.BandedGridColumn4.Name = "BandedGridColumn4"
Me.BandedGridColumn4.RowIndex = 1
Me.BandedGridColumn4.Visible = true
Me.BandedGridColumn4.Width = 84
'
'BandedGridColumn5
'
Me.BandedGridColumn5.Caption = "Overdue"
Me.BandedGridColumn5.FieldName = "Overdue"
Me.BandedGridColumn5.Name = "BandedGridColumn5"
Me.BandedGridColumn5.RowIndex = 1
Me.BandedGridColumn5.Visible = true
Me.BandedGridColumn5.Width = 84
'
'BandedGridColumn6
'
Me.BandedGridColumn6.Caption = "LastChange"
Me.BandedGridColumn6.ColumnEdit = Me.RepositoryItemDateEdit1
Me.BandedGridColumn6.FieldName = "LastChange"
Me.BandedGridColumn6.Name = "BandedGridColumn6"
Me.BandedGridColumn6.RowIndex = 1
Me.BandedGridColumn6.Visible = true
Me.BandedGridColumn6.Width = 84
'
'RepositoryItemDateEdit1
'
Me.RepositoryItemDateEdit1.AutoHeight = false
Me.RepositoryItemDateEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemDateEdit1.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemDateEdit1.Name = "RepositoryItemDateEdit1"
'
'BandedGridColumn1
'
Me.BandedGridColumn1.Caption = "UserID"
Me.BandedGridColumn1.FieldName = "UserID"
Me.BandedGridColumn1.Name = "BandedGridColumn1"
Me.BandedGridColumn1.Visible = true
'
'SvgImageCollection
'
Me.SvgImageCollection.Add("green_arrow_up", "image://svgimages/icon builder/actions_arrow4up.svg")
Me.SvgImageCollection.Add("warning", "image://svgimages/outlook inspired/highimportance.svg")
' '
'frmPreSearch 'frmPreSearch
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450) Me.ClientSize = New System.Drawing.Size(564, 633)
Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmPreSearch.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmPreSearch" Me.Name = "frmPreSearch"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmPreSearch" Me.Text = "Vordefinierte Suchen"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ViewMain,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties,System.ComponentModel.ISupportInitialize).EndInit
Me.PerformLayout() CType(Me.RepositoryItemDateEdit1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.SvgImageCollection,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
End Sub End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
@ -129,5 +234,14 @@ Partial Class frmPreSearch
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView Friend WithEvents ViewMain As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
Friend WithEvents SvgImageCollection As DevExpress.Utils.SvgImageCollection
Friend WithEvents BandedGridColumn2 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents BandedGridColumn3 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents BandedGridColumn4 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents BandedGridColumn5 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents BandedGridColumn1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents gridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents BandedGridColumn6 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents RepositoryItemDateEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit
End Class End Class

23
GUIs.ZooFlow/frmPreSearch.resx
View File

@ -142,6 +142,29 @@
ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj
LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i
QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="SvgImageCollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="frmPreSearch.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku
NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs
MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx
OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2
czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu
NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw
LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y
LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
</root> </root>

89
GUIs.ZooFlow/frmPreSearch.vb
View File

@ -1,4 +1,7 @@
Imports DigitalData.Modules.Logging Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid
Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.Logging
Public Class frmPreSearch Public Class frmPreSearch
Private Logger As Logger Private Logger As Logger
Public Sub New() Public Sub New()
@ -6,14 +9,90 @@ Public Class frmPreSearch
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger() Logger = My.LogConfig.GetLogger()
End Sub End Sub
Private Sub frmPreSearch_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmPreSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red GridControl1.DataSource = LoadSearches()
Dim oChangesColumn = ViewMain.Columns.Item("Changes")
Dim oOverdueColumn = ViewMain.Columns.Item("Overdue")
Dim oResultsColumn = ViewMain.Columns.Item("Results")
Dim oTitleColumn = ViewMain.Columns.Item("Title")
Dim oUserIdColumn = ViewMain.Columns.Item("UserID")
Dim oLastChangeColumn = ViewMain.Columns.Item("LastChange")
Dim oChangesRule = GetChangesFormatRule()
oChangesRule.Column = oChangesColumn
Dim oOverdueRule = GetOverdueFormatRule()
oOverdueRule.Column = oOverdueColumn
Dim oResultsRule = GetResultsFormatRule()
oResultsRule.Column = oResultsColumn
ViewMain.FormatRules.AddRange({oChangesRule, oResultsRule, oOverdueRule})
oTitleColumn.AppearanceCell.FontStyleDelta = FontStyle.Bold
oTitleColumn.AppearanceCell.FontSizeDelta = 1
End Sub
Private Function GetResultsFormatRule() As GridFormatRule
Dim gridFormatRule As New GridFormatRule()
Dim formatConditionRuleDataBar As New FormatConditionRuleDataBar With {
.PredefinedName = "Yellow",
.AutomaticType = FormatConditionAutomaticType.ZeroBased
}
gridFormatRule.Rule = formatConditionRuleDataBar
Return gridFormatRule
End Function
Private Function GetOverdueFormatRule() As GridFormatRule
Dim oFormatRule As New GridFormatRule()
Dim oRule As New FormatConditionRuleIconSet With {
.IconSet = New FormatConditionIconSet()
}
Dim oIconSet As FormatConditioniconset = oRule.IconSet
oIconSet.ValueType = FormatConditionValueType.Number
Dim oIcon1 As New FormatConditioniconseticon() With {
.Icon = SvgImageCollection.GetImage("warning"),
.Value = 0,
.ValueComparison = FormatConditionComparisonType.Greater
}
oIconSet.Icons.AddRange({oIcon1})
oFormatRule.Rule = oRule
Return oFormatRule
End Function
Private Function GetChangesFormatRule() As GridFormatRule
Dim oFormatRule As New GridFormatRule()
Dim oRule As New FormatConditionRuleIconSet With {
.IconSet = New FormatConditionIconSet()
}
Dim oIconSet As FormatConditioniconset = oRule.IconSet
oIconSet.ValueType = FormatConditionValueType.Number
Dim oIcon1 As New FormatConditioniconseticon() With {
.Icon = SvgImageCollection.GetImage("green_arrow_up"),
.Value = 2,
.ValueComparison = FormatConditionComparisonType.Greater
}
oIconSet.Icons.AddRange({oIcon1})
oFormatRule.Rule = oRule
Return oFormatRule
End Function
Private Function LoadSearches() As DataTable
Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_LANDING" Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_LANDING"
Dim oDTLanding As DataTable = My.DatabaseIDB.GetDatatable(oSQL) Dim oDTLanding As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
GridControl1.DataSource = oDTLanding Return oDTLanding
End Sub End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick

149
GUIs.ZooFlow/frmSearchStart.Designer.vb generated
View File

@ -66,46 +66,46 @@ Partial Class frmSearchStart
Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout
CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).BeginInit
Me.ContextMenuStripSearchTerms.SuspendLayout() Me.ContextMenuStripSearchTerms.SuspendLayout
CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerControlSearch.SuspendLayout() Me.SplitContainerControlSearch.SuspendLayout
Me.ContextMenuStripMultiselect.SuspendLayout() Me.ContextMenuStripMultiselect.SuspendLayout
Me.SuspendLayout() Me.SuspendLayout
' '
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.AutoSizeItems = True Me.RibbonControl1.AutoSizeItems = true
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 10 Me.RibbonControl1.MaxItemId = 11
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(1070, 158) Me.RibbonControl1.Size = New System.Drawing.Size(1070, 159)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItemNewSearch 'BarButtonItemNewSearch
' '
Me.BarButtonItemNewSearch.Caption = "Neue Suche" Me.BarButtonItemNewSearch.Caption = "Neue Suche"
Me.BarButtonItemNewSearch.Id = 1 Me.BarButtonItemNewSearch.Id = 1
Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch" Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch"
' '
'BarButtonItem2 'BarButtonItem2
' '
Me.BarButtonItem2.Caption = "Suchprofil speichern" Me.BarButtonItem2.Caption = "Suchprofil speichern"
Me.BarButtonItem2.Id = 2 Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.Name = "BarButtonItem2"
Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
' '
@ -130,7 +130,7 @@ Partial Class frmSearchStart
' '
Me.BarButtonItem1.Caption = "Suche leeren" Me.BarButtonItem1.Caption = "Suche leeren"
Me.BarButtonItem1.Id = 5 Me.BarButtonItem1.Id = 5
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.Name = "BarButtonItem1"
' '
'BarButtonItem3 'BarButtonItem3
@ -144,12 +144,12 @@ Partial Class frmSearchStart
Me.BarEditItem2.Caption = "Suchen" Me.BarEditItem2.Caption = "Suchen"
Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1 Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1
Me.BarEditItem2.Id = 7 Me.BarEditItem2.Id = 7
Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem2.Name = "BarEditItem2" Me.BarEditItem2.Name = "BarEditItem2"
' '
'RepositoryItemComboBox1 'RepositoryItemComboBox1
' '
Me.RepositoryItemComboBox1.AutoHeight = False Me.RepositoryItemComboBox1.AutoHeight = false
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
' '
@ -162,7 +162,7 @@ Partial Class frmSearchStart
' '
Me.BarButtonItem4.Caption = "Suche starten" Me.BarButtonItem4.Caption = "Suche starten"
Me.BarButtonItem4.Id = 9 Me.BarButtonItem4.Id = 9
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4" Me.BarButtonItem4.Name = "BarButtonItem4"
' '
'RibbonPage1 'RibbonPage1
@ -189,10 +189,10 @@ Partial Class frmSearchStart
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 577) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 579)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1070, 24) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1070, 22)
' '
'Panel1 'Panel1
' '
@ -200,8 +200,8 @@ Partial Class frmSearchStart
Me.Panel1.Controls.Add(Me.cmbProfile) Me.Panel1.Controls.Add(Me.cmbProfile)
Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.Panel1.Location = New System.Drawing.Point(0, 158) Me.Panel1.Location = New System.Drawing.Point(0, 159)
Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1070, 57) Me.Panel1.Size = New System.Drawing.Size(1070, 57)
@ -209,10 +209,10 @@ Partial Class frmSearchStart
' '
'cmbProfile 'cmbProfile
' '
Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.cmbProfile.DisplayMember = "DOKART_ID" Me.cmbProfile.DisplayMember = "DOKART_ID"
Me.cmbProfile.FormattingEnabled = True Me.cmbProfile.FormattingEnabled = true
Me.cmbProfile.Location = New System.Drawing.Point(3, 23) Me.cmbProfile.Location = New System.Drawing.Point(3, 23)
Me.cmbProfile.Name = "cmbProfile" Me.cmbProfile.Name = "cmbProfile"
Me.cmbProfile.Size = New System.Drawing.Size(1065, 21) Me.cmbProfile.Size = New System.Drawing.Size(1065, 21)
@ -221,7 +221,7 @@ Partial Class frmSearchStart
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = true
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(3, 3) Me.Label1.Location = New System.Drawing.Point(3, 3)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
@ -243,61 +243,61 @@ Partial Class frmSearchStart
'XtraTabPage1 'XtraTabPage1
' '
Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage1.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage1.Text = "Search#1" Me.XtraTabPage1.Text = "Search#1"
' '
'XtraTabPage2 'XtraTabPage2
' '
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage2.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage2.Text = "Search#2" Me.XtraTabPage2.Text = "Search#2"
' '
'XtraTabPage3 'XtraTabPage3
' '
Me.XtraTabPage3.Name = "XtraTabPage3" Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage3.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage3.Text = "Search#3" Me.XtraTabPage3.Text = "Search#3"
' '
'XtraTabPage4 'XtraTabPage4
' '
Me.XtraTabPage4.Name = "XtraTabPage4" Me.XtraTabPage4.Name = "XtraTabPage4"
Me.XtraTabPage4.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage4.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage4.Text = "Search#4" Me.XtraTabPage4.Text = "Search#4"
' '
'XtraTabPage5 'XtraTabPage5
' '
Me.XtraTabPage5.Name = "XtraTabPage5" Me.XtraTabPage5.Name = "XtraTabPage5"
Me.XtraTabPage5.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage5.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage5.Text = "Search#5" Me.XtraTabPage5.Text = "Search#5"
' '
'XtraTabPage6 'XtraTabPage6
' '
Me.XtraTabPage6.Name = "XtraTabPage6" Me.XtraTabPage6.Name = "XtraTabPage6"
Me.XtraTabPage6.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage6.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage6.Text = "Search#6" Me.XtraTabPage6.Text = "Search#6"
' '
'XtraTabPage7 'XtraTabPage7
' '
Me.XtraTabPage7.Name = "XtraTabPage7" Me.XtraTabPage7.Name = "XtraTabPage7"
Me.XtraTabPage7.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage7.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage7.Text = "Search#7" Me.XtraTabPage7.Text = "Search#7"
' '
'XtraTabPage8 'XtraTabPage8
' '
Me.XtraTabPage8.Name = "XtraTabPage8" Me.XtraTabPage8.Name = "XtraTabPage8"
Me.XtraTabPage8.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage8.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage8.Text = "Search#8" Me.XtraTabPage8.Text = "Search#8"
' '
'XtraTabPage9 'XtraTabPage9
' '
Me.XtraTabPage9.Name = "XtraTabPage9" Me.XtraTabPage9.Name = "XtraTabPage9"
Me.XtraTabPage9.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage9.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage9.Text = "Search#9" Me.XtraTabPage9.Text = "Search#9"
' '
'XtraTabPage10 'XtraTabPage10
' '
Me.XtraTabPage10.Name = "XtraTabPage10" Me.XtraTabPage10.Name = "XtraTabPage10"
Me.XtraTabPage10.Size = New System.Drawing.Size(748, 285) Me.XtraTabPage10.Size = New System.Drawing.Size(748, 287)
Me.XtraTabPage10.Text = "Search#10" Me.XtraTabPage10.Text = "Search#10"
' '
'GridControlSerchTerms 'GridControlSerchTerms
@ -344,23 +344,23 @@ Partial Class frmSearchStart
' '
'GridViewSearchTerms 'GridViewSearchTerms
' '
Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(125, Byte), Integer)) Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236,Byte),Integer), CType(CType(233,Byte),Integer), CType(CType(125,Byte),Integer))
Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = true
Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms
Me.GridViewSearchTerms.Name = "GridViewSearchTerms" Me.GridViewSearchTerms.Name = "GridViewSearchTerms"
Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
Me.GridViewSearchTerms.OptionsBehavior.Editable = False Me.GridViewSearchTerms.OptionsBehavior.Editable = false
Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = false
Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = True Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = true
Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = False Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = false
Me.GridViewSearchTerms.OptionsView.ShowViewCaption = True Me.GridViewSearchTerms.OptionsView.ShowViewCaption = true
Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium" Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium"
' '
'SplitContainerControlSearch 'SplitContainerControlSearch
' '
Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207) Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207)
@ -395,9 +395,9 @@ Partial Class frmSearchStart
' '
'SimpleButton1 'SimpleButton1
' '
Me.SimpleButton1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.SimpleButton1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(461, 523) Me.SimpleButton1.Location = New System.Drawing.Point(461, 523)
Me.SimpleButton1.Name = "SimpleButton1" Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(141, 45) Me.SimpleButton1.Size = New System.Drawing.Size(141, 45)
@ -406,8 +406,9 @@ Partial Class frmSearchStart
' '
'frmSearchStart 'frmSearchStart
' '
Me.Appearance.Options.UseFont = True Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.Appearance.Options.UseFont = true
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1070, 601) Me.ClientSize = New System.Drawing.Size(1070, 601)
Me.Controls.Add(Me.SimpleButton1) Me.Controls.Add(Me.SimpleButton1)
@ -415,30 +416,30 @@ Partial Class frmSearchStart
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"), System.Drawing.Icon) Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"),System.Drawing.Icon)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmSearchStart" Me.Name = "frmSearchStart"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "ZooFlow Suche" Me.Text = "ZooFlow Suche"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(false)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(false)
CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).EndInit
Me.ContextMenuStripSearchTerms.ResumeLayout(False) Me.ContextMenuStripSearchTerms.ResumeLayout(false)
CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerControlSearch.ResumeLayout(False) Me.SplitContainerControlSearch.ResumeLayout(false)
Me.ContextMenuStripMultiselect.ResumeLayout(False) Me.ContextMenuStripMultiselect.ResumeLayout(false)
Me.ResumeLayout(False) Me.ResumeLayout(false)
Me.PerformLayout() Me.PerformLayout
End Sub End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage

22
GUIs.ZooFlow/frmSearchStart.resx
View File

@ -2008,20 +2008,20 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM
OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2 MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5
czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu
NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x
LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N
LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== Cjwvc3ZnPgs=
</value> </value>
</data> </data>
</root> </root>

58
GUIs.ZooFlow/frmSplash.Designer.vb generated
View File

@ -29,46 +29,46 @@ Partial Class frmSplash
Me.txtActionName = New DevExpress.XtraEditors.LabelControl() Me.txtActionName = New DevExpress.XtraEditors.LabelControl()
Me.Version = New DevExpress.XtraEditors.LabelControl() Me.Version = New DevExpress.XtraEditors.LabelControl()
Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pictureEdit2.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pictureEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ProgressBarControl1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout() Me.SuspendLayout
' '
'pictureEdit2 'pictureEdit2
' '
Me.pictureEdit2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.pictureEdit2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default
Me.pictureEdit2.EditValue = CType(resources.GetObject("pictureEdit2.EditValue"), Object) Me.pictureEdit2.EditValue = CType(resources.GetObject("pictureEdit2.EditValue"),Object)
Me.pictureEdit2.Location = New System.Drawing.Point(12, 12) Me.pictureEdit2.Location = New System.Drawing.Point(12, 12)
Me.pictureEdit2.Name = "pictureEdit2" Me.pictureEdit2.Name = "pictureEdit2"
Me.pictureEdit2.Properties.AllowFocused = False Me.pictureEdit2.Properties.AllowFocused = false
Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = True Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = true
Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.pictureEdit2.Properties.ShowMenu = False Me.pictureEdit2.Properties.ShowMenu = false
Me.pictureEdit2.Size = New System.Drawing.Size(525, 260) Me.pictureEdit2.Size = New System.Drawing.Size(525, 260)
Me.pictureEdit2.TabIndex = 14 Me.pictureEdit2.TabIndex = 14
' '
'pictureEdit1 'pictureEdit1
' '
Me.pictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.pictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.pictureEdit1.Cursor = System.Windows.Forms.Cursors.Default Me.pictureEdit1.Cursor = System.Windows.Forms.Cursors.Default
Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object) Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"),Object)
Me.pictureEdit1.Location = New System.Drawing.Point(335, 346) Me.pictureEdit1.Location = New System.Drawing.Point(335, 346)
Me.pictureEdit1.Name = "pictureEdit1" Me.pictureEdit1.Name = "pictureEdit1"
Me.pictureEdit1.Properties.AllowFocused = False Me.pictureEdit1.Properties.AllowFocused = false
Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = true
Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.pictureEdit1.Properties.ShowMenu = False Me.pictureEdit1.Properties.ShowMenu = false
Me.pictureEdit1.Size = New System.Drawing.Size(202, 28) Me.pictureEdit1.Size = New System.Drawing.Size(202, 28)
Me.pictureEdit1.TabIndex = 13 Me.pictureEdit1.TabIndex = 13
' '
'labelControl2 'labelControl2
' '
Me.labelControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.labelControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
Me.labelControl2.Location = New System.Drawing.Point(12, 278) Me.labelControl2.Location = New System.Drawing.Point(12, 278)
Me.labelControl2.Name = "labelControl2" Me.labelControl2.Name = "labelControl2"
Me.labelControl2.Size = New System.Drawing.Size(50, 13) Me.labelControl2.Size = New System.Drawing.Size(50, 13)
@ -77,16 +77,16 @@ Partial Class frmSplash
' '
'txtActionName 'txtActionName
' '
Me.txtActionName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.txtActionName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
Me.txtActionName.Location = New System.Drawing.Point(12, 321) Me.txtActionName.Location = New System.Drawing.Point(12, 321)
Me.txtActionName.Name = "txtActionName" Me.txtActionName.Name = "txtActionName"
Me.txtActionName.Size = New System.Drawing.Size(45, 13) Me.txtActionName.Size = New System.Drawing.Size(48, 13)
Me.txtActionName.TabIndex = 12 Me.txtActionName.TabIndex = 12
Me.txtActionName.Text = "Loading.." Me.txtActionName.Text = "Loading.."
' '
'Version 'Version
' '
Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
Me.Version.Location = New System.Drawing.Point(12, 361) Me.Version.Location = New System.Drawing.Point(12, 361)
Me.Version.Name = "Version" Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(54, 13) Me.Version.Size = New System.Drawing.Size(54, 13)
@ -97,12 +97,16 @@ Partial Class frmSplash
' '
Me.ProgressBarControl1.Location = New System.Drawing.Point(12, 297) Me.ProgressBarControl1.Location = New System.Drawing.Point(12, 297)
Me.ProgressBarControl1.Name = "ProgressBarControl1" Me.ProgressBarControl1.Name = "ProgressBarControl1"
Me.ProgressBarControl1.Properties.EndColor = System.Drawing.Color.Empty
Me.ProgressBarControl1.Properties.LookAndFeel.SkinName = "Office 2019 Colorful"
Me.ProgressBarControl1.Properties.LookAndFeel.UseDefaultLookAndFeel = false
Me.ProgressBarControl1.Properties.StartColor = System.Drawing.Color.Empty
Me.ProgressBarControl1.Size = New System.Drawing.Size(525, 18) Me.ProgressBarControl1.Size = New System.Drawing.Size(525, 18)
Me.ProgressBarControl1.TabIndex = 15 Me.ProgressBarControl1.TabIndex = 15
' '
'frmSplash 'frmSplash
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(549, 386) Me.ClientSize = New System.Drawing.Size(549, 386)
Me.Controls.Add(Me.ProgressBarControl1) Me.Controls.Add(Me.ProgressBarControl1)
@ -113,13 +117,13 @@ Partial Class frmSplash
Me.Controls.Add(Me.labelControl2) Me.Controls.Add(Me.labelControl2)
Me.Name = "frmSplash" Me.Name = "frmSplash"
Me.Text = "Form1" Me.Text = "Form1"
CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pictureEdit2.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pictureEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ProgressBarControl1.Properties,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) Me.ResumeLayout(false)
Me.PerformLayout() Me.PerformLayout
End Sub End Sub
Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit
Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit
Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl

6
GUIs.ZooFlow/frmSplash.vb
View File

@ -1,9 +1,11 @@
Public Class frmSplash Imports DevExpress.LookAndFeel
Public Class frmSplash
Sub New Sub New
InitializeComponent() InitializeComponent()
End Sub End Sub
Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object) Public Overrides Sub ProcessCommand(ByVal cmd As [Enum], ByVal arg As Object)
MyBase.ProcessCommand(cmd, arg) MyBase.ProcessCommand(cmd, arg)
Dim oCommand As SplashScreenCommand = CType(cmd, SplashScreenCommand) Dim oCommand As SplashScreenCommand = CType(cmd, SplashScreenCommand)