diff options
| author | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
|---|---|---|
| committer | AShifter <[email protected]> | 2017-09-24 12:32:50 -0600 |
| commit | 9107510c4985ceb781640163bbb82ab6de2fa35e (patch) | |
| tree | c6a440b7ed182df8f8d1e5d0fdf55e28cf74055f /ShiftOS/ShiftOSTabs.vb | |
| parent | 2992686ec723fa4c854b6de27007a284b484a92e (diff) | |
| download | shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.gz shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.tar.bz2 shiftos-rewind-9107510c4985ceb781640163bbb82ab6de2fa35e.zip | |
Add proper WM and Remove old source
Added a proper, working WM. I also got rid of the old source as we could
just make a new repo for that.
Diffstat (limited to 'ShiftOS/ShiftOSTabs.vb')
| -rw-r--r-- | ShiftOS/ShiftOSTabs.vb | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/ShiftOS/ShiftOSTabs.vb b/ShiftOS/ShiftOSTabs.vb deleted file mode 100644 index 52df581..0000000 --- a/ShiftOS/ShiftOSTabs.vb +++ /dev/null @@ -1,40 +0,0 @@ -Public Class ShiftOSTabs - - Inherits TabControl - Sub New() - SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) - DoubleBuffered = True - SizeMode = TabSizeMode.Fixed - ItemSize = New Size(120, 30) - End Sub - - Protected Overrides Sub CreateHandle() - MyBase.CreateHandle() - End Sub - - Protected Overrides Sub OnPaint(e As PaintEventArgs) - Dim B As New Bitmap(Width, Height) - Dim G As Graphics = Graphics.FromImage(B) - - G.Clear(Color.Gainsboro) - - For i = 0 To TabCount - 1 - Dim TabRectangle As Rectangle = GetTabRect(i) - - If i = SelectedIndex Then - G.FillRectangle(Brushes.DarkGray, TabRectangle) - Else - G.FillRectangle(Brushes.LightGray, TabRectangle) - End If - - G.DrawString(TabPages(i).Text, Font, Brushes.White, TabRectangle, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}) - Next - - e.Graphics.DrawImage(B.Clone, 0, 0) - G.Dispose() : B.Dispose() - MyBase.OnPaint(e) - End Sub - -End Class - - |