blob: 04f68e6dbb7e2cd389632159f2e549a55b617d87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
Public Class DuWM_Shifter
Private PrevHeight As Integer = Height
Private PrevWidth As Integer = Width
Private FeatureGap As Integer = 450 - 400
Private ChildFeature As String
Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
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
Private Sub DuWM_Shifter_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
Dim WidthRatio As Double = (Width / PrevWidth)
Dim HeightRatio As Double = (Height / PrevHeight)
lst_Features.Height = Height - FeatureGap
PrevHeight = Height
PrevWidth = Width
End Sub
Private Sub lst_Features_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_Features.SelectedIndexChanged
If lst_Features.SelectedItem = ChildFeature Then
Else
Select Case lst_Features.SelectedItem
Case "Desktop"
Dim Shifter_Desktop As New DuWM_Shifter_Desktop
Shifter_Desktop.Size = pnl_Content.Size
ChildFeature = "Desktop"
pnl_Content.Controls.Clear()
pnl_Content.Controls.Add(Shifter_Desktop)
Case "About"
ChildFeature = "About"
Dim Shifter_About As New DuWM_Shifter_About
Shifter_About.Size = pnl_Content.Size
pnl_Content.Controls.Clear()
pnl_Content.Controls.Add(Shifter_About)
End Select
End If
End Sub
Private Sub btn_Apply_Click(sender As Object, e As EventArgs) Handles Button1.Click
Apply()
End Sub
Private Sub Apply()
Select Case lst_Features.SelectedItem
Case "Desktop"
Desktop.BackColor = DuWM_Shifter_Configs.DesktopBackColor
GUISCustomizations.DesktopColor = Desktop.BackColor
End Select
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Apply()
Close()
End Sub
End Class
|
