CanvasButton/aColorPicker.xojo_code at main · o3jvind/CanvasButton · GitHub

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
#tag Class
Protected Class aColorPicker
Inherits DesktopColorPicker
	#tag Event
		Sub Closed()
		  Me.WhatToChange = ""
		  MainWindow.ButtonModePopupMenu.SelectedRowIndex = 0
		End Sub
	#tag EndEvent

	#tag Event
		Sub ColorSelected(selectedColor As Color)
		  Var TheProperties() As Introspection.PropertyInfo = Introspection.GetType(MainWindow.PreviewCCBtn).GetProperties
		  Var Prop As introspection.PropertyInfo

		  Select Case Me.WhatToChange

		  Case "Background"

		    Var ColorProp As String = MainWindow.ButtonModePopupMenu.RowTagAt(MainWindow.ButtonModePopupMenu.SelectedRowIndex) + "Color"

		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = ColorProp Then //found the property to change
		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next

		  Case "Mask"

		    Var ColorProp As String = MainWindow.ButtonModePopupMenu.RowTagAt(MainWindow.ButtonModePopupMenu.SelectedRowIndex) + "MaskColor"

		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = ColorProp Then //found the property to change
		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next

		  Case "LightModeDisabledOverlayColor"
		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = "LightModeDisabledOverlayColor" Then
		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next


		  Case "DarkModeDisabledOverlayColor"
		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = "DarkModeDisabledOverlayColor" Then
		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next


		  Case "LightModeDisabledMaskColor"
		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = "LightModeDisabledMaskColor" Then
		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next


		  Case "DarkModeDisabledMaskColor"
		    For i As Integer = 0 to TheProperties().Count - 1

		      If TheProperties(i).Name = "DarkModeDisabledMaskColor" Then

		        prop = TheProperties(i)
		        prop.Value(MainWindow.PreviewCCBtn) = SelectedColor
		        MainWindow.PreviewCCBtn.ComposePic()
		      End if
		    Next

		  End Select
		End Sub
	#tag EndEvent


	#tag Property, Flags = &h0
		WhatToChange As String
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InitialValue=""
			Type="String"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InitialValue=""
			Type="String"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="HasAlpha"
			Visible=false
			Group="Behavior"
			InitialValue="True"
			Type="Boolean"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="WhatToChange"
			Visible=false
			Group="Behavior"
			InitialValue=""
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass