EgtCAM5 :

- gestione metacomando da Info in PrepareInputBox.
2025-11-09 22:56:01 +01:00
parent e965ceb26c
commit 575bcc02d0
1 changed files with 5 additions and 3 deletions
@@ -391,13 +391,15 @@ Public Class InputExpanderVM
 #Region "METHODS"

   Friend Sub PrepareInputBox(PrepareInputBoxParam As PrepareInputBoxParam)
-      Title = PrepareInputBoxParam.sTitle
+      ' Divido il titolo che può contenere comandi dopo il ';'
+      Dim vsSplitTitle As String() = PrepareInputBoxParam.sTitle.Split(";"c)
+      Title = vsSplitTitle(0)
      If PrepareInputBoxParam.sLabel <> "" Then
         TextBlock = PrepareInputBoxParam.sLabel
         TextBox = ""
         TextVisibility = Visibility.Visible
-         ' Controllo se il titolo è uguale a INFO  !!! DA CAMBIARE !!!
-         If Title = "INFO" Then
+         ' Se presente il comando "Sic=1"
+         If vsSplitTitle.Count() > 1 AndAlso vsSplitTitle(1) = "Sic=1" Then
            ' Metto tmpbShow a false
            m_bTempShow = False
            ' Rendo visibile il pulsante che mostra la lista delle info