Problem mit Farben in Menus bei Dark-Mode

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Problem mit Farben in Menus bei Dark-Mode

    Hallo Freunde,

    ich versuche schon seit Tagen, die Farben der Menus für den Darkmode in meiner App hinzufummeln.
    Hierzu kann der User in den App-Einstellungen u.a. für die Menus die gewünschte Schriftart, Schriftgrösse, Schriftfarbe und Hintergrundfarbe definieren.
    Leider bekomme ich das aber nicht so hin, wie gewünscht.

    Im ersten Bild seht Ihr eines der Kontextmenus meiner App. In jeder der Mains dieser Kontextmenus sieht es genau so aus, wie ich es haben will.
    Also die Symbole vor Color.control Hintergrundfarbe, die Menupunkte in der gewählten Schriftart, -grösse und -farbe vor der gewählten Hintergrundfarbe, die Separatoren in grau vor der gewählten Hintergrundfarbe.

    Leider bekomme ich das nur für die Mains der Kontextmenus hin.
    Obwohl ich die Eigenschaften der Menupunkte m.E. alle identisch zugewiesen habe, zeigen die Mainmenus der Anwendung und der integrierten Editoren sowie die Submenus aller Kontextmenus aber die Symbole vor der gewählten Menu-Hintergrundfarbe und den Separatoren fehlt die, den Menus zugewiesene Hintergrundfarbe.

    Kann mir da vielleicht jemand von Euch helfen, hier Ordnung reinzubringen und alle Menus identisch aussehen zu lassen?

    Wünsche einen schönen Rest-Sonntag @all
    Bilder

    • Menu-Problem1.jpg

      352,59 kB, 1.920×1.200, 63 mal angesehen

    • Menu-Problem0.jpg

      353,91 kB, 1.920×1.194, 62 mal angesehen

    Habs hinbekommen:

    VB.NET-Quellcode

    1. Private Sub Mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ' Special-Farb-Zuordnung
    3. mnu_MainForm.RenderMode = ToolStripRenderMode.Professional
    4. mnu_MainForm.Renderer = ProRender
    5. mnu_TextEditor.RenderMode = ToolStripRenderMode.Professional
    6. mnu_TextEditor.Renderer = ProRender
    7. mnu_PicEditor.RenderMode = ToolStripRenderMode.Professional
    8. mnu_PicEditor.Renderer = ProRender
    9. mnu_WebBrowser.RenderMode = ToolStripRenderMode.Professional
    10. mnu_WebBrowser.Renderer = ProRender
    11. ctm_Ordner.RenderMode = ToolStripRenderMode.Professional
    12. ctm_Ordner.Renderer = ProRender
    13. ctm_Objekte.RenderMode = ToolStripRenderMode.Professional
    14. ctm_Objekte.Renderer = ProRender
    15. ctm_TextEditor.RenderMode = ToolStripRenderMode.Professional
    16. ctm_TextEditor.Renderer = ProRender
    17. ctm_PicEditor.RenderMode = ToolStripRenderMode.Professional
    18. ctm_PicEditor.Renderer = ProRender
    19. ICE_OrdnerUndObjekteSuchen.ctm_OrdnerUndObjekteSuchen.RenderMode = ToolStripRenderMode.Professional
    20. ICE_OrdnerUndObjekteSuchen.ctm_OrdnerUndObjekteSuchen.Renderer = ProRender
    21. end sub


    und

    VB.NET-Quellcode

    1. Public Class MyProfessionalColorTable
    2. Inherits ProfessionalColorTable
    3. '
    4. ' Menus
    5. '
    7. Public Overrides ReadOnly Property MenuItemSelected() As System.Drawing.Color
    8. ' Menupunkt unter Mauszeiger
    9. Get
    10. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    11. Return Color.FromArgb(255, 120, 120, 255)
    12. Else
    13. Return Color.FromArgb(255, 180, 180, 255)
    14. End If
    15. End Get
    16. End Property
    17. Public Overrides ReadOnly Property MenuBorder() As System.Drawing.Color
    18. ' Menu Rahmen Popup geöffnet
    19. Get
    20. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    21. Return Color.FromArgb(255, 140, 140, 0)
    22. Else
    23. Return Color.FromArgb(255, 180, 180, 180)
    24. End If
    25. End Get
    26. End Property
    27. Public Overrides ReadOnly Property MenuItemBorder() As System.Drawing.Color
    28. ' Menu Rahmen MenuTitel Popup geschlossen
    29. Get
    30. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    31. Return Color.FromArgb(255, 140, 140, 0)
    32. Else
    33. Return Color.FromArgb(255, 180, 180, 180)
    34. End If
    35. End Get
    36. End Property
    37. Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As System.Drawing.Color
    38. ' MenuTitel Popup geöffnet Beginn
    39. Get
    40. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    41. Return Color.FromArgb(255, 40, 40, 255)
    42. Else
    43. Return Color.FromArgb(255, 120, 120, 255)
    44. End If
    45. End Get
    46. End Property
    48. Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As System.Drawing.Color
    49. ' MenuTitel Popup geöffnet Mitte
    50. Get
    51. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    52. Return Color.FromArgb(255, 120, 120, 255)
    53. Else
    54. Return Color.FromArgb(255, 180, 180, 255)
    55. End If
    56. End Get
    57. End Property
    59. Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As System.Drawing.Color
    60. ' MenuTitel Popup geöffnet Ende
    61. Get
    62. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    63. Return Color.FromArgb(255, 200, 200, 255)
    64. Else
    65. Return Color.FromArgb(255, 220, 220, 255)
    66. End If
    67. End Get
    68. End Property
    70. Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As System.Drawing.Color
    71. ' Ausgewählter MenueTitel-Name ungeöffnet
    72. Get
    73. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    74. Return Color.FromArgb(255, 40, 40, 255)
    75. Else
    76. Return Color.FromArgb(255, 120, 120, 255)
    77. End If
    78. End Get
    79. End Property
    81. Public Overrides ReadOnly Property MenuItemSelectedGradientend() As System.Drawing.Color
    82. ' Ausgewählter MenuTitel-Name ungeöffnet
    83. Get
    84. 'MyBase.MenuItemSelectedGradientBegin
    85. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    86. Return Color.FromArgb(255, 120, 120, 255)
    87. Else
    88. Return Color.FromArgb(255, 220, 220, 255)
    89. End If
    90. End Get
    91. End Property
    93. Public Overrides ReadOnly Property MenuStripGradientBegin() As System.Drawing.Color
    94. ' Menuleiste Beginn
    95. Get
    96. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    97. Return Color.FromArgb(255, 200, 200, 255)
    98. Else
    99. Return Color.FromArgb(255, 200, 200, 255)
    100. End If
    101. End Get
    102. End Property
    104. Public Overrides ReadOnly Property MenuStripGradientend() As System.Drawing.Color
    105. ' Menuleiste Ende
    106. Get
    107. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    108. Return Color.LightBlue 'Color.FromArgb(255, 140, 140, 140)
    109. Else
    110. Return Color.FromArgb(255, 180, 180, 180)
    111. End If
    112. End Get
    113. End Property
    115. Public Overrides ReadOnly Property SeparatorDark() As System.Drawing.Color
    116. ' Separator Dunkel
    117. Get
    118. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    119. Return Color.FromArgb(255, 80, 80, 80)
    120. Else
    121. Return Color.FromArgb(255, 180, 180, 180)
    122. End If
    123. End Get
    124. End Property
    125. Public Overrides ReadOnly Property SeparatorLight() As System.Drawing.Color
    126. ' Separator Hell
    127. Get
    128. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    129. Return Color.FromArgb(255, 250, 250, 250)
    130. Else
    131. Return Color.FromArgb(255, 200, 200, 200)
    132. End If
    133. End Get
    134. End Property
    136. '
    137. ' Image
    138. '
    140. Public Overrides ReadOnly Property ImageMarginGradientBegin() As System.Drawing.Color
    141. ' Symbol Farbübergang Beginn
    142. Get
    143. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    144. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    145. Else
    146. Return Color.FromArgb(255, 250, 250, 250)
    147. End If
    148. End Get
    149. End Property
    150. Public Overrides ReadOnly Property ImageMarginGradientmiddle() As System.Drawing.Color
    151. ' Symbol Farbübergang Mitte
    152. Get
    153. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    154. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    155. Else
    156. Return Color.FromArgb(255, 250, 250, 250)
    157. End If
    158. End Get
    159. End Property
    160. Public Overrides ReadOnly Property ImageMarginGradientend() As System.Drawing.Color
    161. ' Symbol Farbübergang Ende
    162. Get
    163. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    164. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    165. Else
    166. Return Color.FromArgb(255, 250, 250, 250)
    167. End If
    168. End Get
    169. End Property
    170. Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As System.Drawing.Color
    171. '
    172. Get
    173. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    174. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    175. Else
    176. Return Color.FromArgb(255, 180, 180, 180)
    177. End If
    178. End Get
    179. End Property
    180. Public Overrides ReadOnly Property ImageMarginRevealedGradientmiddle() As System.Drawing.Color
    181. '
    182. Get
    183. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    184. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    185. Else
    186. Return Color.FromArgb(255, 180, 180, 180)
    187. End If
    188. End Get
    189. End Property
    190. Public Overrides ReadOnly Property ImageMarginRevealedGradientend() As System.Drawing.Color
    191. '
    192. Get
    193. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    194. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe
    195. Else
    196. Return Color.FromArgb(255, 180, 180, 180)
    197. End If
    198. End Get
    199. End Property
    201. '
    202. ' Toolstrip
    203. '
    204. Public Overrides ReadOnly Property ToolStripBorder() As System.Drawing.Color
    205. '
    206. Get
    207. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    208. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    209. Else
    210. Return Color.FromArgb(255, 250, 250, 250)
    211. End If
    212. End Get
    213. End Property
    214. Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As System.Drawing.Color
    215. '
    216. Get
    217. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    218. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    219. Else
    220. Return Color.FromArgb(255, 250, 250, 250)
    221. End If
    222. End Get
    223. End Property
    225. Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As System.Drawing.Color
    226. '
    227. Get
    228. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    229. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    230. Else
    231. Return Color.FromArgb(255, 250, 250, 250)
    232. End If
    233. End Get
    234. End Property
    236. Public Overrides ReadOnly Property ToolStripDropDownBackground() As System.Drawing.Color
    237. '
    238. Get
    239. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    240. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    241. Else
    242. Return Color.FromArgb(255, 250, 250, 250)
    243. End If
    244. End Get
    245. End Property
    247. Public Overrides ReadOnly Property ToolStripGradientBegin() As System.Drawing.Color
    248. '
    249. Get
    250. 'MyBase.ToolStrip
    251. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    252. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    253. Else
    254. Return Color.FromArgb(255, 250, 250, 250)
    255. End If
    256. End Get
    257. End Property
    258. Public Overrides ReadOnly Property ToolStripGradientMiddle() As System.Drawing.Color
    259. ' Toolstrip Hintergrund Separatoren und PopupRahmen
    260. Get
    261. 'MyBase.ToolStripGradientBegin
    262. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    263. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    264. Else
    265. Return Color.FromArgb(255, 250, 250, 250)
    266. End If
    267. End Get
    268. End Property
    269. Public Overrides ReadOnly Property ToolStripGradientEnd() As System.Drawing.Color
    270. ' Toolstrip Hintergrund Separatoren und PopupRahmen
    271. Get
    272. 'MyBase.ToolStripGradientBegin
    273. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    274. Return MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 7).Hintergrundfarbe 'MyBase.ToolStripDropDownBackground
    275. Else
    276. Return Color.FromArgb(255, 250, 250, 250)
    277. End If
    278. End Get
    279. End Property
    281. Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As System.Drawing.Color
    282. ' Toolstrip Farbübergang Beginn
    283. Get
    284. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    285. Return Color.FromArgb(255, 140, 140, 140)
    286. Else
    287. Return Color.FromArgb(255, 180, 180, 180)
    288. End If
    289. End Get
    290. End Property
    291. Public Overrides ReadOnly Property ToolStripPanelGradientend() As System.Drawing.Color
    292. ' Toolstrip Farbübergang Ende
    293. Get
    294. If MainForm.DesignArray(My.Settings.Oberfläche_Design * 10 + 1).Menulisten = True Then
    295. Return Color.FromArgb(255, 140, 140, 140)
    296. Else
    297. Return Color.FromArgb(255, 180, 180, 180)
    298. End If
    299. End Get
    300. End Property
    301. End Class


    ergibt Bild.

    Nur mit dem Hintergrund der Menusymbole habe ich Probleme - wollte diese eigentlich auf anderem Hintergrund haben, wie in den Originalmenus auch.
    Das bekomme ich aber nicht hin.
    Weiss einer von Euch, warum das nicht will?

    Beste Grüsse
    Bilder

    • Menus.jpg

      134,69 kB, 798×429, 36 mal angesehen

Facebook
Telefonspende