[VB.NET] Genesis Theme

SUBMITTED BY: eddysix

DATE: March 13, 2017, 8:20 a.m.

FORMAT: VB.net

SIZE: 23.1 kB

Raw Download

HITS: 459

Report
  1. Imports System.Drawing.Drawing2D
  2. Imports System.ComponentModel
  4. Class genesisTheme
  5. Inherits ThemeContainer151
  7. Sub New()
  8. TransparencyKey = Color.Fuchsia
  10. SetColor("BackColor", Color.FromArgb(33, 33, 33))
  11. SetColor("BorderColor", Color.Black)
  12. SetColor("InsetBorderColor", Color.FromArgb(72, 72, 72))
  13. SetColor("TextColor", Color.White)
  14. SetColor("TopGloss", Color.FromArgb(62, Color.White))
  15. SetColor("BottomGloss", Color.FromArgb(30, Color.White))
  17. BackColor = Color.FromArgb(33, 33, 33)
  18. ForeColor = Color.White
  19. Sizable = False
  20. _ShowIcon = False
  21. End Sub
  22. Dim C1, C2, C3, C4, C5, C6 As Color
  23. Protected Overrides Sub ColorHook()
  24. C1 = GetColor("BackColor")
  25. C2 = GetColor("BorderColor")
  26. C3 = GetColor("InsetBorderColor")
  27. C4 = GetColor("TextColor")
  28. C5 = GetColor("TopGloss")
  29. C6 = GetColor("BottomGloss")
  30. End Sub
  32. Protected Overrides Sub PaintHook()
  33. G.Clear(Color.FromArgb(33, 33, 33))
  34. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  35. DrawBorders(New Pen(New SolidBrush(C3)), 1)
  36. DrawGradient(C5, C6, New Rectangle(1, 1, Width - 2, 13), 90S)
  37. DrawBorders(New Pen(New SolidBrush(C2)))
  38. DrawCorners(TransparencyKey)
  39. Select Case _ShowIcon
  40. Case True
  41. If Not _Icon Is Nothing Then
  42. G.DrawIcon(_Icon, New Rectangle(8, 6, 12, 12))
  43. End If
  44. DrawText(New SolidBrush(C4), HorizontalAlignment.Left, 24, 0)
  45. Case False
  46. DrawText(New SolidBrush(C4), HorizontalAlignment.Left, 8, 0)
  47. End Select
  48. End Sub
  50. Private _ShowIcon As Boolean
  51. Public Property ShowIcon() As Boolean
  52. Get
  53. Return _ShowIcon
  54. End Get
  55. Set(ByVal v As Boolean)
  56. _ShowIcon = v
  57. Invalidate()
  58. End Set
  59. End Property
  61. Private _Icon As Icon
  62. Public Property Icon() As Icon
  63. Get
  64. Return _Icon
  65. End Get
  66. Set(ByVal v As Icon)
  67. _Icon = v
  68. Invalidate()
  69. End Set
  70. End Property
  73. End Class
  74. Class genesisButton
  75. Inherits ThemeControl151
  77. Sub New()
  78. BackColor = Color.FromArgb(33, 33, 33)
  80. SetColor("ButtonFillColor", Color.FromArgb(47, 47, 47))
  81. SetColor("ButtonClickColor", Color.FromArgb(44, 44, 44))
  82. SetColor("InsetBorderColor", Color.FromArgb(72, 72, 72))
  83. SetColor("TopGloss", Color.FromArgb(62, Color.White))
  84. SetColor("BottomGloss", Color.FromArgb(30, Color.White))
  85. SetColor("TopInset", Color.FromArgb(45, 45, 45))
  86. SetColor("BottomInset", Color.FromArgb(70, 70, 70))
  87. SetColor("BorderColor", Color.Black)
  88. SetColor("TextColor", Color.White)
  89. End Sub
  90. Dim C1, C2, C3, C4, C5, C6, C7, C8, C9 As Color
  91. Protected Overrides Sub ColorHook()
  92. C1 = GetColor("ButtonFillColor")
  93. C2 = GetColor("InsetBorderColor")
  94. C3 = GetColor("TopGloss")
  95. C4 = GetColor("BottomGloss")
  96. C5 = GetColor("TopInset")
  97. C6 = GetColor("BottomInset")
  98. C7 = GetColor("BorderColor")
  99. C8 = GetColor("TextColor")
  100. C9 = GetColor("ButtonClickColor")
  101. End Sub
  103. Protected Overrides Sub PaintHook()
  104. G.Clear(BackColor)
  105. Select Case State
  106. Case 0
  107. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  108. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  109. DrawGradient(C3, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  110. Case 1
  111. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  112. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  113. DrawGradient(C3, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  114. Case 2
  115. G.FillRectangle(New SolidBrush(C9), New Rectangle(1, 1, Width - 2, Height - 2))
  116. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  117. DrawGradient(C4, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  118. End Select
  121. DrawBorders(New Pen(New SolidBrush(C7)), 1)
  122. G.DrawLine(New Pen(New SolidBrush(C5)), 0, 0, Width, 0)
  123. G.DrawLine(New Pen(New SolidBrush(C5)), 0, 0, 0, Height)
  124. G.DrawLine(New Pen(New SolidBrush(C5)), Width - 1, 0, Width - 1, Height)
  125. G.DrawLine(New Pen(New SolidBrush(C6)), 0, Height - 1, Width, Height - 1)
  126. DrawCorners(BackColor)
  127. DrawCorners(BackColor, New Rectangle(1, 1, Width - 2, Height - 2))
  128. DrawText(New SolidBrush(C8), HorizontalAlignment.Center, 0, 0)
  129. End Sub
  130. End Class
  131. Class genesisTopButton
  132. Inherits ThemeControl151
  134. Sub New()
  135. BackColor = Color.FromArgb(33, 33, 33)
  136. Size = New Size(20, 20)
  137. LockHeight = 20
  138. LockWidth = 20
  140. SetColor("BackColor", Color.FromArgb(47, 47, 47))
  141. SetColor("BorderColor", Color.FromArgb(70, 70, 70))
  142. SetColor("InsetBorderColor2", Color.FromArgb(72, 72, 72))
  143. SetColor("InsetBorderColor", Color.Black)
  144. SetColor("TopGloss", Color.FromArgb(62, Color.White))
  145. SetColor("BottomGloss", Color.FromArgb(30, Color.White))
  146. SetColor("TopInset", Color.FromArgb(45, 45, 45))
  147. SetColor("ButtonClickColor", Color.FromArgb(44, 44, 44))
  148. End Sub
  149. Dim C1, C2, C3, C4, C5, C6, C7, C8 As Color
  150. Protected Overrides Sub ColorHook()
  151. C1 = GetColor("BackColor")
  152. C2 = GetColor("InsetBorderColor2")
  153. C3 = GetColor("TopGloss")
  154. C4 = GetColor("BottomGloss")
  155. C5 = GetColor("BorderColor")
  156. C6 = GetColor("InsetBorderColor")
  157. C7 = GetColor("TopInset")
  158. C8 = GetColor("ButtonClickColor")
  159. End Sub
  161. Protected Overrides Sub PaintHook()
  162. G.Clear(BackColor)
  163. Select Case State
  164. Case 0
  165. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  166. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  167. DrawGradient(C3, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  168. Case 1
  169. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  170. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  171. DrawGradient(C3, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  172. Case 2
  173. G.FillRectangle(New SolidBrush(C8), New Rectangle(1, 1, Width - 2, Height - 2))
  174. DrawBorders(New Pen(New SolidBrush(C2)), 2)
  175. DrawGradient(C4, C4, New Rectangle(1, 1, Width - 2, Height / 2 - 2), 90S)
  176. End Select
  179. DrawBorders(New Pen(New SolidBrush(C6)), 1)
  180. DrawBorders(New Pen(New SolidBrush(C5)))
  181. G.DrawLine(New Pen(New SolidBrush(C7)), 0, Height \ 2, 0, Height)
  182. G.DrawLine(New Pen(New SolidBrush(C7)), Width - 1, Height \ 2, Width - 1, Height)
  183. DrawCorners(BackColor, New Rectangle(1, 1, Width - 2, Height - 2))
  184. End Sub
  185. End Class
  186. Class genesisTextBox
  187. Inherits ThemeControl151
  188. Dim WithEvents txtbox As New TextBox
  190. Private _PassMask As Boolean
  191. Public Property UsePasswordMask() As Boolean
  192. Get
  193. Return _PassMask
  194. End Get
  195. Set(ByVal v As Boolean)
  196. _PassMask = v
  197. Invalidate()
  198. End Set
  199. End Property
  200. Private _maxchars As Integer
  201. Public Property MaxCharacters() As Integer
  202. Get
  203. Return _maxchars
  204. End Get
  205. Set(ByVal v As Integer)
  206. _maxchars = v
  207. End Set
  208. End Property
  210. Sub New()
  211. txtbox.TextAlign = HorizontalAlignment.Center
  212. txtbox.BorderStyle = BorderStyle.None
  213. txtbox.Location = New Point(5, 6)
  214. txtbox.Font = New Font("Verdana", 7.25)
  215. Controls.Add(txtbox)
  216. BackColor = Color.FromArgb(37, 37, 37)
  217. Text = ""
  218. txtbox.Text = ""
  219. Me.Size = New Size(135, 35)
  221. SetColor("BackColor", Color.FromArgb(37, 37, 37))
  222. SetColor("TextColor", Color.White)
  223. SetColor("TopInset", Color.FromArgb(45, 45, 45))
  224. SetColor("BottomInset", Color.FromArgb(70, 70, 70))
  225. SetColor("TextBoxShadow", Color.FromArgb(31, 31, 31))
  226. SetColor("BorderColor", Color.Black)
  227. End Sub
  229. Dim C1, C2, C3, C4, C5, C6 As Color
  230. Protected Overrides Sub ColorHook()
  231. C1 = GetColor("BackColor")
  232. C2 = GetColor("TextColor")
  233. C3 = GetColor("TopInset")
  234. C4 = GetColor("BottomInset")
  235. C5 = GetColor("TextBoxShadow")
  236. C6 = GetColor("BorderColor")
  237. txtbox.ForeColor = C2
  238. txtbox.BackColor = C1
  239. End Sub
  241. Protected Overrides Sub PaintHook()
  242. G.Clear(BackColor)
  243. Select Case UsePasswordMask
  244. Case True
  245. txtbox.UseSystemPasswordChar = True
  246. Case False
  247. txtbox.UseSystemPasswordChar = False
  248. End Select
  249. Size = New Size(Me.Width, 25)
  250. txtbox.Font = Font
  251. txtbox.Size = New Size(Me.Width - 10, txtbox.Height - 10)
  252. txtbox.MaxLength = MaxCharacters
  253. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  254. DrawBorders(New Pen(New SolidBrush(C6)), 1)
  255. DrawBorders(New Pen(New SolidBrush(C4)))
  256. G.DrawLine(New Pen(New SolidBrush(C3)), 0, 0, Width, 0)
  257. G.DrawLine(New Pen(New SolidBrush(C3)), 0, 0, 0, Height)
  258. G.DrawLine(New Pen(New SolidBrush(C3)), Width - 1, 0, Width - 1, Height)
  259. G.DrawLine(New Pen(New SolidBrush(C5)), 2, 2, Width - 3, 2)
  260. DrawCorners(BackColor)
  261. DrawCorners(BackColor, New Rectangle(1, 1, Width - 2, Height - 2))
  262. End Sub
  263. Sub TextChngTxtBox() Handles txtbox.TextChanged
  264. Text = txtbox.Text
  265. End Sub
  266. Sub TextChng() Handles MyBase.TextChanged
  267. txtbox.Text = Text
  268. End Sub
  269. End Class
  270. <DefaultEvent("CheckedChanged")> _
  271. Class genesisCheckBox
  272. Inherits ThemeControl151
  274. Sub New()
  275. BackColor = Color.FromArgb(37, 37, 37)
  276. LockWidth = 50
  277. LockHeight = 20
  278. Checked = False
  280. SetColor("OnGradientA", Color.FromArgb(63, 83, 100))
  281. SetColor("OnGradientB", Color.FromArgb(87, 127, 151))
  282. SetColor("OffGradientA", Color.FromArgb(23, 23, 23))
  283. SetColor("OffGradientB", Color.FromArgb(33, 33, 33))
  284. SetColor("SwitchColor", Color.FromArgb(25, 25, 25))
  285. SetColor("TopGloss", Color.FromArgb(62, Color.White))
  286. SetColor("BottomGloss", Color.FromArgb(30, Color.White))
  287. SetColor("SwitchBorder", Color.Black)
  288. SetColor("SwitchInsetBorder", Color.FromArgb(47, 47, 47))
  289. SetColor("BorderColor", Color.Black)
  290. SetColor("TopInset", Color.FromArgb(45, 45, 45))
  291. SetColor("BottomInset", Color.FromArgb(70, 70, 70))
  292. End Sub
  294. Dim C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12 As Color
  295. Protected Overrides Sub ColorHook()
  296. C1 = GetColor("OnGradientA")
  297. C2 = GetColor("OnGradientB")
  298. C3 = GetColor("OffGradientA")
  299. C4 = GetColor("OffGradientB")
  300. C5 = GetColor("SwitchColor")
  301. C6 = GetColor("TopGloss")
  302. C7 = GetColor("BottomGloss")
  303. C8 = GetColor("SwitchBorder")
  304. C9 = GetColor("SwitchInsetBorder")
  305. C10 = GetColor("BorderColor")
  306. C11 = GetColor("TopInset")
  307. C12 = GetColor("BottomInset")
  308. End Sub
  310. Protected Overrides Sub PaintHook()
  311. G.Clear(BackColor)
  312. Select Case Checked
  313. Case True
  314. DrawGradient(C1, C2, ClientRectangle, 90S)
  315. G.FillRectangle(New SolidBrush(C5), New Rectangle(Width - 19, 1, 17, Height - 4))
  316. G.DrawRectangle(New Pen(New SolidBrush(C8)), New Rectangle(Width - 20, 0, 20, Height - 1))
  317. G.DrawRectangle(New Pen(New SolidBrush(C9)), New Rectangle(Width - 19, 1, 16, Height - 4))
  318. DrawGradient(C6, C7, New Rectangle(Width - 19, 2, 17, Height / 2 - 2), 90S)
  319. G.DrawString("ON", Font, Brushes.White, 6, 3)
  320. Case False
  321. DrawGradient(C3, C4, ClientRectangle, 90S)
  322. G.FillRectangle(New SolidBrush(C5), New Rectangle(1, 1, 20, Height - 1))
  323. G.DrawRectangle(New Pen(New SolidBrush(C8)), New Rectangle(0, 0, 20, Height - 1))
  324. G.DrawRectangle(New Pen(New SolidBrush(C9)), New Rectangle(2, 2, 17, Height - 5))
  325. DrawGradient(C6, C7, New Rectangle(1, 1, 19, Height / 2 - 2), 90S)
  326. G.DrawString("OFF", Font, Brushes.White, 22, 3)
  327. End Select
  328. DrawCorners(BackColor, New Rectangle(1, 2, Width - 1, Height - 4))
  329. G.DrawLine(New Pen(New SolidBrush(C11)), 0, 0, Width, 0)
  330. G.DrawLine(New Pen(New SolidBrush(C11)), 0, 0, 0, Height)
  331. G.DrawLine(New Pen(New SolidBrush(C11)), Width - 1, 0, Width - 1, Height)
  332. G.DrawLine(New Pen(New SolidBrush(C12)), 0, Height - 1, Width, Height - 1)
  333. DrawBorders(New Pen(New SolidBrush(C10)), 1)
  334. DrawCorners(BackColor)
  335. End Sub
  337. Private _Checked As Boolean
  338. Property Checked() As Boolean
  339. Get
  340. Return _Checked
  341. End Get
  342. Set(ByVal value As Boolean)
  343. _Checked = value
  344. Invalidate()
  345. End Set
  346. End Property
  348. Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  349. _Checked = Not _Checked
  350. RaiseEvent CheckedChanged(Me)
  351. MyBase.OnClick(e)
  352. End Sub
  354. Event CheckedChanged(ByVal sender As Object)
  355. End Class
  356. Class genesisTabControl
  357. Inherits TabControl
  358. Private LightBlack As Color = Color.FromArgb(37, 37, 37)
  359. Private LighterBlack As Color = Color.FromArgb(44, 44, 44)
  360. Private DrawGradientBrush, DrawGradientBrush2 As LinearGradientBrush
  361. Private _ControlBColor As Color
  362. Public Property TabTextColor() As Color
  363. Get
  364. Return _ControlBColor
  365. End Get
  366. Set(ByVal v As Color)
  367. _ControlBColor = v
  368. Invalidate()
  369. End Set
  370. End Property
  372. Sub New()
  373. MyBase.New()
  374. SetStyle(ControlStyles.AllPaintingInWmPaint Or _
  375. ControlStyles.ResizeRedraw Or _
  376. ControlStyles.UserPaint Or _
  377. ControlStyles.DoubleBuffer, True)
  378. TabTextColor = Color.White
  379. End Sub
  380. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
  381. MyBase.OnPaint(e)
  382. Dim r2 As New Rectangle(2, 0, Width - 1, 11)
  383. Dim r3 As New Rectangle(2, 0, Width - 1, 11)
  384. e.Graphics.Clear(Color.FromArgb(37, 37, 37))
  385. Dim ItemBounds As Rectangle
  386. Dim TextBrush As New SolidBrush(Color.Empty)
  387. Dim TabBrush As New SolidBrush(Color.DimGray)
  388. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(33, 33, 33)), New Rectangle(1, 1, Width - 2, Height - 2))
  389. DrawGradientBrush2 = New LinearGradientBrush(r3, Color.FromArgb(62, Color.White), Color.FromArgb(30, Color.White), 90S)
  390. e.Graphics.FillRectangle(DrawGradientBrush2, r2)
  391. For TabItemIndex As Integer = 0 To Me.TabCount - 1
  392. ItemBounds = Me.GetTabRect(TabItemIndex)
  394. If CBool(TabItemIndex And 1) Then
  395. TabBrush.Color = Color.Transparent
  396. Else
  397. TabBrush.Color = Color.Transparent
  398. End If
  399. e.Graphics.FillRectangle(TabBrush, ItemBounds)
  400. Dim BorderPen As Pen
  401. If TabItemIndex = SelectedIndex Then
  402. BorderPen = New Pen(Color.Transparent, 1)
  403. Else
  404. BorderPen = New Pen(Color.Transparent, 1)
  405. End If
  406. e.Graphics.DrawRectangle(BorderPen, New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 1, ItemBounds.Width - 8, ItemBounds.Height - 4))
  407. BorderPen.Dispose()
  408. Dim sf As New StringFormat
  409. sf.LineAlignment = StringAlignment.Center
  410. sf.Alignment = StringAlignment.Center
  412. If Me.SelectedIndex = TabItemIndex Then
  413. TextBrush.Color = TabTextColor
  414. Else
  415. TextBrush.Color = Color.DimGray
  416. End If
  417. e.Graphics.DrawString( _
  418. Me.TabPages(TabItemIndex).Text, _
  419. Me.Font, TextBrush, _
  420. RectangleF.op_Implicit(Me.GetTabRect(TabItemIndex)), sf)
  421. Try
  422. Me.TabPages(TabItemIndex).BackColor = Color.FromArgb(35, 35, 35)
  423. Catch
  424. End Try
  425. Next
  426. Try
  427. For Each tabpg As TabPage In Me.TabPages
  428. tabpg.BorderStyle = BorderStyle.None
  429. Next
  430. Catch
  431. End Try
  432. e.Graphics.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(255, Color.Black))), 2, 0, Width - 3, Height - 3)
  433. e.Graphics.DrawRectangle(New Pen(New SolidBrush(LighterBlack)), New Rectangle(3, 24, Width - 5, Height - 28))
  434. e.Graphics.DrawLine(New Pen(New SolidBrush(Color.FromArgb(255, Color.Black))), 2, 23, Width - 2, 23)
  435. e.Graphics.DrawLine(New Pen(New SolidBrush(Color.FromArgb(35, 35, 35))), 0, 0, 1, 1)
  436. e.Graphics.DrawLine(New Pen(New SolidBrush(Color.FromArgb(70, 70, 70))), 2, Height - 2, Width + 1, Height - 2)
  438. End Sub
  439. End Class
  440. Class genesisComboBox
  441. Inherits ComboBox
  442. Sub New()
  443. MyBase.New()
  444. SetStyle(ControlStyles.AllPaintingInWmPaint Or _
  445. ControlStyles.ResizeRedraw Or _
  446. ControlStyles.UserPaint Or _
  447. ControlStyles.DoubleBuffer, True)
  448. DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
  449. BackColor = Color.FromArgb(45, 45, 45)
  450. ForeColor = Color.White
  451. DropDownStyle = ComboBoxStyle.DropDownList
  452. End Sub
  453. Private _StartIndex As Integer = 0
  454. Public Property StartIndex As Integer
  455. Get
  456. Return _StartIndex
  457. End Get
  458. Set(ByVal value As Integer)
  459. _StartIndex = value
  460. Try
  461. MyBase.SelectedIndex = value
  462. Catch
  463. End Try
  464. Invalidate()
  465. End Set
  466. End Property
  467. Private LightBlack As Color = Color.FromArgb(37, 37, 37)
  468. Private LighterBlack As Color = Color.FromArgb(60, 60, 60)
  469. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
  470. MyBase.OnPaint(e)
  471. Dim G As Graphics = e.Graphics
  472. Dim T As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, 10), Color.FromArgb(62, Color.White), Color.FromArgb(30, Color.White), 90S)
  473. Dim DrawCornersBrush As SolidBrush
  474. DrawCornersBrush = New SolidBrush(Color.FromArgb(37, 37, 37))
  475. Try
  476. With G
  477. G.SmoothingMode = SmoothingMode.HighQuality
  478. .Clear(Color.FromArgb(37, 37, 37))
  479. .FillRectangle(T, New Rectangle(0, 0, Width, 9))
  480. .DrawString(Items(SelectedIndex).ToString, Font, Brushes.White, New Point(3, 3))
  481. .DrawLine(New Pen(New SolidBrush(Color.FromArgb(37, 37, 37))), 0, 0, 0, 0)
  482. .DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(0, 0, 0))), New Rectangle(1, 1, Width - 3, Height - 3))
  484. .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0)
  485. .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height)
  486. .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height)
  487. .DrawLine(New Pen(New SolidBrush(Color.FromArgb(70, 70, 70))), 0, Height - 1, Width, Height - 1)
  489. DrawTriangle(Color.White, New Point(Width - 15, 8), New Point(Width - 7, 8), New Point(Width - 11, 13), G)
  490. End With
  491. Catch
  492. End Try
  493. End Sub
  494. Sub ReplaceItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
  495. e.DrawBackground()
  496. Try
  497. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
  498. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 37, 37)), e.Bounds)
  499. End If
  500. Using b As New SolidBrush(e.ForeColor)
  501. e.Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), e.Font, b, e.Bounds)
  502. End Using
  503. Catch
  504. End Try
  505. e.DrawFocusRectangle()
  506. End Sub
  507. Protected Sub DrawTriangle(ByVal Clr As Color, ByVal FirstPoint As Point, ByVal SecondPoint As Point, ByVal ThirdPoint As Point, ByVal G As Graphics)
  508. Dim points As New List(Of Point)()
  509. points.Add(FirstPoint)
  510. points.Add(SecondPoint)
  511. points.Add(ThirdPoint)
  512. G.FillPolygon(New SolidBrush(Clr), points.ToArray)
  513. End Sub
  514. End Class
  515. Class genesisGroupBox
  516. Inherits ThemeContainer151
  518. Sub New()
  519. ControlMode = True
  520. Dock = DockStyle.None
  521. Size = New Size(180, 200)
  522. BackColor = Color.FromArgb(37, 37, 37)
  524. SetColor("BackColor", Color.FromArgb(37, 37, 37))
  525. SetColor("HeaderColor", Color.FromArgb(32, 32, 32))
  526. SetColor("TextColor", Color.White)
  527. SetColor("BorderColor", Color.Black)
  528. SetColor("TopInset", Color.FromArgb(45, 45, 45))
  529. SetColor("BottomInset", Color.FromArgb(70, 70, 70))
  530. End Sub
  532. Dim C1, C2, C3, C4, C5, C6 As Color
  533. Protected Overrides Sub ColorHook()
  534. C1 = GetColor("BackColor")
  535. C2 = GetColor("HeaderColor")
  536. C3 = GetColor("TextColor")
  537. C4 = GetColor("BorderColor")
  538. C5 = GetColor("TopInset")
  539. C6 = GetColor("BottomInset")
  540. End Sub
  542. Protected Overrides Sub PaintHook()
  543. G.Clear(Color.FromArgb(37, 37, 37))
  544. G.FillRectangle(New SolidBrush(C1), New Rectangle(1, 1, Width - 2, Height - 2))
  545. G.FillRectangle(New SolidBrush(C2), New Rectangle(1, 1, Width - 2, 20))
  546. G.DrawLine(Pens.Black, 0, 21, Width, 21)
  547. G.DrawLine(New Pen(New SolidBrush(C5)), 0, 22, Width, 22)
  548. DrawBorders(New Pen(New SolidBrush(C4)), 1)
  549. DrawBorders(New Pen(New SolidBrush(C6)))
  550. G.DrawLine(New Pen(New SolidBrush(C5)), 0, 0, Width, 0)
  551. G.DrawLine(New Pen(New SolidBrush(C5)), 0, 0, 0, Height)
  552. G.DrawLine(New Pen(New SolidBrush(C5)), Width - 1, 0, Width - 1, Height)
  553. DrawCorners(BackColor)
  554. DrawCorners(BackColor, New Rectangle(1, 1, Width - 2, Height - 2))
  555. DrawText(New SolidBrush(C3), HorizontalAlignment.Center, 0, 0)
  556. End Sub
  557. End Class
comments powered by Disqus