MS New RibbonForm StartupParams

2020-12-17 15:01:27 +01:00
parent 2984d6503d
commit 486a638036
13 changed files with 10360 additions and 163 deletions
--- a/app/DD_Clipboard_Searcher/frmStart.Designer.vb
+++ b/app/DD_Clipboard_Searcher/frmStart.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
-    Inherits DevExpress.XtraEditors.XtraForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()>
@@ -28,11 +28,17 @@ Partial Class frmStart
        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.AblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.BisherigenAblaufAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
        Me.labelVersion = New System.Windows.Forms.ToolStripStatusLabel()
        Me.lblrefresh = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tslblAppServer = New System.Windows.Forms.ToolStripStatusLabel()
        Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Label2 = New System.Windows.Forms.Label()
@@ -42,19 +48,20 @@ Partial Class frmStart
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.labelStatus = New System.Windows.Forms.Label()
        Me.labelRefresh = New System.Windows.Forms.Label()
-        Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnAdminConfig = New System.Windows.Forms.Button()
        Me.btnUserConfig = New System.Windows.Forms.Button()
-        Me.labelUser = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblAppServer = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ClientBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.cmstrpNotifyIcon.SuspendLayout()
        Me.StatusStrip1.SuspendLayout()
        Me.ContextMenuStripForm.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'NotifyIconMain
@@ -86,16 +93,45 @@ Partial Class frmStart
        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
        Me.BisherigenAblaufAnzeigenToolStripMenuItem.Text = "Bisherigen Ablauf anzeigen"
        '
+        'tsmiChangeState
+        '
+        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
+        Me.tsmiChangeState.Name = "tsmiChangeState"
+        Me.tsmiChangeState.Size = New System.Drawing.Size(219, 22)
+        Me.tsmiChangeState.Tag = "stop"
+        Me.tsmiChangeState.Text = "Clipboard Watcher stoppen"
+        '
+        'ClientÖffnenToolStripMenuItem
+        '
+        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
+        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
+        '
+        'ClientBeendenToolStripMenuItem
+        '
+        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
+        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
+        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
+        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.labelUser, Me.labelVersion, Me.lblrefresh, Me.tslblAppServer})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 232)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 248)
        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(345, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(359, 22)
        Me.StatusStrip1.SizingGrip = False
        Me.StatusStrip1.TabIndex = 3
        Me.StatusStrip1.Text = "StatusStrip1"
        '
+        'labelUser
+        '
+        Me.labelUser.Image = CType(resources.GetObject("labelUser.Image"), System.Drawing.Image)
+        Me.labelUser.Name = "labelUser"
+        Me.labelUser.Size = New System.Drawing.Size(37, 17)
+        Me.labelUser.Text = "{0}"
+        '
        'labelVersion
        '
        Me.labelVersion.Name = "labelVersion"
@@ -108,6 +144,13 @@ Partial Class frmStart
        Me.lblrefresh.Size = New System.Drawing.Size(59, 17)
        Me.lblrefresh.Text = "lblRefresh"
        '
+        'tslblAppServer
+        '
+        Me.tslblAppServer.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.server_Local_16xLG
+        Me.tslblAppServer.Name = "tslblAppServer"
+        Me.tslblAppServer.Size = New System.Drawing.Size(111, 17)
+        Me.tslblAppServer.Text = "AppServer active"
+        '
        'TimerClose
        '
        Me.TimerClose.Interval = 10000
@@ -118,6 +161,13 @@ Partial Class frmStart
        Me.ContextMenuStripForm.Name = "ContextMenuStripForm"
        Me.ContextMenuStripForm.Size = New System.Drawing.Size(136, 26)
        '
+        'MinimierenToolStripMenuItem
+        '
+        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
+        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
+        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
+        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
+        '
        'Label1
        '
        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -125,7 +175,7 @@ Partial Class frmStart
        Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(12, 56)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(321, 26)
+        Me.Label1.Size = New System.Drawing.Size(335, 26)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "Deaktivieren des Watchers über Rechtsklick auf das Systray Icon oder die Tastatur" &
    "kombination Strg + T"
@@ -139,7 +189,7 @@ Partial Class frmStart
        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(15, 92)
        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(318, 59)
+        Me.GroupBox1.Size = New System.Drawing.Size(332, 59)
        Me.GroupBox1.TabIndex = 11
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Aktuelle Tastenkombination:"
@@ -150,7 +200,7 @@ Partial Class frmStart
        Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(3, 17)
        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(312, 13)
+        Me.Label2.Size = New System.Drawing.Size(326, 13)
        Me.Label2.TabIndex = 14
        Me.Label2.Text = "Zwischenablage gefolgt von:"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -162,7 +212,7 @@ Partial Class frmStart
        Me.labelHotkey.ForeColor = System.Drawing.SystemColors.ControlDarkDark
        Me.labelHotkey.Location = New System.Drawing.Point(3, 29)
        Me.labelHotkey.Name = "labelHotkey"
-        Me.labelHotkey.Size = New System.Drawing.Size(312, 27)
+        Me.labelHotkey.Size = New System.Drawing.Size(326, 27)
        Me.labelHotkey.TabIndex = 13
        Me.labelHotkey.Text = "{0}"
        Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -186,7 +236,7 @@ Partial Class frmStart
        Me.GroupBox2.Controls.Add(Me.labelStatus)
        Me.GroupBox2.Controls.Add(Me.labelRefresh)
        Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox2.Location = New System.Drawing.Point(15, 157)
+        Me.GroupBox2.Location = New System.Drawing.Point(21, 179)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(318, 64)
        Me.GroupBox2.TabIndex = 14
@@ -212,13 +262,6 @@ Partial Class frmStart
        Me.labelRefresh.TabIndex = 0
        Me.labelRefresh.Text = "Aktualisierung erfolgreich."
        '
-        'MinimierenToolStripMenuItem
-        '
-        Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
-        Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
-        Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
-        Me.MinimierenToolStripMenuItem.Text = "Minimieren"
-        '
        'btnAdminConfig
        '
        Me.btnAdminConfig.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Editdatasetwithdesigner_8449
@@ -241,48 +284,51 @@ Partial Class frmStart
        Me.btnUserConfig.Text = "Grundeinstellungen"
        Me.btnUserConfig.UseVisualStyleBackColor = True
        '
-        'labelUser
+        'RibbonControl1
        '
-        Me.labelUser.Image = CType(resources.GetObject("labelUser.Image"), System.Drawing.Image)
-        Me.labelUser.Name = "labelUser"
-        Me.labelUser.Size = New System.Drawing.Size(37, 17)
-        Me.labelUser.Text = "{0}"
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 1
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(359, 157)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
        '
-        'tslblAppServer
+        'RibbonPage1
        '
-        Me.tslblAppServer.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.server_Local_16xLG
-        Me.tslblAppServer.Name = "tslblAppServer"
-        Me.tslblAppServer.Size = New System.Drawing.Size(111, 17)
-        Me.tslblAppServer.Text = "AppServer active"
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "RibbonPage1"
        '
-        'tsmiChangeState
+        'RibbonPageGroup1
        '
-        Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
-        Me.tsmiChangeState.Name = "tsmiChangeState"
-        Me.tsmiChangeState.Size = New System.Drawing.Size(219, 22)
-        Me.tsmiChangeState.Tag = "stop"
-        Me.tsmiChangeState.Text = "Clipboard Watcher stoppen"
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
        '
-        'ClientÖffnenToolStripMenuItem
+        'RibbonPageGroup2
        '
-        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
-        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
-        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
-        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
        '
-        'ClientBeendenToolStripMenuItem
+        'RibbonStatusBar1
        '
-        Me.ClientBeendenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
-        Me.ClientBeendenToolStripMenuItem.Name = "ClientBeendenToolStripMenuItem"
-        Me.ClientBeendenToolStripMenuItem.Size = New System.Drawing.Size(219, 22)
-        Me.ClientBeendenToolStripMenuItem.Text = "Client beenden"
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 270)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(359, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
        '
        'frmStart
        '
        Me.Appearance.Options.UseFont = True
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(345, 254)
+        Me.ClientSize = New System.Drawing.Size(359, 292)
        Me.ContextMenuStrip = Me.ContextMenuStripForm
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.btnAdminConfig)
@@ -290,14 +336,18 @@ Partial Class frmStart
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        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.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
        Me.KeyPreview = True
        Me.MaximizeBox = False
        Me.MaximumSize = New System.Drawing.Size(361, 293)
-        Me.MinimumSize = New System.Drawing.Size(347, 286)
+        Me.MinimumSize = New System.Drawing.Size(347, 262)
        Me.Name = "frmStart"
+        Me.Ribbon = Me.RibbonControl1
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "Clipboard Watcher"
        Me.cmstrpNotifyIcon.ResumeLayout(False)
        Me.StatusStrip1.ResumeLayout(False)
@@ -306,6 +356,7 @@ Partial Class frmStart
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -336,4 +387,10 @@ Partial Class frmStart
    Friend WithEvents labelRefresh As Label
    Friend WithEvents labelStatus As Label
    Friend WithEvents tslblAppServer As ToolStripStatusLabel
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
 End Class