aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
diff options
context:
space:
mode:
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb12
1 files changed, 12 insertions, 0 deletions
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