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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user