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

EgtCAM5 :

Browse Source 
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
2016-07-13 11:25:56 +00:00
parent d436516bba
commit 6a62deb28b
4 changed files with 97 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+6 -1
View File
@@ -411,6 +411,11 @@ Namespace EgtCAM5
End Sub
Sub RegisterDrawPanelCommands()
Application.Msn.Register(Application.GETCURRLAYER, Sub()
Dim CurrLayer As Integer = m_Controller.GetCurrLayer()
Application.Msn.NotifyColleagues(Application.SETCURRLAYER, CurrLayer)
End Sub)
Application.Msn.Register(Application.POINT, Sub()
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
m_Controller.ExecuteCommand(Controller.CMD.FRAME)
@@ -445,7 +450,7 @@ Namespace EgtCAM5
m_Controller.ExecuteCommand(Controller.CMD.ARCPVP)
End If
End Sub)
Application.Msn.Register(Application.POLYGON, Sub()
Application.Msn.Register(Application.POLYGON, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.POLYGON)
Else