TestEIn 1.5j6 :

- notevoli miglioramenti a disegno e gestione pezzi/layer.
2014-10-30 08:53:46 +00:00
parent 15c69a9925
commit 9e22b7870e
24 changed files with 2156 additions and 580 deletions
@@ -37,7 +37,7 @@ End Function
 Public Shared Function GetPrivateProfileColor(
                             ByVal lpAppName As String,
                             ByVal lpKeyName As String,
-                             ByRef Col As Color,
+                             ByRef Col As Color3d,
                             ByVal lpFileName As String) As Boolean
   Dim sVal As String = String.Empty
   GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
@@ -58,7 +58,7 @@ Public Shared Function GetPrivateProfileZoomWin(
                             ByVal lpAppName As String,
                             ByVal lpKeyName As String,
                             ByRef bOutline As Boolean,
-                             ByRef Col As Color,
+                             ByRef Col As Color3d,
                             ByVal lpFileName As String) As Boolean
   Dim sVal As String = String.Empty
   GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)