Debranet Accounting release-hez

2020-08-31 14:09:02 +02:00
parent 1599b29e28
commit cfee10542b
9 changed files with 423 additions and 53 deletions
@@ -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