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 @@
+