Icarus :

- correzione per caricamento file icrs con drag.
2023-04-11 15:24:16 +02:00
parent 10a0745449
commit 554b1a662e
1 changed files with 4 additions and 1 deletions
@@ -130,7 +130,10 @@ Public Class SecondaryWindowVM
      Dim sFile As String = Environment.GetCommandLineArgs(1)
      Dim sExt As String = IO.Path.GetExtension(sFile).ToLower()
      If String.IsNullOrWhiteSpace(sFile) OrElse String.IsNullOrWhiteSpace(sExt) Then Return False
-      Return OpenStdFile(sFile)
+      Dim bOk As Boolean = OpenStdFile(sFile)
+      m_Window_Opacity = 1
+      NotifyPropertyChanged(NameOf(Window_Opacity))
+      Return bOk
   End Function

   Friend Function OpenStdFile(sFile As String) As Boolean