diff --git a/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx index 4e61be8..e4fedb4 100644 --- a/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx +++ b/Nuvolar.WIN.Debranet.GL/My Project/licenses.licx @@ -1 +1,2 @@ -DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj index 3291723..d4f4f6a 100644 --- a/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj +++ b/Nuvolar.WIN.Debranet.GL/Nuvolar.WIN.Debranet.GL.vbproj @@ -9,7 +9,7 @@ WinExe Sub Main Nuvolar.Win - Nuvolar.Win.Lite + Nuvolar.Win.Debranet WindowsFormsWithCustomSubMain favicon.ico On @@ -394,6 +394,12 @@ Component + + XafSplashScreen.vb + + + Form + @@ -408,6 +414,9 @@ WinApplication.vb Designer + + XafSplashScreen.vb + diff --git a/Nuvolar.WIN.Debranet.GL/Program.vb b/Nuvolar.WIN.Debranet.GL/Program.vb index e58a2c8..eeb2372 100644 --- a/Nuvolar.WIN.Debranet.GL/Program.vb +++ b/Nuvolar.WIN.Debranet.GL/Program.vb @@ -13,7 +13,7 @@ Imports Nuvolar.Module Friend NotInheritable Class Program Private Sub New() End Sub - _ + Public Shared Sub Main(ByVal arguments() As String) #If EASYTEST Then DevExpress.ExpressApp.EasyTest.WinAdapter.RemotingRegistration.Register(4100) @@ -57,7 +57,6 @@ Friend NotInheritable Class Program AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting AddHandler winApplication.CustomHandleException, AddressOf winApplication_CustomHandleException winApplication.DelayedViewItemsInitialization = True - winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen winApplication.DatabaseUpdateMode = DatabaseUpdateMode.UpdateOldDatabase AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.CreationOnly diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication.vb b/Nuvolar.WIN.Debranet.GL/WinApplication.vb index 370cfd6..c6538ac 100644 --- a/Nuvolar.WIN.Debranet.GL/WinApplication.vb +++ b/Nuvolar.WIN.Debranet.GL/WinApplication.vb @@ -12,6 +12,7 @@ Imports DevExpress.ExpressApp.Utils Imports DevExpress.ExpressApp.Xpo Imports Nuvolar.Module.GeneralFunction Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.Win.Utils Partial Public Class NuvolarWindowsFormsDebranetGL Inherits WinApplication @@ -22,7 +23,9 @@ Partial Public Class NuvolarWindowsFormsDebranetGL Private Sub InitializeDefaults() LinkNewObjectToParentImmediately = True UseLightStyle = True + SplashScreen = New DXSplashScreen(GetType(XafSplashScreen), New DefaultOverlayFormOptions()) ExecuteStartupLogicBeforeClosingLogonWindow = True + End Sub Private Sub NuvolarWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch diff --git a/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb b/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb index c9857bd..f18632c 100644 --- a/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb +++ b/Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb @@ -5,6 +5,8 @@ Imports Nuvolar.Module Imports Nuvolar.Module.Win Imports Nuvolar.Module.StaticClass Imports DevExpress.ExpressApp.Xpo +Imports System.Configuration +Imports System.Text Partial Public Class NuvolarWindowsFormsDebranetGL Inherits WinApplication @@ -42,64 +44,44 @@ Partial Public Class NuvolarWindowsFormsDebranetGL GLOBAL_SQLServer = _ChangeLogon.SQLServer GLOBAL_SQLDatabase = _ChangeLogon.DBConnection + Dim _NuvolarServer As String = ConfigurationManager.AppSettings("NuvolarServer") + If String.IsNullOrEmpty(_NuvolarServer) = False Then + Dim _EncryptPassword As String = "uO1625m9ftwStO40CwK3mrO17OxsyLe5YDVXAUWC0JZlfMM9YOJYZN8g21nG9HhX" + Dim _EncryptSalt As String = "IrUMyznsIimD8Ct8EhSQ04PQq00Rje9p" + Dim _PasswordDecoded As String = EncryptDecrypt.AESDecrypt(Encoding.ASCII.GetString(Convert.FromBase64String(_NuvolarServer)), _EncryptPassword, _EncryptSalt) + GeneralFunction.GLOBAL_SQLUser = _PasswordDecoded.Split(";"c)(1) + GeneralFunction.GLOBAL_SQLPassword = _PasswordDecoded.Split(";"c)(2) + End If + Select Case _ChangeLogon.SQLType Case eSQLType.MSSQL - Select Case _ChangeLogon.SQLServer - Case "192.168.1.75" - _connectionString = " User ID=sa; " - _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName)) - _connectionString &= " Password=M1cr0s0ft!;" - _connectionString &= " Pooling=false;" - _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) - _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection - _plattform = "MS SQL" - GLOBAL_SQLUser = "sa" - GLOBAL_SQLPassword = "M1cr0s0ft!" - Case Else - _connectionString = " User ID=sa; " - _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName)) - _connectionString &= " Password=pcl718;" - _connectionString &= " Pooling=false;" - _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) - _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection - _plattform = "MS SQL" - GLOBAL_SQLUser = "sa" - GLOBAL_SQLPassword = "pcl718" - End Select + _connectionString = String.Format(" User ID={0}; " & + " Application Name=Nuvolar Framework ({1});" & + " Password={2};" & + " Pooling=false;" & + " Data Source={3};" & + " Initial Catalog={4}", GeneralFunction.GLOBAL_SQLUser, _ChangeLogon.UserName.ToUpper(), GeneralFunction.GLOBAL_SQLPassword, + _ChangeLogon.SQLServer, _ChangeLogon.DBConnection) + _plattform = "MS SQL" Case eSQLType.MySQL - Select Case _ChangeLogon.SQLServer - Case "eu-cdbr-azure-north-e.cloudapp.net" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "bf614abf4c83ef", "edbc0ac0", "trevor") - Case "84.1.95.74" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection) - Case "192.168.100.182" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) - Case "81.183.209.96" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) - Case "192.168.0.200" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection) - Case "192.168.1.31", "192.168.0.159", "84.1.150.148", "nuvolar.northeurope.cloudapp.azure.com", "192.168.1.75" - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection) - Case Else - _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "root", _ChangeLogon.DBConnection) - - End Select + _connectionString = String.Format("XpoProvider=MySql;" & + "server={0}; " & + "Port = 3306;" & + "user id = {1}; " & + "password = {2}; " & + "database = {3}; " & + "Persist Security Info = true; " & + "CharSet = utf8; " & "Allow User Variables = True", _ChangeLogon.SQLServer, GeneralFunction.GLOBAL_SQLUser, + GeneralFunction.GLOBAL_SQLPassword, _ChangeLogon.DBConnection) _plattform = "MySQL" - GLOBAL_SQLUser = "root" - GLOBAL_SQLPassword = "pcl718" Case eSQLType.PostgreSQL - _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection) + _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer & ";Port=5432", GeneralFunction.GLOBAL_SQLUser, + GeneralFunction.GLOBAL_SQLPassword, _ChangeLogon.DBConnection) _plattform = "postgreSQL" Case Else - _connectionString = " User ID=sa; " - _connectionString &= " Password=pcl718;" - _connectionString &= " Pooling=false;" - _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer) - _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection - GLOBAL_SQLUser = "sa" - GLOBAL_SQLPassword = "pcl718" + _connectionString = "" End Select Dim anm As System.Reflection.AssemblyName = System.Reflection.AssemblyName.GetAssemblyName(Application.StartupPath & "\Nuvolar.Module.dll") diff --git a/Nuvolar.WIN.Debranet.GL/XafSplashScreen.Designer.vb b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.Designer.vb new file mode 100644 index 0000000..ad1c8c7 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.Designer.vb @@ -0,0 +1,153 @@ + +Partial Class XafSplashScreen + Inherits DevExpress.XtraSplashScreen.SplashScreen + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XafSplashScreen)) + Me.labelCopyright = New DevExpress.XtraEditors.LabelControl() + Me.pictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.pcApplicationName = New DevExpress.XtraEditors.PanelControl() + Me.labelSubtitle = New DevExpress.XtraEditors.LabelControl() + Me.labelApplicationName = New DevExpress.XtraEditors.LabelControl() + Me.labelStatus = New DevExpress.XtraEditors.LabelControl() + Me.progressBarControl = New DevExpress.XtraEditors.MarqueeProgressBarControl() + CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pcApplicationName, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pcApplicationName.SuspendLayout() + CType(Me.progressBarControl.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'labelCopyright + ' + Me.labelCopyright.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.labelCopyright.Location = New System.Drawing.Point(24, 292) + Me.labelCopyright.Name = "labelCopyright" + Me.labelCopyright.Size = New System.Drawing.Size(47, 13) + Me.labelCopyright.TabIndex = 11 + Me.labelCopyright.Text = "Copyright" + ' + 'pictureEdit1 + ' + Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object) + Me.pictureEdit1.Location = New System.Drawing.Point(347, 304) + Me.pictureEdit1.Name = "pictureEdit1" + Me.pictureEdit1.Properties.AllowFocused = False + Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True + Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pictureEdit1.Properties.ShowMenu = False + Me.pictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.pictureEdit1.Size = New System.Drawing.Size(126, 35) + Me.pictureEdit1.TabIndex = 15 + ' + 'pcApplicationName + ' + Me.pcApplicationName.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(187, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer)) + Me.pcApplicationName.Appearance.Options.UseBackColor = True + Me.pcApplicationName.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pcApplicationName.Controls.Add(Me.labelSubtitle) + Me.pcApplicationName.Controls.Add(Me.labelApplicationName) + Me.pcApplicationName.Dock = System.Windows.Forms.DockStyle.Top + Me.pcApplicationName.Location = New System.Drawing.Point(1, 1) + Me.pcApplicationName.LookAndFeel.UseDefaultLookAndFeel = False + Me.pcApplicationName.Name = "pcApplicationName" + Me.pcApplicationName.Size = New System.Drawing.Size(490, 220) + Me.pcApplicationName.TabIndex = 16 + ' + 'labelSubtitle + ' + Me.labelSubtitle.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelSubtitle.Appearance.ForeColor = System.Drawing.Color.White + Me.labelSubtitle.Appearance.Options.UseFont = True + Me.labelSubtitle.Appearance.Options.UseForeColor = True + Me.labelSubtitle.Location = New System.Drawing.Point(154, 148) + Me.labelSubtitle.Name = "labelSubtitle" + Me.labelSubtitle.Size = New System.Drawing.Size(176, 25) + Me.labelSubtitle.TabIndex = 1 + Me.labelSubtitle.Text = "by Dorlin-System Kft." + ' + 'labelApplicationName + ' + Me.labelApplicationName.Appearance.Font = New System.Drawing.Font("Segoe UI", 26.25!) + Me.labelApplicationName.Appearance.ForeColor = System.Drawing.SystemColors.Window + Me.labelApplicationName.Appearance.Options.UseFont = True + Me.labelApplicationName.Appearance.Options.UseForeColor = True + Me.labelApplicationName.Location = New System.Drawing.Point(23, 84) + Me.labelApplicationName.Name = "labelApplicationName" + Me.labelApplicationName.Size = New System.Drawing.Size(430, 47) + Me.labelApplicationName.TabIndex = 0 + Me.labelApplicationName.Text = "Nuvolar Accounting System" + ' + 'labelStatus + ' + Me.labelStatus.Location = New System.Drawing.Point(67, 241) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.Size = New System.Drawing.Size(50, 13) + Me.labelStatus.TabIndex = 18 + Me.labelStatus.Text = "Starting..." + ' + 'progressBarControl + ' + Me.progressBarControl.EditValue = 0 + Me.progressBarControl.Location = New System.Drawing.Point(66, 259) + Me.progressBarControl.Name = "progressBarControl" + Me.progressBarControl.Properties.Appearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(195, Byte), Integer), CType(CType(194, Byte), Integer), CType(CType(194, Byte), Integer)) + Me.progressBarControl.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple + Me.progressBarControl.Properties.EndColor = System.Drawing.Color.FromArgb(CType(CType(197, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer)) + Me.progressBarControl.Properties.LookAndFeel.SkinName = "Visual Studio 2013 Blue" + Me.progressBarControl.Properties.LookAndFeel.Style = DevExpress.LookAndFeel.LookAndFeelStyle.UltraFlat + Me.progressBarControl.Properties.LookAndFeel.UseDefaultLookAndFeel = False + Me.progressBarControl.Properties.ProgressViewStyle = DevExpress.XtraEditors.Controls.ProgressViewStyle.Solid + Me.progressBarControl.Properties.StartColor = System.Drawing.Color.FromArgb(CType(CType(197, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer)) + Me.progressBarControl.Size = New System.Drawing.Size(350, 16) + Me.progressBarControl.TabIndex = 17 + ' + 'XafSplashScreen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(492, 343) + Me.Controls.Add(Me.labelStatus) + Me.Controls.Add(Me.progressBarControl) + Me.Controls.Add(Me.pcApplicationName) + Me.Controls.Add(Me.pictureEdit1) + Me.Controls.Add(Me.labelCopyright) + Me.Name = "XafSplashScreen" + Me.Padding = New System.Windows.Forms.Padding(1) + Me.Text = "XafSplashScreen" + CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pcApplicationName, System.ComponentModel.ISupportInitialize).EndInit() + Me.pcApplicationName.ResumeLayout(False) + Me.pcApplicationName.PerformLayout() + CType(Me.progressBarControl.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Private WithEvents labelCopyright As DevExpress.XtraEditors.LabelControl + Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit + Private WithEvents pcApplicationName As DevExpress.XtraEditors.PanelControl + Private WithEvents labelSubtitle As DevExpress.XtraEditors.LabelControl + Private WithEvents labelApplicationName As DevExpress.XtraEditors.LabelControl + Private WithEvents labelStatus As DevExpress.XtraEditors.LabelControl + Private WithEvents progressBarControl As DevExpress.XtraEditors.MarqueeProgressBarControl +End Class diff --git a/Nuvolar.WIN.Debranet.GL/XafSplashScreen.resx b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.resx new file mode 100644 index 0000000..3c5dfde --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.resx @@ -0,0 +1,174 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAAMwAAAAiCAYAAAATbDYAAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAr1SURBVHhe7Zu9ix3JFcXnH1hQqkzROhUYnK7MOliE + gwGjYDMp2UiBwIEyr4wigxByOJkMwtiZcGKDAiuxwNkgDA4tzIKU7RoEu+v9eD6/oqqpun2qu9+b98Zv + tO/Cme6699ZHd9/Tdav6zdGXv778gfB3YXVOoK8PVqvV0QE/LPz0ww9/LPw145Os+ySX/yQU+8e5/Evh + 9/lY6p0IdTvYmnZjudM/9X6ez6/l4+Xi2wOEeV0F83nhtRvMAe82qgCFEBxLAKN/IEAOjp8K6CFHsXOE + DJercjy+L7xXlYd+Qv/pmHUQEzyox9oDhHEBvXPEgRzw7qMEagZv+BTQ2VaCu55NCiBJOYdMdTuxzHkp + 0y7Hj03/n2ZdmeESqeZwIQhz/fr1S8K1Ho4umOj6LwnX1sSVXP3CioKyBOx7uexmmOJDmSNv/xL46KhT + fAj2ug5HNwO9TxxV5USSWlfH2xTOhTBf/fYnq69/94vVN3/51eqb5w9W3/3rb+rbD6iGyHBVWC3EqfBI + 2PvA0j2BAPZeTeBern5hRYGZCJKLSVQuM0pZw5TZpKxjIEkhTO3HeTmWNQhgxil6kGYX4PRFV3zmsHXC + fPWbH63++8dbAzG+//I/6seKHVANBT8ziCPHHCDOpfxM9k50n36QhPl/iYutTbEVwnx98rM0e3z3+h9q + c7HYAdVQ0G9KGMCMs5ek0T07EOYcxcXWEuie3+S+Z1xBtzFhSLMgyfef/1vtbCR2kDUU8I4wz4V7FZ4K + 0afgeb5neyW6f44wr4TnE7iZqx9kTXGxNQfd78fCKfddeCR8IVxbmzCsRb7955/V5nJ5+fLl6smTJ6v7 + 9++vbt26lYJZYgdaQ36OMKM3rXRXhB5x9i7QdB8dYQ4zyI7ExdYU9CyuChCkEOWpcEc4XUwYiJIX67Py + 9u3b1bNnzxJBTAAnSOxga8hvEWGKyOZI8yqbJ0V+ZSdu52mc7ufeE0bjYYxn2kBRfXYDr+ZiV7If/W10 + 73Pdbj8utvCnXsdGCsaszhHCgCtCMsYH12AdosyRpIZkNNAI+a1LGIL+i8q34Di7NCI9/qR1r7JfAW08 + FpqAUflYICWsYccj/c3gB9IWuO7rxoSRH6lCTNdG1ycdb8Tol2ZbjkH/KOuPBdKQelykit2xyVa3k1Jg + HSEA5e61ZZ/yBq/7o8w1TpJHdoKZsdV1AeNv+ivxJD3Xx2wR69AOfaZ1io48n3TdAv7l/BXGWDmB3a5v + T/+g+tPy5s2blG7duHGjDrhZSBpyOMhvLcIgshPos3WkY8vakasG9uHNpXNSv5FPNjciPQSJvikIdH/P + QhhXt5lFVSYYXSCW/nn4tY3gJmBqXQSBOAri4ANKOlPrmmtTmcCNPhHYR7OGdFxbJHVE80yIJenmrg8M + M47OuScQpaxhsB+7C07bwhPbwUkgysOHD2NALIakIYeD/DYhDLNArNMs/lVeQpYC/IZA0Tm7b9Fn9GCN + z9Ns4p5vTBhEvu4tOdTnPNjAsJbTebTPBW/B49zEIMbHvfXrsUGoaO+BthqSquyuPWK414jKBL3za1DH + nsoQs8zSkC2RqbngJbMK65OTk5MYDGtD0pDDQX6bEMbNApEwMeghBSkU/ZGi1TYw9KnzO8EG7mRzEpUd + aeuAtbOEkNIah1w1icrk0zHIKfOQ3ewS6/OGr+01yjh6JGp+WWHsDjVhIqHoh4Dmnjii13XTOiKA2Ybr + AcwEtN88j6yr69R9psW88NTFYMRwwXxLmfuOwhpl3dSrB4kdUA35rU0YxNQZAkbnECPamxlC5UiaYYrX + +RJC8uE0+gxvSt1vR5hJ5KqDSGeDS3Bv02YtpnKv/yHQdN5LfZpZxtgLqEswEshl7RbHRuA2917lkv4U + DOmmzt21uTQxzkqxzs0Ya9JdijqH1BhkmUrBSL/u3r0bA+BMkNgB1ZDfLggTd9JGaYZ0jhT1Wma0G5dN + SVSOM1hMEc5MGER69+aMutH9ks7135Aekc690Zv1gbGD5nqLoA9+LsVzKVsivI6TqWZPTJ1Fs4nDEbtg + U2R58eLF1maVGhI7oBry2yQlY+cr1qkJE9cuzAb0E1H7gGEnSudulkp2HV3/zUPVA9sWYebagTzuDezq + NWlMEendLFPPltEG7Ha08YMAjCUi+k3tLgLWGKN1ZBHZXHrJdY1mmjnwpyvbWKv0IBkNJkJ+LnDnCOPq + JMLo6IJ5KYZ+de7aSVuzOrr1S0wR3IOfnTmdqN7UIrhZbxRBH/ymfGOK1Pgam/3uJf06i/2I4WWlc0fg + AtZeI+JI52amAl4qxy7+HPgzEhb2207BIiSjwUTIbxPCuEV5CWbX3lI0/aoc07LTrI/rF5d2bJMwvUDs + frCVbR3CuGCbIswotUOk780OS1BvmJAmxrSzRlrQZ/ckxJJ0c9vKj2P8OfCnEchy+/bt+oHvBJLRYCLk + twlh3PePki6dhTDNx0GVXVrGzBPXL009RA9nm4RxM0CBze+lv2iEacamMhsSUwSANENaWOJJOjYhXHpW + MJui8WeQ8yILkIwGEyG/tQgjW48QQ0pkbL01TESTVlEWYlv41WX7UVMPZiuEUZ25NGedNcyI2Ij0pDnR + dwhGY+sRxm0g9NYwEaNrQKSnTdpwJBjuZx1T0kM2dtvcLHVa+zrwJ8l5kgVIRoOJkF8MQGADS3oCOP7E + BTQpkcpx0T9KmZaK6sa0LM5utm09GIIgPqxNCBOD2QXBqF3pXP8pba1FOvdNZ26XzBIGkS22tfG9r0Xt + 8OKIbQ/jcLElu902j34R/Dl3soAygCnIbxFhpMPPfYGHHM2OjcrupzP27TonqufSshq9t/aZCSN/+71F + cKRp7oHKrn8CLm5OuHQsbpFH+xRh3AZFd3drHVE78eUxSRggn9H1RZ8I/ux8ge9QBjAF+TnC8BYv/wsD + HFEKRjm8dK5NAJGw8Q2Gn85wzgaC/aaAyDa162bTMUQPxgUsgc5D72GYAXTu3vwpQHR0RFr6HYgxUB97 + b40Q1xPRPkWYXr+sw7BBeGYLztPPUnLVJNnOdSf/rEaP76jNbMbOTML18BE1faDUkT7iy+VVjMGII344 + aR72zhEH4iC/XnAvgV3wIrK5L/FTsAtiRDb3LwWgm27owfQCZwpD8Oh8bqvXzTK1fZP+wYgMS3xqkX3J + b8FqDDOQzt3LoId0vTrycnF2h3suDmsc7eKj5BLEgTjIbxPCsI7pBngR+fQC3cF+1ENk66Vl3TRPD2Zj + wujoFvrxTewCq/6Jies/zlgRvKXdBkL0myMMAcyMGev1UG8pz20NF9Szy1KSpetzcViDB+4e9s4RB+Ig + v6WEYa1CSrXWWkT+BLvbKKiBvduubC4t66ZjiB7MWQjjgm30gpDOzTKJ+Dq6/gms3kdBArW3UxV9JwlT + RH6kUW6MNbAP917nc9vC+DeZhcpc61Q/JcVb9lsy87DPBXEgPci3rCcKWFcQ6KVsf4axjqgN+qDNem20 + uG35xTFOLmR5OAIPch2kNo3ezqbSk+9H37qNGDglhcHGYhhAosl7kP1rrLWIx1+gn9InoJ1uv7LFOhCp + 2y9xJDv3gzVM00+MtznwsD8TbFDvEJ+5wfRwkO0KgSJYwryL4mJqU0CYj4TXVTDvGvT1kRtMDwfZrkCO + QJYDYRbCKvcNB9muQI5AlgNhFsIq9w0H2a5AjkCWA2EWwir3DQfZrkCOQJYDYRbCKvcNB9muiBzsMtW/ + IgBr7W5dJHExtRlWR/8DNPlERCm3k9wAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Nuvolar.WIN.Debranet.GL/XafSplashScreen.vb b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.vb new file mode 100644 index 0000000..7ab9b61 --- /dev/null +++ b/Nuvolar.WIN.Debranet.GL/XafSplashScreen.vb @@ -0,0 +1,48 @@ +Imports System.IO +Imports System.Reflection +Imports DevExpress.ExpressApp.Win.Utils +Imports DevExpress.Skins +Imports DevExpress.Utils.Drawing + +Public Class XafSplashScreen + Sub New() + InitializeComponent() + LoadBlankLogo() + Me.labelCopyright.Text = "Copyright © 2008-" & DateTime.Now.Year.ToString() + UpdateLabelsPosition() + End Sub + Private Sub LoadBlankLogo() + Dim _assembly As Assembly = Assembly.GetExecutingAssembly() + Dim blankLogoResourceName As String = _assembly.GetName().Name & ".Logo.svg" + Dim svgStream As Stream = _assembly.GetManifestResourceStream(blankLogoResourceName) + If svgStream IsNot Nothing Then + svgStream.Position = 0 + 'peLogo.SvgImage = SvgImage.FromStream(svgStream) + End If + End Sub + Protected Overrides Sub DrawContent(graphicsCache As GraphicsCache, skin As Skin) + Dim bounds As Rectangle = ClientRectangle + bounds.Width = (bounds.Width - 1) + bounds.Height = (bounds.Height - 1) + graphicsCache.Graphics.DrawRectangle(graphicsCache.GetPen(Color.FromArgb(255, 87, 87, 87), 1), bounds) + End Sub + Protected Sub UpdateLabelsPosition() + labelApplicationName.CalcBestSize() + Dim newLeft As Integer = CType((Width - labelApplicationName.Width) / 2, Integer) + labelApplicationName.Location = New Point(newLeft, labelApplicationName.Top) + labelSubtitle.CalcBestSize() + newLeft = CType((Width - labelSubtitle.Width) / 2, Integer) + Me.labelSubtitle.Location = New Point(newLeft, labelSubtitle.Top) + + End Sub + Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object) + MyBase.ProcessCommand(cmd, arg) + If (CType(cmd, UpdateSplashCommand) = UpdateSplashCommand.Description) Then + labelStatus.Text = CType(arg, String) + End If + End Sub + + Public Enum SplashScreenCommand + SomeCommandId + End Enum +End Class diff --git a/Nuvolar.WIN.Debranet.GL/app.config b/Nuvolar.WIN.Debranet.GL/app.config index 0b7bad1..2ff825b 100644 --- a/Nuvolar.WIN.Debranet.GL/app.config +++ b/Nuvolar.WIN.Debranet.GL/app.config @@ -12,6 +12,7 @@ +