diff options
| author | EverythingWindows <[email protected]> | 2022-11-21 10:43:53 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-21 10:43:53 +0700 |
| commit | c5b2c3e370cf17a4b4ee3d5a4928e3663ab72a1d (patch) | |
| tree | d8163ca4462d33f061335973d19be2ddabbc0c8c /ShiftOS-TheRevival/MainForms/WindowManager | |
| parent | 3f4edf1b79ee4ee5a73251930af641bcd0db225e (diff) | |
| download | shiftos-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')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb | 17 |
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) |
