TestEIn 1.5j6 :

- notevoli miglioramenti a disegno e gestione pezzi/layer.
This commit is contained in:
Dario Sassi
2014-10-30 08:53:46 +00:00
parent 15c69a9925
commit 9e22b7870e
24 changed files with 2156 additions and 580 deletions
+3 -3
View File
@@ -10,7 +10,7 @@ Public Class SelectMulti
ListBox1.BeginUpdate()
'Inserisco le entità nel mirino
Dim nId = EgtGetFirstObjInSelWin()
While nId <> GDB_ID_NULL
While nId <> GDB_ID.NULL
Dim sTitle As String = String.Empty
EgtGetTitle(nId, sTitle)
If EgtIsSelectedObj(nId) Then
@@ -22,10 +22,10 @@ Public Class SelectMulti
nId = EgtGetNextObjInSelWin()
End While
'Inserisco None per non selezionare alcunchè
Dim smNone As New SelMulItem("None", GDB_ID_NULL)
Dim smNone As New SelMulItem("None", GDB_ID.NULL)
ListBox1.Items.Add(smNone)
ListBox1.EndUpdate()
m_nCurrEnt = GDB_ID_NULL
m_nCurrEnt = GDB_ID.NULL
ListBox1.SelectedIndex = 0
End Sub