aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
diff options
context:
space:
mode:
authorEverythingWindows <[email protected]>2022-11-21 10:43:53 +0700
committerEverythingWindows <[email protected]>2022-11-21 10:43:53 +0700
commitc5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d (patch)
treed8163ca4462d33f061335973d19be2ddabbc0c8c /ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
parent3f4edf1b79ee4ee5a73251930af641bcd0db225e (diff)
downloadshiftos-therevival-old-c5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d.tar.gz
shiftos-therevival-old-c5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d.tar.bz2
shiftos-therevival-old-c5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d.zip
Dual Window Manager development
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb17
1 files changed, 16 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
index f3985a9..d74a3d8 100644
--- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
+++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
@@ -1,10 +1,15 @@
Module DuWM_Main
- Public IsDual As Boolean
+ Public OnlyOne As Boolean
+ Public FirstWindow As Form
+ Public SecondWindow As Form
Public Sub DuWM_FirstWindowSet(WindowName As Form)
+ WindowName.Show()
WindowName.Height = Desktop.Height - 20
WindowName.Width = (Desktop.Width / 2) - 20
WindowName.Location = New Point(10, 10)
+ FirstWindow = WindowName
+ Strings.ProcessID(0) = 1
End Sub
Public Sub DuWM_SecondWindowSet(WindowName As Form)
@@ -12,6 +17,16 @@
WindowName.Height = Desktop.Height - 20
WindowName.Width = (Desktop.Width / 2) - 20
WindowName.Location = New Point((Desktop.Width / 2) + 10, 10)
+ SecondWindow = WindowName
+ Strings.ProcessID(1) = 1
+ End Sub
+
+ Public Sub DuWM_SingleWindowSet(WindowName As Form)
+ WindowName.Show()
+ WindowName.Height = Desktop.Height - 20
+ WindowName.Width = Desktop.Width - 20
+ WindowName.Location = New Point(10, 10)
+ FirstWindow = WindowName
End Sub
'Public Sub DuWM_GenerateWindowSet(WindowName As Form, PID As Integer)