Files
EgtDOORCreator/Assembly/AssemblyPageV.xaml.vb
Nicola Pievani ac5c8046e9 EgtDOORCreator 1.9l3 :
- miglioramento gestione aggiornamento file,
- miglioramento gestione aggiornamento direttori,
- correzione gestione direttorio progetti.
2019-01-11 17:15:25 +00:00

35 lines
2.0 KiB
VB.net

Public Class AssemblyPageV
Private DoorButton_Static_Background As SolidColorBrush = DirectCast(New BrushConverter().ConvertFrom("#FFD07606"), SolidColorBrush)
Private DoorButton_Static_Border As SolidColorBrush = DirectCast(New BrushConverter().ConvertFrom("#000000"), SolidColorBrush)
Private DoorButton_MouseOver_Background As SolidColorBrush = DirectCast(New BrushConverter().ConvertFrom("#3CD07606"), SolidColorBrush)
Private DoorButton_MouseOver_Border As SolidColorBrush = DirectCast(New BrushConverter().ConvertFrom("#FF3C7FB1"), SolidColorBrush)
Private Sub RightJamb_MouseEnter(sender As Object, e As Input.MouseEventArgs) Handles LeftRightJamb.MouseEnter, TopRightJamb.MouseEnter, RightRightJamb.MouseEnter
TopRightJamb.BorderBrush = DoorButton_MouseOver_Border
LeftRightJamb.BorderBrush = DoorButton_MouseOver_Border
RightRightJamb.BorderBrush = DoorButton_MouseOver_Border
End Sub
Private Sub RightJamb_MouseLeave(sender As Object, e As Input.MouseEventArgs) Handles LeftRightJamb.MouseLeave, TopRightJamb.MouseLeave, RightRightJamb.MouseLeave
TopRightJamb.BorderBrush = DoorButton_Static_Border
LeftRightJamb.BorderBrush = DoorButton_Static_Border
RightRightJamb.BorderBrush = DoorButton_Static_Border
End Sub
Private Sub LeftJamb_MouseEnter(sender As Object, e As Input.MouseEventArgs) Handles LeftLeftJamb.MouseEnter, TopLeftJamb.MouseEnter, RightLeftJamb.MouseEnter
If LeftJambChk.IsChecked Then
TopLeftJamb.BorderBrush = DoorButton_MouseOver_Border
LeftLeftJamb.BorderBrush = DoorButton_MouseOver_Border
RightLeftJamb.BorderBrush = DoorButton_MouseOver_Border
End If
End Sub
Private Sub LeftJamb_MouseLeave(sender As Object, e As Input.MouseEventArgs) Handles LeftLeftJamb.MouseLeave, TopLeftJamb.MouseLeave, RightLeftJamb.MouseLeave
TopLeftJamb.BorderBrush = DoorButton_Static_Border
LeftLeftJamb.BorderBrush = DoorButton_Static_Border
RightLeftJamb.BorderBrush = DoorButton_Static_Border
End Sub
End Class