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

-gestione interfaccia con griglia dinamica

Browse Source
This commit is contained in:
Demetrio Cassarino
2024-04-04 09:10:53 +02:00
parent 6fc4e0d669
commit 8cc6324d64
12 changed files with 55 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Project/ProjectVM.vb
+33 -22
View File
@@ -101,26 +101,41 @@ Public Class ProjectVM
Dim m_SceneContentControlV As New SceneContentControlV
' creo colonne griglia dinamica
Dim gridCol1 As ColumnDefinition = New ColumnDefinition()
'gridCol1.Width = New GridLength(100)
Dim gridCol2 As ColumnDefinition = New ColumnDefinition()
Dim gridCol3 As ColumnDefinition = New ColumnDefinition()
Dim gridCol1 As ColumnDefinition = New ColumnDefinition With {
.Width = New GridLength(1, GridUnitType.Auto)
}
Dim gridCol2 As ColumnDefinition = New ColumnDefinition With {
.Width = New GridLength(1, GridUnitType.Star)
}
Dim gridCol3 As ColumnDefinition = New ColumnDefinition With {
.Width = New GridLength(1, GridUnitType.Auto)
}
' aggiungo le colonne alla griglia
m_DynamicGrid.ColumnDefinitions.Add(gridCol1)
m_DynamicGrid.ColumnDefinitions.Add(gridCol2)
m_DynamicGrid.ColumnDefinitions.Add(gridCol3)
' creo righe griglia dinamica
Dim gridRow1 As RowDefinition = New RowDefinition()
gridRow1.Height = New GridLength(50, GridUnitType.Auto)
Dim gridRow2 As RowDefinition = New RowDefinition()
Dim gridRow3 As RowDefinition = New RowDefinition()
Dim gridRow1 As RowDefinition = New RowDefinition With {
.Height = New GridLength(1, GridUnitType.Auto)
}
Dim gridRow2 As RowDefinition = New RowDefinition With {
.Height = New GridLength(1, GridUnitType.Star)
}
Dim gridRow3 As RowDefinition = New RowDefinition With {
.Height = New GridLength(1, GridUnitType.Auto)
}
' aggiungo righe alla griglia
m_DynamicGrid.RowDefinitions.Add(gridRow1)
m_DynamicGrid.RowDefinitions.Add(gridRow2)
m_DynamicGrid.RowDefinitions.Add(gridRow3)
' creo gridsplitter
Dim gridSplitter As GridSplitter = New GridSplitter With {
.Width = 20,
.HorizontalAlignment = HorizontalAlignment.Right,
.VerticalAlignment = VerticalAlignment.Stretch
}
' aggiungo TopTrayV
Grid.SetRow(m_TopTrayV, 0)
@@ -129,31 +144,25 @@ Public Class ProjectVM
' aggiungo LeftTrayV
Grid.SetRow(m_LeftTrayV, 1)
Grid.SetColumn(m_LeftTrayV, 0)
'Grid.SetRowSpan(m_LeftTrayV, 2)
Grid.SetRowSpan(m_LeftTrayV, 2)
' aggiungo RightTrayV
Grid.SetRow(m_RightTrayV, 1)
Grid.SetColumn(m_RightTrayV, 2)
Grid.SetRowSpan(m_RightTrayV, 2)
' aggiungo RightTrayV
'aggiungo gridSplitter
Grid.SetRow(gridSplitter, 1)
Grid.SetColumn(gridSplitter, 1)
' aggiungo BottomTrayV
Grid.SetRow(m_BottomTrayV, 2)
Grid.SetColumnSpan(m_TopTrayV, 3)
Grid.SetColumn(m_BottomTrayV, 1)
' aggiungo Scena
Grid.SetRow(m_SceneContentControlV, 1)
Grid.SetColumn(m_SceneContentControlV, 1)
'' aggiungo TopTrayV alla griglia
'm_DynamicGrid.Children.Add(m_TopTrayV)
'' aggiungo LeftTrayV alla griglia
'm_DynamicGrid.Children.Add(m_LeftTrayV)
'' aggiungo RightTrayV alla griglia
'm_DynamicGrid.Children.Add(m_RightTrayV)
'' aggiungo BottomTrayV alla griglia
'm_DynamicGrid.Children.Add(m_BottomTrayV)
'' aggiungo SceneContentControlV alla griglia
'm_DynamicGrid.Children.Add(m_SceneContentControlV)
' aggiungo componenti interfaccia
Dim bPlugin As Boolean = False
Dim PluginDirNameList() As String = {}
@@ -206,6 +215,8 @@ Public Class ProjectVM
m_DynamicGrid.Children.Add(m_TopTrayV)
' aggiungo LeftTrayV alla griglia
m_DynamicGrid.Children.Add(m_LeftTrayV)
' aggiungo gridSplitter alla griglia
m_DynamicGrid.Children.Add(gridSplitter)
' aggiungo RightTrayV alla griglia
m_DynamicGrid.Children.Add(m_RightTrayV)
' aggiungo BottomTrayV alla griglia