From 4caacce50cef00e4175d35f78f2089f1f6d69562 Mon Sep 17 00:00:00 2001 From: ShiftOS Date: Sat, 7 Mar 2015 22:31:31 +0200 Subject: ShiftOS ShiftOS is a game about evolving an experimental operating system called "ShiftOS" from a completely black and white text based command line based OS to a fully graphical operating system filled with advanced features and beautiful colours. The level of customization will exceed the levels of real world operating systems --- coherencemode.vb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 coherencemode.vb (limited to 'coherencemode.vb') diff --git a/coherencemode.vb b/coherencemode.vb new file mode 100644 index 0000000..5868bf1 --- /dev/null +++ b/coherencemode.vb @@ -0,0 +1,19 @@ +Module coherencemode + Dim fakeform As New template + + Public Sub setupwindows(ByVal programname As String) + Dim win As Window = Window.Find(programname) + win.Style(Window.Styles.Border) = False + win.Style(Window.Styles.Sizable) = False + win.Size = New Size(win.Size.Width + 1, win.Size.Height + 1) + win.Invalidate() + + fakeform.Show() + fakeform.Location = win.Location + fakeform.Size = win.Size + fakeform.lbtitletext.Text = win.Text + fakeform.resettitlebar() + fakeform.pgcontents.BackColor = Color.FromArgb(1, 0, 1) + End Sub + +End Module -- cgit v1.2.3