From 596376fd0c1994f8e9374a27af41e4e266e0958d Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Tue, 6 Sep 2016 08:15:17 +0000
Subject: [PATCH] TestEIn : - aggiornamenti.

---
 Controller.vb   |  8 ++++++++
 EgtInterface.vb | 14 ++++++++++++++
 GenInterface.vb | 36 ++++++++++++++++++++++--------------
 3 files changed, 44 insertions(+), 14 deletions(-)

diff --git a/Controller.vb b/Controller.vb
index 9d91366..db62fbb 100644
--- a/Controller.vb
+++ b/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)
diff --git a/EgtInterface.vb b/EgtInterface.vb
index ad339e3..c5ad9f9 100644
--- a/EgtInterface.vb
+++ b/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
diff --git a/GenInterface.vb b/GenInterface.vb
index 215f916..4ee6cd5 100644
--- a/GenInterface.vb
+++ b/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