diff --git a/app/DD-Record-Organiser/ClassControlProperties.vb b/app/DD-Record-Organiser/ClassControlProperties.vb index b3bc5a9..48a5b49 100644 --- a/app/DD-Record-Organiser/ClassControlProperties.vb +++ b/app/DD-Record-Organiser/ClassControlProperties.vb @@ -1,6 +1,36 @@ Imports System.ComponentModel +Imports System.Resources + Module ClassControlProperties + ' ++++++ LOCALIZE PROPERTIES ++++++ + + Private Function Lookup(key As String) + Try + Return My.Resources.ControlProperties.ResourceManager.GetString(key) + Catch ex As Exception + Return key + End Try + End Function + + Public Class LocalizedDescriptionAttribute + Inherits DescriptionAttribute + + Public Sub New(key As String) + MyBase.New(Lookup(key)) + End Sub + End Class + + Public Class LocalizedCategoryAttribute + Inherits CategoryAttribute + + Public Sub New(key As String) + MyBase.New(Lookup(key)) + End Sub + End Class + + ' +++++ END LOCALIZE PROPERTIES +++++ + ' +++++ ABSTRACT CLASSES +++++ Public MustInherit Class BaseProperties Private _id As Integer @@ -8,8 +38,8 @@ Module ClassControlProperties Private _location As Point Private _name As String - - + + Public Property ID() As Integer Get @@ -20,8 +50,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Size() As Size Get Return _size @@ -31,8 +61,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Location() As Point Get Return _location @@ -42,8 +72,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Name() As String Get Return _name @@ -73,8 +103,8 @@ Module ClassControlProperties Private _font As Font Private _font_color As Color - - + + Public Property ColumnTitle() As String Get Return _column_title @@ -84,8 +114,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property IsRequired() As Boolean Get Return _required @@ -95,8 +125,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property IsReadOnly() As Boolean Get Return _read_only @@ -106,19 +136,19 @@ Module ClassControlProperties End Set End Property - - - Public Property SQLConnection() As SQLValue - Get - Return New SQLValue(_sql_connection) - End Get - Set(value As SQLValue) - _sql_connection = value.Value - End Set - End Property + ' + ' + 'Public Property SQLConnection() As SQLValue + ' Get + ' Return New SQLValue(_sql_connection) + ' End Get + ' Set(value As SQLValue) + ' _sql_connection = value.Value + ' End Set + 'End Property - - + + Public Property SQLCommand() As SQLValue Get Return New SQLValue(_sql_command) @@ -127,8 +157,8 @@ Module ClassControlProperties _sql_command = value.Value End Set End Property - - + + Public Property Font() As Font Get Return _font @@ -138,8 +168,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property FontColor() As Color Get Return _font_color @@ -158,8 +188,8 @@ Module ClassControlProperties Private _tab_stop As Boolean Private _show_column As Boolean - - + + Public Property TabIndex() As Integer Get Return _tab_index @@ -168,8 +198,8 @@ Module ClassControlProperties _tab_index = value End Set End Property - - + + Public Property TabStop() As Boolean Get Return _tab_stop @@ -178,8 +208,8 @@ Module ClassControlProperties _tab_stop = value End Set End Property - - + + Public Property DefaultValue() As String Get @@ -190,8 +220,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property ShowColumn() As Boolean Get Return _show_column @@ -202,7 +232,7 @@ Module ClassControlProperties End Property End Class - + ' +++++ CONTROL CLASSES +++++ Public Class LabelProperties @@ -211,8 +241,8 @@ Module ClassControlProperties Private _caption As String = "" - - + + Public Overloads Property ColumnTitle() As String Get Return "" @@ -222,8 +252,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Caption() As String Get Return _caption @@ -240,8 +270,8 @@ Module ClassControlProperties Private _multiline As Boolean Private _format As String - - + + Public Property Format() As EnumFormatOptions Get Return _format @@ -251,8 +281,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Multiline() As Boolean Get Return _multiline @@ -269,8 +299,8 @@ Module ClassControlProperties Private _static_list As String Private _format As EnumFormatOptions - - + + Public Property Format() As EnumFormatOptions Get Return _format @@ -290,8 +320,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property StaticList() As String Get Return _static_list @@ -307,8 +337,8 @@ Module ClassControlProperties Private _default_value As EnumDateTimePickerDefaultValueOptions = EnumDateTimePickerDefaultValueOptions.Empty - - + + Public Overloads Property DefaultValue() As EnumDateTimePickerDefaultValueOptions Get Return _default_value @@ -324,8 +354,8 @@ Module ClassControlProperties Private _caption As String = "" Private _default_value As Boolean = False - - + + Public Property Caption() As String Get Return _caption @@ -335,8 +365,8 @@ Module ClassControlProperties End Set End Property - - + + Public Overloads Property DefaultValue As Boolean Get @@ -355,8 +385,8 @@ Module ClassControlProperties Private _default_value As Boolean = False - - + + Public Property Caption() As String Get Return _caption @@ -366,8 +396,8 @@ Module ClassControlProperties End Set End Property - - + + Public Overloads Property DefaultValue As Boolean Get @@ -390,8 +420,8 @@ Module ClassControlProperties Private _caption As String = "" Private _back_color As Color - - + + Public Property Caption() As String Get Return _caption @@ -401,8 +431,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property BackColor() As Color Get Return _back_color @@ -428,8 +458,8 @@ Module ClassControlProperties Private _place As String Private _description As String - - + + Public Property Caption() As String Get Return _caption @@ -439,8 +469,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Subject() As String Get Return _subject @@ -450,8 +480,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Subject2() As String Get Return _subject2 @@ -461,8 +491,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Place() As String Get Return _place @@ -472,8 +502,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property Description() As String Get Return _description @@ -483,8 +513,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property FromDate() As String Get Return _from_date @@ -494,8 +524,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property ToDate() As String Get Return _to_date @@ -513,8 +543,8 @@ Module ClassControlProperties Private _form_id As Integer Private _screen_id As Integer - - + + Public Property Caption() As String Get Return _caption @@ -524,8 +554,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property FormID() As Integer Get Return _form_id @@ -535,8 +565,8 @@ Module ClassControlProperties End Set End Property - - + + Public Property ScreenID() As Integer Get Return _screen_id diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb index 32ac1d7..a222de7 100644 --- a/app/DD-Record-Organiser/ClassInit.vb +++ b/app/DD-Record-Organiser/ClassInit.vb @@ -51,33 +51,6 @@ Public Class ClassInit End Sub - - Public Sub InitInterface(mainForm As frmMain) - - Dim SQL As String = "SELECT BACKGROUND_IMAGE, PRODUCT_NAME1 FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'" - Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) - - If dt.Rows.Count > 0 Then - - Dim row As DataRow = dt.Rows(0) - - If Not IsDBNull(row.Item("BACKGROUND_IMAGE")) Then - Dim bimage() As Byte = CType(row.Item("BACKGROUND_IMAGE"), Byte()) - Dim image As Bitmap = ByteArrayToBitmap(bimage) - - mainForm.SetWindowBackground(image) - End If - - If Not IsDBNull(row.Item("PRODUCT_NAME1")) Then - Dim title As String = row.Item("PRODUCT_NAME1") - - mainForm.SetWindowTitle(title) - End If - - End If - - End Sub - Public Sub InitUserLogin() Dim sql = sql_UserID sql = sql.Replace("@user", Environment.UserName) diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 9e84fc7..f40e86e 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -253,6 +253,16 @@ + + ControlProperties.en.resx + True + True + + + True + True + ControlProperties.resx + True True @@ -576,6 +586,16 @@ + + ResXFileCodeGenerator + ControlProperties.en.Designer.vb + My.Resources + + + My.Resources + ResXFileCodeGenerator + ControlProperties.Designer.vb + frmAbout.vb @@ -1178,6 +1198,8 @@ + + diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organiser/My Project/Resources.Designer.vb index 65bb6f7..081ddad 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -410,6 +410,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property calendar_32x32() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("calendar_32x32", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -450,6 +460,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property changechartlegendalignment_32x32() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("changechartlegendalignment_32x32", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD-Record-Organiser/My Project/Resources.resx b/app/DD-Record-Organiser/My Project/Resources.resx index 816028d..2f4f149 100644 --- a/app/DD-Record-Organiser/My Project/Resources.resx +++ b/app/DD-Record-Organiser/My Project/Resources.resx @@ -136,8 +136,8 @@ ..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,6 +235,9 @@ ..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -421,6 +424,9 @@ ..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -445,8 +451,8 @@ ..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -499,9 +505,6 @@ ..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -565,13 +568,16 @@ ..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\arrow_Down_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\112_RefreshArrow_Blue_24x24_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\arrow_Down_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD-Record-Organiser/Resources/calendar_32x32.png b/app/DD-Record-Organiser/Resources/calendar_32x32.png new file mode 100644 index 0000000..89facee Binary files /dev/null and b/app/DD-Record-Organiser/Resources/calendar_32x32.png differ diff --git a/app/DD-Record-Organiser/Resources/changechartlegendalignment_32x32.png b/app/DD-Record-Organiser/Resources/changechartlegendalignment_32x32.png new file mode 100644 index 0000000..6a718f7 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/changechartlegendalignment_32x32.png differ diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb b/app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb new file mode 100644 index 0000000..0e0a654 --- /dev/null +++ b/app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb @@ -0,0 +1,400 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Class ControlProperties + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Record_Organiser.ControlProperties", GetType(ControlProperties).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Termin Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_appointment() As String + Get + Return ResourceManager.GetString("category_appointment", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Daten ähnelt. + ''' + Friend Shared ReadOnly Property category_data() As String + Get + Return ResourceManager.GetString("category_data", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Database Configurations ähnelt. + ''' + Friend Shared ReadOnly Property category_database() As String + Get + Return ResourceManager.GetString("category_database", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Datums Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_date() As String + Get + Return ResourceManager.GetString("category_date", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Font Configurations ähnelt. + ''' + Friend Shared ReadOnly Property category_font() As String + Get + Return ResourceManager.GetString("category_font", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Form Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_form() As String + Get + Return ResourceManager.GetString("category_form", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ID ähnelt. + ''' + Friend Shared ReadOnly Property category_id() As String + Get + Return ResourceManager.GetString("category_id", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Other Configurations ähnelt. + ''' + Friend Shared ReadOnly Property category_other() As String + Get + Return ResourceManager.GetString("category_other", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ViewConfigurations ähnelt. + ''' + Friend Shared ReadOnly Property category_view() As String + Get + Return ResourceManager.GetString("category_view", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Hintergrundfarbe des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_backcolor() As String + Get + Return ResourceManager.GetString("desc_backcolor", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Beschreibungstext dieses Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_caption() As String + Get + Return ResourceManager.GetString("desc_caption", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Spaltentitel des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_col_title() As String + Get + Return ResourceManager.GetString("desc_col_title", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Spaltentitel des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_columntitle() As String + Get + Return ResourceManager.GetString("desc_columntitle", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Standardwert dieses Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_defaultvalue() As String + Get + Return ResourceManager.GetString("desc_defaultvalue", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_description() As String + Get + Return ResourceManager.GetString("desc_description", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Schriftfarbe an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_fontcolor() As String + Get + Return ResourceManager.GetString("desc_fontcolor", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Schriftart an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_fontstyle() As String + Get + Return ResourceManager.GetString("desc_fontstyle", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt das Format des Textes an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_format() As String + Get + Return ResourceManager.GetString("desc_format", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Form-ID der zu öffnenden Form an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_formid() As String + Get + Return ResourceManager.GetString("desc_formid", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Name eines Elements von dem das End-Datum gelesen wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_fromdate() As String + Get + Return ResourceManager.GetString("desc_fromdate", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die eindeutige ID des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_id() As String + Get + Return ResourceManager.GetString("desc_id", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Position des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_location() As String + Get + Return ResourceManager.GetString("desc_location", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Feld mehrzeilig sein soll. ähnelt. + ''' + Friend Shared ReadOnly Property desc_multiline() As String + Get + Return ResourceManager.GetString("desc_multiline", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den internen Namen des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_name() As String + Get + Return ResourceManager.GetString("desc_name", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_place() As String + Get + Return ResourceManager.GetString("desc_place", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob dieses Element nur lesbar ist. ähnelt. + ''' + Friend Shared ReadOnly Property desc_readonly() As String + Get + Return ResourceManager.GetString("desc_readonly", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen. ähnelt. + ''' + Friend Shared ReadOnly Property desc_required() As String + Get + Return ResourceManager.GetString("desc_required", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Screen-ID der zu öffnenden Form an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_screenid() As String + Get + Return ResourceManager.GetString("desc_screenid", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Feld als Spalte im Grid angezeigt wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_showcolumn() As String + Get + Return ResourceManager.GetString("desc_showcolumn", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Größe des Elements an ähnelt. + ''' + Friend Shared ReadOnly Property desc_size() As String + Get + Return ResourceManager.GetString("desc_size", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden. ähnelt. + ''' + Friend Shared ReadOnly Property desc_sqlcommand() As String + Get + Return ResourceManager.GetString("desc_sqlcommand", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen' ähnelt. + ''' + Friend Shared ReadOnly Property desc_staticlist() As String + Get + Return ResourceManager.GetString("desc_staticlist", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_subject() As String + Get + Return ResourceManager.GetString("desc_subject", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_subject2() As String + Get + Return ResourceManager.GetString("desc_subject2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_tabindex() As String + Get + Return ResourceManager.GetString("desc_tabindex", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll. ähnelt. + ''' + Friend Shared ReadOnly Property desc_tabstop() As String + Get + Return ResourceManager.GetString("desc_tabstop", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Name eines Elements von dem das Start-Datum gelesen wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_todate() As String + Get + Return ResourceManager.GetString("desc_todate", resourceCulture) + End Get + End Property + End Class +End Namespace diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.en.Designer.vb b/app/DD-Record-Organiser/Strings/ControlProperties.en.Designer.vb new file mode 100644 index 0000000..e69de29 diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.en.resx b/app/DD-Record-Organiser/Strings/ControlProperties.en.resx new file mode 100644 index 0000000..7f73f90 --- /dev/null +++ b/app/DD-Record-Organiser/Strings/ControlProperties.en.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Termin Einstellungen + + + Daten + + + Database Configurations + + + Datums Einstellungen + + + Font Configurations + + + Form Einstellungen + + + ID + + + Other Configurations + + + ViewConfigurations + + + Gibt die Hintergrundfarbe des Elements an. + + + Gibt den Beschreibungstext dieses Elements an. + + + Gibt den Spaltentitel des Elements an. + + + Gibt den Spaltentitel des Elements an. + + + Gibt den Standardwert dieses Elements an. + + + Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt die Schriftfarbe an. + + + Gibt die Schriftart an. + + + Gibt das Format des Textes an. + + + Gibt die Form-ID der zu öffnenden Form an. + + + Der Name eines Elements von dem das End-Datum gelesen wird. + + + Gibt die eindeutige ID des Elements an. + + + Gibt die Position des Elements an. + + + Gibt an, ob das Feld mehrzeilig sein soll. + + + Gibt den internen Namen des Elements an. + + + Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt an, ob dieses Element nur lesbar ist. + + + Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen. + + + Gibt die Screen-ID der zu öffnenden Form an. + + + Gibt an, ob das Feld als Spalte im Grid angezeigt wird. + + + Gibt die Größe des Elements an + + + Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden. + + + Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen' + + + Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird. + + + Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll. + + + Der Name eines Elements von dem das Start-Datum gelesen wird. + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.resx b/app/DD-Record-Organiser/Strings/ControlProperties.resx new file mode 100644 index 0000000..7f73f90 --- /dev/null +++ b/app/DD-Record-Organiser/Strings/ControlProperties.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Termin Einstellungen + + + Daten + + + Database Configurations + + + Datums Einstellungen + + + Font Configurations + + + Form Einstellungen + + + ID + + + Other Configurations + + + ViewConfigurations + + + Gibt die Hintergrundfarbe des Elements an. + + + Gibt den Beschreibungstext dieses Elements an. + + + Gibt den Spaltentitel des Elements an. + + + Gibt den Spaltentitel des Elements an. + + + Gibt den Standardwert dieses Elements an. + + + Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt die Schriftfarbe an. + + + Gibt die Schriftart an. + + + Gibt das Format des Textes an. + + + Gibt die Form-ID der zu öffnenden Form an. + + + Der Name eines Elements von dem das End-Datum gelesen wird. + + + Gibt die eindeutige ID des Elements an. + + + Gibt die Position des Elements an. + + + Gibt an, ob das Feld mehrzeilig sein soll. + + + Gibt den internen Namen des Elements an. + + + Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt an, ob dieses Element nur lesbar ist. + + + Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen. + + + Gibt die Screen-ID der zu öffnenden Form an. + + + Gibt an, ob das Feld als Spalte im Grid angezeigt wird. + + + Gibt die Größe des Elements an + + + Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden. + + + Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen' + + + Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird. + + + Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll. + + + Der Name eines Elements von dem das Start-Datum gelesen wird. + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmMain.Designer.vb b/app/DD-Record-Organiser/frmMain.Designer.vb index 8732e55..ac72c23 100644 --- a/app/DD-Record-Organiser/frmMain.Designer.vb +++ b/app/DD-Record-Organiser/frmMain.Designer.vb @@ -22,16 +22,15 @@ Partial Class frmMain 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) - Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) - Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon() + Me.Timer1 = New System.Windows.Forms.Timer() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() - Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource() Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu() Me.itemInfo = New DevExpress.XtraBars.BarButtonItem() Me.itemSettings = New DevExpress.XtraBars.BarButtonItem() Me.itemExit = New DevExpress.XtraBars.BarButtonItem() @@ -60,6 +59,7 @@ Partial Class frmMain Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.pageForms = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.groupQuickAccessForm2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.pageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroupProgram = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupTask = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -67,11 +67,10 @@ Partial Class frmMain Me.RibbonPageGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components) + Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel() Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() - Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components) + Me.TimerClose3Minutes = New System.Windows.Forms.Timer() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.groupQuickAccessForm2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit() @@ -212,7 +211,7 @@ Partial Class frmMain 'BarButtonItem1 ' resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") - Me.BarButtonItem1.Glyph = CType(resources.GetObject("BarButtonItem1.Glyph"), System.Drawing.Image) + Me.BarButtonItem1.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.calendar_32x32 Me.BarButtonItem1.Id = 11 Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large @@ -373,6 +372,11 @@ Partial Class frmMain Me.pageForms.Name = "pageForms" resources.ApplyResources(Me.pageForms, "pageForms") ' + 'groupQuickAccessForm2 + ' + Me.groupQuickAccessForm2.Name = "groupQuickAccessForm2" + resources.ApplyResources(Me.groupQuickAccessForm2, "groupQuickAccessForm2") + ' 'pageAdmin ' Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroupWindream, Me.RibbonPageGroup1}) @@ -455,11 +459,6 @@ Partial Class frmMain Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") ' - 'groupQuickAccessForm2 - ' - Me.groupQuickAccessForm2.Name = "groupQuickAccessForm2" - resources.ApplyResources(Me.groupQuickAccessForm2, "groupQuickAccessForm2") - ' 'frmMain ' Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color) diff --git a/app/DD-Record-Organiser/frmMain.resx b/app/DD-Record-Organiser/frmMain.resx index 6b5df15..a404b9f 100644 --- a/app/DD-Record-Organiser/frmMain.resx +++ b/app/DD-Record-Organiser/frmMain.resx @@ -1216,48 +1216,6 @@ Kalender - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0 - bGUAQ2FsZW5kYXI7U2NoZWR1bGVyO1ZpZXeFqTJSAAAIT0lEQVRYR6WXeVSU1xnGXRKTaGLSffm3f7Q9 - +bOnqcmJNWmNmGoVE40iYRcB2UGRRRQRZBGNKKisgQBWOK5RqycqAqKI9dj1HMM2+z7MDMwwDJt9+r53 - 5htmirQ57ZzzO/f9Zrj3ed5733vvx4LnfXIO1yzILqjmcBGx2MNC/uK/ff6fvt5PRt4pbhYlZx3vIBCT - criLnpcQPNA3YfE36DvnI/3AzpmXY9NLcf9JPwK3p4OeXyOkjF54Di/6sOzf+r5BsAmGf58zKwu7tm54 - vyco8FHPto1grq19D1VRu+D4J3BgbSAurF6Jrs3r0PXR79BJdGz6EB2BH+LuxrVo3xiA9g1rcOf3a3B7 - /Rq0rlzh17fp7V/i5trf4EbA+7i6etXjllXvfECabNprYlF30CaLvu4Y7NebYb/aBGXdUZQH70DBiTbs - XhWAvsoijFyow8j5WtjaamBtJf5QDevZM7C0nIal+RSGv6jAcONJ9JXm+vX928EMGE+XwUAM5GXgym/f - s5ImzwbPtHCx+N7m9bBfa4Lp6F4YDqfg78nBKNsSgorGG0j41So8jvkE2tw4aPbFQpMdA3XWTqgzd0C5 - JwrK3ZFQpEdCnhoOeXIYeoPX+/Xt/DgAAzu3oT/qEyhzknF51Tu8LK/4GeAptX/ZAENhMvQFSXiaHoac - lb/Ghp/8HBFvvom/JgZBkxND4juhyoyGKmMHVCxOwoq0CMhTwiFLDoUsMRR/Dg1E1op3Rd/Qn/4MD7eu - E+J9kVugyEzExXdXsIGlrCsZeOHOhgCMXiIDhxKhz0+ALi8eppN5MFcVwVi+fzbrvdFQZkhZR0CRSuKU - tSwpFEMJIRiKD8ZgXDCUuanQHNpLGSehL2oL+sI34+vwjyHPiMf5t99iA8v8DNxat5rWuB66g/FCXHtg - l3u6KWs1iUtZe6fck7VcZB0CWfynGCLhwdggDMQEoT96q8i6P2ILCZN42Ed4GrIJsrRYtL71izkGXjxa - 143pmWeYmPYwNQPX1DO4KHZNEvQ8zkxOEzNwThAUO0VMLTHm0zokXNOwM+Nu+Leskuts4FU/A2W19zBJ - AvwHflBnh2uKBmF4kCmMSjinMOKDTTAJ69gkbAS3jMXBTAj4+8yia2xAOleEgSWlNfdE1v7OSZRcs5Bt - jDtPwOpw0UAuDNvHYR51wmJ30Xf825RX0C3qFhxm7LPwbxmFX/oZ4K2wpKSqU0yzW3QKTVf+gkZihDKa - L64+9whVZ3vJyLg31podMBSnQ1+UBrPBDH1hKnQFqTCTuHnUbXZ3wRU2sJzgw0gYeKn4TIdYYzbA09tw - 6QkaLj4RHeaLT7X0orKlB3qL3RurTQ4STSHRZJh1Jujyk6A9mAjTiAtGgmckLf8yG3jd18DLhafuisKS - 1tVgHYeeGKbs5otVJKYyOqAzj3pjxqQ1eTFqjW5I3ECYRyeQcvDSXAMFFe2i6HhquZhq2v5EPCLnznnj - 8ob7ON7QDY3R5o2VBjs0++MFRq0B6pw4qLJjYbCRecJEy5B84CIb4AvKa+CV/BN3hAGpiKrP9aKKMNqc - 88bHPu/Gsfp7JGr1xnIyoCZBdRaJagxQZu6Ekg4vnjU9GTCSgaT9F9jAt3wNLD1Yfkusv1S9GvMYQetp - ccwbK/SjkBMKvcUbyw2j0Gv00KkNBLUqD2RAZ3WKZUjIPc8Gvi0Z4K2wNO+zr4QBsV3IQGVzD0429UBH - QvPFR6o7UErIdcPeWKYjQ3w/0DGtU+rFBSWjE1NrcQp4GeKz2yQD/G4gDCzbf+ymqH4z7WsulBOND8S6 - stB8ccnpuygmlAabNx7S0iyIIzoMGoVeXE58R2hIXDPsFDMRl9XKBr7ja+DVfWU3RQGaSJy3DBeTwmgX - jjVmuxBR6K00zVbItBbKdFig1NtoYAcGNSOCAY0NahLWKHRQy3VQybXUEiTOCAOZ59jAd/0MZJf+UVQ/ - bxculKNUUGW1XWJdS2tmp7fkDGVa5c60qLIdhcSgdgQFlbeQX3FLGBiM2y5gcXEx0buAmmpHNTwmliFm - 71wDr2UWXxfVb7Dxfh3HkZrOWdGqDu/0FtF5IUQp24LK2zhUcRv9ahvyqYjzy79CH8UDMfTyEb0NKpkW - /TvoRiSUJjJA8FLs3HOWDXzP18DyjMNXRQFK28VdtRJUQB7EWnrWU20Z80ytu1VRllKmHCslSJhR8EFF - z9FuA98n+LVMbIXle+iCMJKwljrz4Lzd1GYaXLTuAcWgIhMayDOokmKFgAQ8sdxkh5zEZrFDRq2M6orP - iajdLWzgB74GXucLwkhTL/aynjpQKzFEy8BLIdONUMzwd1R0PgwIaPqpHjjup9aNDf1UF9zy8ijYQHrz - HANv8AXxNf2B8xm9YHgYm3HjmKHreZraabqip+h6nqILa5Kho5ta2wQd34TVRYzTVTxOZ4mToS09RtC5 - YmLoCu/9hw6RaU1s4Id+BhJy2nC86TGO1D9CWX0vSuuI2l6U1DxEcU0Pis48QNHpByg8fR8Fp7pxiMiv - IE52I+/kPeSd6ML+8k7kHu/EvmMdyCGyy+4S7cg6wtxBRukd7PusA58m1PkZELsgNrNl/HL3IG4+Vgpu - SG2vO77WKxMxtxJXeoYE4vnh7PN/orX9KYJiq1yk6d2G4jLaElmyNXrPF6boPc1Upc1UKE20Vo00XURq - AyJSG4kGhKcwnyM8uR5hSfUIZRLrBCEJtZSdh/gaBMfXIngXtUxcDbbHVSMo5oz5g8CMUNL0eyfkgP9R - 4Duaj0h2J8H7VYK3ji9cSBI8pb78yIcfe+CYx+TXMc6etcWHA54Jrgf+4Xnwev0vvOQDP/NYnDBpLlj4 - LyAMut4SBqhSAAAAAElFTkSuQmCC - - Entitäten Designer @@ -3031,6 +2989,12 @@ Konfiguration DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + groupQuickAccessForm2 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + pageAdmin @@ -3091,12 +3055,6 @@ Konfiguration DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - groupQuickAccessForm2 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmMain diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index d265217..6033622 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -67,6 +67,9 @@ Public Class frmMain 'Dim splash As New frmSplash() 'splash.ShowDialog() + ' MainForm Hintergrund laden + SetBackgroundImage() + Me.Text = Application.ProductName LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) LabelUser.Caption = Environment.UserName @@ -151,28 +154,20 @@ Public Class frmMain "CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, " & _ "'CONSTR_MENUE' + CONVERT(VARCHAR(5), GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR where GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2) - Dim image2 As Bitmap = LoadNoImage() - - Try - If Not IsNothing(groupQuickAccessForm) Then - Do While 0 < groupQuickAccessForm.ItemLinks.Count - groupQuickAccessForm.ItemLinks.Remove(groupQuickAccessForm.ItemLinks(0)) - Loop - End If - Catch ex As Exception - - End Try - - If dt.Rows.Count <> 0 Then For Each row As DataRow In dt.Rows - If Not IsDBNull(row.Item("MENU_IMG")) Then + Dim image As Bitmap = Nothing + + If IsDBNull(row.Item("MENU_IMG")) Then + image = My.Resources.ResourceManager.GetObject("changechartlegendalignment_32x32") + Else Dim bimg() As Byte = row.Item("MENU_IMG") Dim bitmap As Bitmap = ByteArrayToBitmap(bimg) - image2 = bitmap + image = bitmap End If + Dim title = row.Item("FORM_TITLE") If title = "CAPTION (OBJ) NOT TRANSLATED" Then Dim objectname = row.Item("OBECTNAME") @@ -191,11 +186,12 @@ Public Class frmMain item.RibbonStyle = RibbonItemStyles.Large item.Caption = title item.Tag = tag - item.Glyph = image2 + item.Glyph = image + item.LargeGlyph = image AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick groupQuickAccessForm2.ItemLinks.Add(item) - + Next End If @@ -373,24 +369,16 @@ Public Class frmMain Next End Sub - Delegate Sub SetWindowTitleDelegate(t As String) - Public Sub SetWindowTitle(t As String) - If Me.InvokeRequired Then - Dim d As New SetWindowTitleDelegate(AddressOf SetWindowTitle) - Me.Invoke(d, New Object() {t}) - Else - Me.Text = t - End If - End Sub + Private Sub SetBackgroundImage() + Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'" + Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL) - Delegate Sub SetWindowBackgroundDelegate(i As Bitmap) - Public Sub SetWindowBackground(i As Bitmap) - If Me.InvokeRequired Then - Dim d As New SetWindowBackgroundDelegate(AddressOf SetWindowBackground) - Me.Invoke(d, New Object() {i}) - Else - Me.BackgroundImage = i + If Not IsDBNull(bimage) Then + + Dim image As Bitmap = ByteArrayToBitmap(bimage) + Me.BackgroundImage = image Me.BackgroundImageLayout = ImageLayout.Center + End If End Sub @@ -625,7 +613,7 @@ Public Class frmMain 'If USER_LANGUAGE = "de-DE" Then ' MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information) 'Else - MsgBox("Global Indexer will now be closed, cause no new license was updated!", MsgBoxStyle.Information) + MsgBox("Record Organizer will now be closed, cause no new license was updated!", MsgBoxStyle.Information) 'End If Me.Close() Else diff --git a/app/DD-Record-Organiser/frmSplash.vb b/app/DD-Record-Organiser/frmSplash.vb index 948c14f..3e11212 100644 --- a/app/DD-Record-Organiser/frmSplash.vb +++ b/app/DD-Record-Organiser/frmSplash.vb @@ -83,6 +83,7 @@ Public NotInheritable Class frmSplash System.Threading.Thread.Sleep(500) bw.ReportProgress(CalcProgress(5), "Initializing Frontend") + ' InitInterface wurde in frmMain integriert 'Init.InitInterface(mainForm) System.Threading.Thread.Sleep(500)