From 804f2b7f7e952c73967511cfd397e33b71fff5ad Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 22 Nov 2022 05:42:55 +0700 Subject: not-quite-finish-but-functional DuWM --- .../DualWindowManager/DuWM_WindowContainer.vb | 27 ++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb') diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb index f614a70..26b9d04 100644 --- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb +++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb @@ -1,18 +1,22 @@ Public Class DuWM_WindowContainer - Public ChildForm As Form + Public ChildForm As New Form Public DuWM_PID As Integer Private Sub DuWM_WindowContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load DuWM_WMCheck.Start() DuWM_ChildSize.Start() + DuWM_LayoutCheck.Start() End Sub Private Sub DuWM_WMCheck_Tick(sender As Object, e As EventArgs) Handles DuWM_WMCheck.Tick If ChildForm.Visible = False Then Strings.ProcessID(DuWM_PID) = 0 - Close() End If If Strings.ProcessID(DuWM_PID) = 0 Then + 'MsgBox(Convert.ToString(ChildForm)) + DuWM_CurrentProcess = DuWM_CurrentProcess - 1 + DuWM_ChangeLayout = True + DuWM_WMCheck.Stop() Close() End If End Sub @@ -20,4 +24,23 @@ Private Sub ChildSize_Tick(sender As Object, e As EventArgs) Handles DuWM_ChildSize.Tick ChildForm.Size = DuWM_ContainerPanel.Size End Sub + + Private Sub DuWM_LayoutCheck_Tick(sender As Object, e As EventArgs) Handles DuWM_LayoutCheck.Tick + If DuWM_ChangeLayout = True Then + Select Case DuWM_CurrentProcess + Case 1 + Height = Desktop.Height - 20 + Width = Desktop.Width - 20 + Location = New Point(10, 10) + Case 2 + Select Case DuWM_PID + Case 0 + Height = Desktop.Height - 20 + Width = (Desktop.Width / 2) - 20 + Location = New Point(10, 10) + End Select + End Select + DuWM_ChangeLayout = False + End If + End Sub End Class \ No newline at end of file -- cgit v1.2.3