TestEIn 1.6i7 :

- controllo esistenza direttorio e file nel dialogo dei componenti
- corretta visualizzazione coordinate mouse con grid perp. alla vista.
This commit is contained in:
Dario Sassi
2015-09-16 07:37:28 +00:00
parent 246d9a1cec
commit 68d889e080
3 changed files with 70 additions and 28 deletions
+8
View File
@@ -85,11 +85,19 @@ Public Class Component
GetPrivateProfileString(S_COMPO, K_COMPODIR, "", m_sCompoDir, Form1.GetIniFile())
' recupero i file lua del direttorio e li inserisco nella lista dei componenti
Dim DirInfo As New IO.DirectoryInfo(m_sCompoDir)
If Not DirInfo.Exists Then
EgtOutLog("Error : CompoDir does not exist")
Return
End If
Dim vFi As IO.FileInfo() = DirInfo.GetFiles("*.lua")
Dim Fi As IO.FileInfo
For Each Fi In vFi
ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(Fi.Name))
Next
If ListBox1.Items.Count = 0 Then
EgtOutLog("Error : CompoDir empty (missing lua files)")
Return
End If
' Imposto selezione sul primo -> viene caricato il relativo componente
ListBox1.SelectedIndex = 0
End Sub