diff options
| author | ShiftOS <[email protected]> | 2014-10-11 14:14:20 -0400 |
|---|---|---|
| committer | Andrew Lee <[email protected]> | 2014-10-11 14:14:20 -0400 |
| commit | cb58c22d232766d955d6c9d37e168e505b5faa9d (patch) | |
| tree | 6dc22833fd0071fbe64b688e2e3f295450300301 /ShiftOS/coherencemode.vb | |
| download | shiftos-original.tar.gz shiftos-original.tar.bz2 shiftos-original.zip | |
Initoriginal
Diffstat (limited to 'ShiftOS/coherencemode.vb')
| -rw-r--r-- | ShiftOS/coherencemode.vb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/ShiftOS/coherencemode.vb b/ShiftOS/coherencemode.vb new file mode 100644 index 0000000..9308894 --- /dev/null +++ b/ShiftOS/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
|