TestEIn 1.9c3 :

- aggiornamento per nuova versione.

EgtInterface.vb

@@ -6207,6 +6207,29 @@ Public Function EgtTextGetContent(nId As Integer, ByRef sText As String) As Bool
    Return bOk
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtTextGetFont"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtTextGetFont_32(nId As Integer, ByRef psFont As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtTextGetFont"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtTextGetFont_64(nId As Integer, ByRef psFont As IntPtr) As Boolean
+End Function
+Public Function EgtTextGetFont(nId As Integer, ByRef sFont As String) As Boolean
+   Dim psFont As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtTextGetFont_32(nId, psFont)
+   Else
+      bOk = EgtTextGetFont_64(nId, psFont)
+   End If
+   If bOk Then
+      sFont = Marshal.PtrToStringUni(psFont)
+      EgtFreeMemory(psFont)
+   Else
+      sFont = String.Empty
+   End If
+   Return bOk
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtPointToIdGlob"), SuppressUnmanagedCodeSecurity()>
 Private Function EgtPointToIdGlob_32(ByRef PtP As Point3d, nId As Integer) As Boolean
 End Function
@@ -9545,6 +9568,20 @@ End Function
       End If
    End Function
 
+   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetUiStatus"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtSimSetUiStatus_32(nUiStatus As Integer) As Boolean
+   End Function
+   <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetUiStatus"), SuppressUnmanagedCodeSecurity()>
+   Private Function EgtSimSetUiStatus_64(nUiStatus As Integer) As Boolean
+   End Function
+   Public Function EgtSimSetUiStatus(nUiStatus As Integer) As Boolean
+      If IntPtr.Size = 4 Then
+         Return EgtSimSetUiStatus_32(nUiStatus)
+      Else
+         Return EgtSimSetUiStatus_64(nUiStatus)
+      End If
+   End Function
+
    <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStop"), SuppressUnmanagedCodeSecurity()>
    Private Function EgtSimStop_32() As Boolean
    End Function

Form1.Designer.vb

@@ -2092,10 +2092,9 @@ Partial Class Form1
       '
       'tsStatusProgress
       '
-      Me.tsStatusProgress.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3)
       Me.tsStatusProgress.Name = "tsStatusProgress"
       Me.tsStatusProgress.Size = New System.Drawing.Size(72, 16)
-      Me.tsStatusProgress.Step = 5
+      Me.tsStatusProgress.Step = 1
       '
       'tsStatusStop
       '
@@ -2117,7 +2116,7 @@ Partial Class Form1
       Me.tsStatusOutput.Margin = New System.Windows.Forms.Padding(1, 3, 0, 2)
       Me.tsStatusOutput.MergeIndex = 1
       Me.tsStatusOutput.Name = "tsStatusOutput"
-      Me.tsStatusOutput.Size = New System.Drawing.Size(355, 17)
+      Me.tsStatusOutput.Size = New System.Drawing.Size(322, 17)
       Me.tsStatusOutput.Spring = True
       Me.tsStatusOutput.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
       '

Form1.resx

@@ -883,7 +883,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADS
-        DgAAAk1TRnQBSQFMAgEBEAEAAVABEQFQAREBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DgAAAk1TRnQBSQFMAgEBEAEAAWABEQFgAREBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAAVADAAEBAQABCAYAARQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -957,7 +957,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADW
-        CAAAAk1TRnQBSQFMAgEBAgEAAXABCAFwAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAYABCAGAAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.9.3.1")> 
-<Assembly: AssemblyFileVersion("1.9.3.1")> 
+<Assembly: AssemblyVersion("1.9.3.3")> 
+<Assembly: AssemblyFileVersion("1.9.3.3")>