TestEIn :

- aggiornamenti.

Controller.vb

@@ -893,6 +893,10 @@ Public Class Controller
 
    Public Sub SetLastInteger(ByVal nVal As Integer)
       m_nLast = nVal
+      If m_nLastCmd = CMD.TEXTPLUS Then
+         ' aggiorno drag al cambio di font
+         ExecuteDrag()
+      End If
    End Sub
 
    Public Sub SetLastString(ByRef sVal As String)
@@ -901,6 +905,10 @@ Public Class Controller
 
    Public Sub SetLastBoolean(ByVal bVal As Boolean)
       m_bLast = bVal
+      If m_nLastCmd = CMD.TEXTPLUS Then
+         ' aggiorno drag al cambio di italic
+         ExecuteDrag()
+      End If
    End Sub
 
    Public Sub SetPointFromSelection(ByVal nId As Integer, ByVal PtP As Point3d, ByVal nAux As Integer)

EgtInterface.vb

@@ -3975,6 +3975,20 @@ Public Function EgtRelocateGlob(nId As Integer, nRefId As Integer, Optional nSon
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtChangeId"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtChangeId_32(nId As Integer, nNewId As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtChangeId"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtChangeId_64(nId As Integer, nNewId As Integer) As Boolean
+End Function
+Public Function EgtChangeId(nId As Integer, nNewId As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtChangeId_32(nId, nNewId)
+   Else
+      Return EgtChangeId_64(nId, nNewId)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtErase"), SuppressUnmanagedCodeSecurity()>
 Private Function EgtErase_32(nId As Integer) As Boolean
 End Function

GenInterface.vb

@@ -163,22 +163,30 @@ Public Enum SW As Integer
    SHOWMAXIMIZED = 3
    RESTORE = 9
 End Enum
+<DllImport("user32.dll", SetLastError:=True)> _
+Public Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
+End Function
+<DllImport("user32.dll")> _
+Public Function SetWindowLong(hWnd As IntPtr, nIndex As Integer, dwNewLong As Integer) As Integer
+End Function
+Public Const GWL_STYLE As Integer = -16
+Public Const WS_SYSMENU As Integer = &H80000
 
 '-------------------------------- File Path ------------------------------------------------------
-    ' Truncates a path to fit within a certain number of characters by replacing path components with ellipses.
-    ' pszOut = The address of the string that has been altered.
-    ' pszSrc = A pointer to a null-terminated string of length MAX_PATH that contains the path to be altered.
-    ' cchMax = The maximum number of characters to be contained in the new string, including the terminating null. 
-    ' reserved = Reserved
-    ' Returns TRUE if successful, or FALSE otherwise.
-    <DllImport("shlwapi.dll", EntryPoint:="PathCompactPathExW", SetLastError:=True, CharSet:=CharSet.Unicode)>
-    Public Function PathCompactPathEx(
-                      <MarshalAs(UnmanagedType.LPTStr)> pszOut As System.Text.StringBuilder,
-                      <MarshalAs(UnmanagedType.LPTStr)> pszSrc As String,
-                      cchMax As UInteger,
-                      reserved As Integer
-                      ) As <MarshalAs(UnmanagedType.Bool)> Boolean
-    End Function
+' Truncates a path to fit within a certain number of characters by replacing path components with ellipses.
+' pszOut = The address of the string that has been altered.
+' pszSrc = A pointer to a null-terminated string of length MAX_PATH that contains the path to be altered.
+' cchMax = The maximum number of characters to be contained in the new string, including the terminating null. 
+' reserved = Reserved
+' Returns TRUE if successful, or FALSE otherwise.
+<DllImport("shlwapi.dll", EntryPoint:="PathCompactPathExW", SetLastError:=True, CharSet:=CharSet.Unicode)>
+Public Function PathCompactPathEx(
+                  <MarshalAs(UnmanagedType.LPTStr)> pszOut As System.Text.StringBuilder,
+                  <MarshalAs(UnmanagedType.LPTStr)> pszSrc As String,
+                  cchMax As UInteger,
+                  reserved As Integer
+                  ) As <MarshalAs(UnmanagedType.Bool)> Boolean
+End Function
 
 
 End Module