ZooFlow: Administration

This commit is contained in:
Jonathan Jenne
2021-04-01 12:07:40 +02:00
parent 20de7e5a11
commit a756c51f34
17 changed files with 2759 additions and 496 deletions

View File

@@ -120,7 +120,7 @@ Public Class frmFlowForm
' Now get the screen working area (without taskbar)
Dim WorkingRect As Rectangle =
Screen.GetWorkingArea(clientForm.ClientRectangle)
System.Windows.Forms.Screen.GetWorkingArea(clientForm.ClientRectangle)
' Left border
If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso
@@ -131,7 +131,7 @@ Public Class frmFlowForm
' Get screen bounds and taskbar height
' (when taskbar is horizontal)
Dim ScreenRect As Rectangle =
Screen.GetBounds(Screen.PrimaryScreen.Bounds)
System.Windows.Forms.Screen.GetBounds(System.Windows.Forms.Screen.PrimaryScreen.Bounds)
Dim TaskbarHeight As Integer =
ScreenRect.Height - WorkingRect.Height