From c5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 21 Nov 2022 10:43:53 +0700 Subject: Dual Window Manager development --- .../WindowManager/DualWindowManager/DuWM_Main.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager') 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) -- cgit v1.2.3