Egalware/OmagCUT
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OmagCUT 1.9k1 :

Browse Source 
- modifiche a componenti per import DXF e nome su linea separata.
This commit is contained in:
Dario Sassi
2018-11-05 19:32:29 +00:00
parent 838e2b5285
commit 3541d88510
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DrawPageUC.xaml.vb
+8 -1
View File
@@ -513,6 +513,13 @@ Public Class DrawPageUC
m_CompoDimension.GetNameEdit(j).Visibility = Windows.Visibility.Visible
m_CompoDimension.GetValueEdit(j).Text = m_CVars(i - 1).ToString()
m_CompoDimension.GetValueEdit(j).Visibility = Windows.Visibility.Visible
If m_CVars(i - 1).m_nType = 5 Then
TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).Keyboard = EgtTextBox.KeyboardType.Alphanumeric
TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).KeyboardDimension = 600
Else
TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).Keyboard = EgtTextBox.KeyboardType.Calculator
TryCast(m_CompoDimension.GetValueEdit(j), EgtTextBox).KeyboardDimension = 300
End If
Next
m_bShowVar = False
Return True
@@ -625,7 +632,7 @@ Public Class DrawPageUC
If EgtGetType(nTextId) = GDB_TY.EXT_TEXT Then
Dim sText As String = String.Empty
EgtTextGetContent(nTextId, sText)
Dim sNewText = sName & " " & sText
Dim sNewText = sName & "<br/>" & sText
EgtModifyText(nTextId, sNewText)
Exit While
End If
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.10.3")>
<Assembly: AssemblyFileVersion("1.9.10.3")>
<Assembly: AssemblyVersion("1.9.11.1")>
<Assembly: AssemblyFileVersion("1.9.11.1")>