- migliorata selzione dei part dal tree.

This commit is contained in:
Daniele Bariletti
2024-01-10 18:20:13 +01:00
parent fcb754d4ef
commit 96dd9bfa17
3 changed files with 25 additions and 19 deletions
+23 -17
View File
@@ -57,30 +57,36 @@ Public Class VeinMatchingTree
Private Sub OnTVSelectedItemChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Object))
If (Keyboard.Modifiers And ModifierKeys.Shift) > 0 Then
' prima deseleziono tutto
m_RefVeinMatchingWindow.DeselectAll()
'C#
'MyTextBlock.Text = ( (TreeViewItem) ( (TreeView) sender ).SelectedItem ).Header.ToString()
'Dim nPartId As Integer = CInt(Val(New Text.StringBuilder((From ch In tItem.Header.ToString.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
SelectInVeinMatchScene()
Dim tItem As TreeViewItem = CType(PartInScene.SelectedItem, TreeViewItem)
If IsNothing(tItem) Then Return
Dim nPartId As Integer = -1
Dim sNamePart As String = String.Empty
GetStackPanelTextFromTreeView(tItem, nPartId, sNamePart)
EgtSetCurrentContext(m_RefVeinMatchingWindow.VeinMatchingScene.GetCtx())
For Each PartSolidSel In m_RefVeinMatchingWindow.m_PartSolidList
If PartSolidSel.PartId = nPartId Then
PartSolidSel.SelectPart()
End If
Next
EgtDraw()
End If
End Sub
Public Sub changedItem() Handles PartInScene.MouseDoubleClick
Public Sub HighlightItem() Handles PartInScene.MouseDoubleClick
SelectInVeinMatchScene()
End Sub
Private Sub SelectInVeinMatchScene()
' prima deseleziono tutto
m_RefVeinMatchingWindow.DeselectAll()
'Dim nPartId As Integer = CInt(Val(New Text.StringBuilder((From ch In tItem.Header.ToString.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
Dim tItem As TreeViewItem = CType(PartInScene.SelectedItem, TreeViewItem)
If IsNothing(tItem) Then Return
Dim nPartId As Integer = -1
Dim sNamePart As String = String.Empty
GetStackPanelTextFromTreeView(tItem, nPartId, sNamePart)
EgtSetCurrentContext(m_RefVeinMatchingWindow.VeinMatchingScene.GetCtx())
For Each PartSolidSel In m_RefVeinMatchingWindow.m_PartSolidList
If PartSolidSel.PartId = nPartId Then
PartSolidSel.SelectPart()
End If
Next
EgtDraw()
End Sub
End Class
+1 -1
View File
@@ -176,7 +176,7 @@
Margin="1,5,1,0"
Content="🔫"
ToolTip="Attiva/Conferma Accoppiamento"/>
<Button Name="Btn8"
<Button Name="ResetPairBtn"
Style="{StaticResource VeinMatchWindow_Button}"
Margin="1,5,1,0"
Content="⚓"
+1 -1
View File
@@ -1369,7 +1369,7 @@ Public Class VeinMatchingWindow
EgtDraw()
End Sub
Private Sub Btn8_Click(sender As Object, e As RoutedEventArgs) Handles Btn8.Click
Private Sub ResetPairBtn_Click(sender As Object, e As RoutedEventArgs) Handles ResetPairBtn.Click
ResetPair()
End Sub