From c577177493adc58534a711923ffa4141f95748aa Mon Sep 17 00:00:00 2001 From: Developer01 Date: Fri, 22 Aug 2025 08:03:33 +0200 Subject: [PATCH] ProfileID in FormDesigner --- app/TaskFlow/frmFormDesigner.Designer.vb | 23 +++++++++++++++++++++-- app/TaskFlow/frmFormDesigner.resx | 21 +++++++++++++++++++++ app/TaskFlow/frmFormDesigner.vb | 2 +- 3 files changed, 43 insertions(+), 3 deletions(-) diff --git a/app/TaskFlow/frmFormDesigner.Designer.vb b/app/TaskFlow/frmFormDesigner.Designer.vb index 7cb4834..34a00f6 100644 --- a/app/TaskFlow/frmFormDesigner.Designer.vb +++ b/app/TaskFlow/frmFormDesigner.Designer.vb @@ -73,6 +73,8 @@ Partial Class frmFormDesigner Me.RPGControlFunction = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarStaticItem2 = New DevExpress.XtraBars.BarStaticItem() + Me.bsitmProfilID = New DevExpress.XtraBars.BarStaticItem() CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDesigner.Panel1.SuspendLayout() Me.SplitContainerDesigner.Panel2.SuspendLayout() @@ -125,9 +127,9 @@ Partial Class frmFormDesigner 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min, Me.tslblAenderungen}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1, Me.BarButtonItem4, Me.BarButtonItem5, Me.bbtnitLabel, Me.bbtnitTextBox, Me.bbtnitLU, Me.bbtnitTable, Me.bbtnitDatePicker, Me.bbtnitCheckBox, Me.bbtnitButton, Me.bbtnitLine, Me.bbtniwidth_plus, Me.bbtniwidth_min, Me.bbtniheight_plus, Me.bbtniheight_min, Me.tslblAenderungen, Me.BarStaticItem2, Me.bsitmProfilID}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 21 + Me.RibbonControl1.MaxItemId = 23 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -332,6 +334,7 @@ Partial Class frmFormDesigner ' 'RibbonStatusBar1 ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsitmProfilID) Me.RibbonStatusBar1.ItemLinks.Add(Me.tslblAenderungen) resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") Me.RibbonStatusBar1.Name = "RibbonStatusBar1" @@ -426,6 +429,20 @@ Partial Class frmFormDesigner Me.RibbonPageGroup4.Name = "RibbonPageGroup4" resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") ' + 'BarStaticItem2 + ' + resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2") + Me.BarStaticItem2.Id = 21 + Me.BarStaticItem2.Name = "BarStaticItem2" + ' + 'bsitmProfilID + ' + resources.ApplyResources(Me.bsitmProfilID, "bsitmProfilID") + Me.bsitmProfilID.Id = 22 + Me.bsitmProfilID.ItemAppearance.Normal.Font = CType(resources.GetObject("bsitmProfilID.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.bsitmProfilID.ItemAppearance.Normal.Options.UseFont = True + Me.bsitmProfilID.Name = "bsitmProfilID" + ' 'frmFormDesigner ' Me.Appearance.Options.UseFont = True @@ -508,4 +525,6 @@ Partial Class frmFormDesigner Friend WithEvents pnldesigner As DigitalData.Controls.SnapPanel.ClassSnapPanel Friend WithEvents tslblAenderungen As DevExpress.XtraBars.BarStaticItem Friend WithEvents pgControlsNew As DevExpress.XtraVerticalGrid.PropertyGridControl + Friend WithEvents BarStaticItem2 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsitmProfilID As DevExpress.XtraBars.BarStaticItem End Class diff --git a/app/TaskFlow/frmFormDesigner.resx b/app/TaskFlow/frmFormDesigner.resx index eeca56d..a038c46 100644 --- a/app/TaskFlow/frmFormDesigner.resx +++ b/app/TaskFlow/frmFormDesigner.resx @@ -421,6 +421,15 @@ Noch keine Änderungen + + BarStaticItem2 + + + ProfilID: + + + Microsoft Sans Serif, 8.25pt, style=Bold + 0, 0 @@ -1311,6 +1320,18 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarStaticItem2 + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsitmProfilID + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmFormDesigner diff --git a/app/TaskFlow/frmFormDesigner.vb b/app/TaskFlow/frmFormDesigner.vb index b0a6720..64bfca6 100644 --- a/app/TaskFlow/frmFormDesigner.vb +++ b/app/TaskFlow/frmFormDesigner.vb @@ -75,7 +75,7 @@ Public Class frmFormDesigner ' Profil Name in Fenstertitel setzen Text = $"Validation Designer - Profil: {ProfileName}" - + bsitmProfilID.Caption = $"ProfilID: {ProfileId}" ' Try ' Windream initialisieren If IDB_ACTIVE = False Then