diff --git a/EgtInterface.vb b/EgtInterface.vb index a44d13c..0263114 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -6207,6 +6207,29 @@ Public Function EgtTextGetContent(nId As Integer, ByRef sText As String) As Bool Return bOk End Function + +Private Function EgtTextGetFont_32(nId As Integer, ByRef psFont As IntPtr) As Boolean +End Function + +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 + 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 + + Private Function EgtSimSetUiStatus_32(nUiStatus As Integer) As Boolean + End Function + + 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 + Private Function EgtSimStop_32() As Boolean End Function diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 0bef7ae..7f9c840 100644 --- a/Form1.Designer.vb +++ b/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 ' diff --git a/Form1.resx b/Form1.resx index 50be97e..32ab589 100644 --- a/Form1.resx +++ b/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 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index d7e936e..31b0a7e 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +