From a043f16287f3805bb208f1816a42ecf1d2d8d1d7 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 21 Nov 2022 13:56:13 +0700 Subject: rough working DuWM --- .../WindowManager/DualWindowManager/DuWM_WindowContainer.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (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 b845522..f614a70 100644 --- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb +++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_WindowContainer.vb @@ -3,12 +3,21 @@ 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() 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 Close() End If End Sub + + Private Sub ChildSize_Tick(sender As Object, e As EventArgs) Handles DuWM_ChildSize.Tick + ChildForm.Size = DuWM_ContainerPanel.Size + End Sub End Class \ No newline at end of file -- cgit v1.2.3