From 9754f495672581abd7098c39027b512525b5f9ab Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 24 Nov 2022 21:26:45 +0700 Subject: Fully functional and partially working Shifter --- .../MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb') diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb index 55f0e41..06b35c6 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb @@ -8,6 +8,18 @@ End Sub + Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem + e.DrawBackground() + If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then + e.Graphics.FillRectangle(Brushes.Black, e.Bounds) + End If + Dim sf As New StringFormat + Using b As New SolidBrush(e.ForeColor) + e.Graphics.DrawString(lst_Features.GetItemText(lst_Features.Items(e.Index)), e.Font, b, e.Bounds, sf) + End Using + e.DrawFocusRectangle() + End Sub + Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click Close() End Sub -- cgit v1.2.3