Booster Theme

SUBMITTED BY: Guest

DATE: June 5, 2014, 9:28 a.m.

FORMAT: Text only

SIZE: 22.5 kB

Raw Download

HITS: 992

Report
  1. Imports System, System.IO, System.Collections.Generic
  2. Imports System.Drawing, System.Drawing.Drawing2D
  3. Imports System.ComponentModel, System.Windows.Forms
  4. Imports System.Runtime.InteropServices
  5. Imports System.Drawing.Imaging
  7. '------------------
  8. 'Creator: dlwhdrlf
  9. 'Created: 19/12/2011
  10. 'Version: 1.0.0
  11. '------------------
  12. Class BoosterTheme
  13. Inherits ThemeContainer154
  14. Sub New()
  15. TransparencyKey = Color.Fuchsia
  16. BackColor = Color.FromArgb(51, 51, 51)
  17. Header = 25
  18. End Sub
  19. Protected Overrides Sub ColorHook()
  21. End Sub
  23. Protected Overrides Sub PaintHook()
  24. G.Clear(Color.FromArgb(51, 51, 51))
  25. DrawGradient(Color.FromArgb(29, 29, 29), Color.FromArgb(65, 65, 65), 0, 28, Width, (Height \ 2) - 10)
  26. DrawGradient(Color.FromArgb(87, 87, 87), Color.FromArgb(49, 49, 49), 0, 0, Width, 25)
  27. G.DrawLine(Pens.Black, 0, 25, Width, 25)
  29. G.DrawLine(New Pen(Color.FromArgb(192, 74, 74)), 0, 26, Width, 26)
  30. G.FillRectangle(New SolidBrush(Color.FromArgb(169, 0, 0)), 0, 27, Width, 27)
  31. G.FillRectangle(New SolidBrush(Color.FromArgb(45, Color.White)), 0, 27, Width, 13)
  33. G.DrawLine(New Pen(Color.FromArgb(38, 38, 38)), 0, Height - 25, Width, Height - 25)
  34. G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), 0, Height - 24, Width, Height - 24)
  36. DrawBorders(Pens.Black)
  37. DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  39. DrawCorners(Color.Fuchsia)
  40. DrawText(Brushes.Black, HorizontalAlignment.Center, 0, 0)
  41. DrawText(Brushes.White, HorizontalAlignment.Center, 0, 1)
  42. End Sub
  43. End Class
  45. '------------------
  46. 'Creator: dlwhdrlf
  47. 'Created: 19/12/2011
  48. 'Version: 1.0.0
  49. '------------------
  50. Class BoosterTopButton
  51. Inherits ThemeControl154
  52. Sub New()
  53. Transparent = True
  54. BackColor = Color.Transparent
  55. End Sub
  56. Protected Overrides Sub ColorHook()
  58. End Sub
  60. Protected Overrides Sub PaintHook()
  62. DrawGradient(Color.FromArgb(141, 141, 141), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  63. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  64. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  65. DrawBorders(Pens.Black, 2)
  66. G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  67. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  68. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  69. DrawCorners(BackColor)
  70. DrawCorners(Color.FromArgb(41, 41, 41), 2)
  72. If State = MouseState.Over Then
  73. DrawGradient(Color.FromArgb(255, 255, 255), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  74. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  75. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  76. DrawBorders(Pens.Black, 2)
  77. G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  78. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  79. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  80. DrawCorners(BackColor)
  81. DrawCorners(Color.FromArgb(41, 41, 41), 2)
  82. ElseIf State = MouseState.Down Then
  83. DrawGradient(Color.FromArgb(100, 100, 100), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45)
  84. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0)
  85. DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1)
  86. DrawBorders(Pens.Black, 2)
  87. G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1)
  88. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height)
  89. DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height)
  90. DrawCorners(BackColor)
  91. DrawCorners(Color.FromArgb(41, 41, 41), 2)
  92. Else
  93. End If
  94. End Sub
  95. End Class
  97. '------------------
  98. 'Creator: dlwhdrlf
  99. 'Created: 19/12/2011
  100. 'Version: 1.0.0
  101. '------------------
  102. Class BoosterButton
  103. Inherits ThemeControl154
  104. Sub New()
  105. Transparent = True
  106. BackColor = Color.Transparent
  107. End Sub
  108. Protected Overrides Sub ColorHook()
  110. End Sub
  112. Protected Overrides Sub PaintHook()
  114. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  115. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  116. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  117. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  120. DrawBorders(Pens.Black, 0)
  121. DrawBorders(Pens.Black, 1)
  122. DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  123. G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  124. G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  125. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  126. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  128. If State = MouseState.Over Then
  129. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  130. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  131. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  132. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  133. G.FillRectangle(New SolidBrush(Color.FromArgb(13, Color.White)), 0, 0, Width, (Height \ 2) - 7)
  134. DrawBorders(Pens.Black, 0)
  135. DrawBorders(Pens.Black, 1)
  136. DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  137. G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  138. G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  139. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  140. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  141. ElseIf State = MouseState.Down Then
  142. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45)
  143. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45)
  144. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45)
  145. DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315)
  146. G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), 0, 0, Width, (Height \ 2) - 7)
  147. DrawBorders(Pens.Black, 0)
  148. DrawBorders(Pens.Black, 1)
  149. DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3)
  150. G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3)
  151. G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1)
  152. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height)
  153. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height)
  154. Else
  155. End If
  157. DrawCorners(BackColor)
  158. DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  160. End Sub
  161. End Class
  163. '------------------
  164. 'Creator: dlwhdrlf
  165. 'Created: 19/12/2011
  166. 'Version: 1.0.0
  167. '------------------
  168. Class BoosterRedButton
  169. Inherits ThemeControl154
  170. Sub New()
  171. Transparent = True
  172. BackColor = Color.Transparent
  173. End Sub
  174. Protected Overrides Sub ColorHook()
  176. End Sub
  178. Protected Overrides Sub PaintHook()
  179. DrawGradient(Color.FromArgb(175, 26, 26), Color.FromArgb(124, 0, 0), 0, 0, Width, Height)
  180. DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  181. G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height \ 2)
  182. DrawBorders(New Pen(Color.FromArgb(105, 0, 0)), 0)
  183. DrawBorders(New Pen(Color.FromArgb(199, 26, 26)), 1)
  186. If State = MouseState.Over Then
  187. G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height)
  188. ElseIf State = MouseState.Down Then
  189. DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), 0, 0, Width, Height)
  190. DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0)
  191. G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), 0, 0, Width, Height \ 2)
  192. DrawBorders(Pens.Black)
  193. DrawBorders(New Pen(Color.FromArgb(73, 73, 73)), 1)
  194. Else
  195. End If
  198. DrawCorners(BackColor)
  199. End Sub
  200. End Class
  202. '------------------
  203. 'Creator: dlwhdrlf
  204. 'Created: 19/12/2011
  205. 'Version: 1.0.0
  206. '------------------
  207. Class BossterMixedButton
  208. Inherits ThemeControl154
  209. Sub New()
  210. Transparent = True
  211. BackColor = Color.Transparent
  212. End Sub
  213. Protected Overrides Sub ColorHook()
  215. End Sub
  217. Protected Overrides Sub PaintHook()
  218. DrawGradient(Color.FromArgb(59, 59, 59), Color.FromArgb(24, 24, 24), 0, 0, Width, Height)
  219. DrawGradient(Color.FromArgb(204, 37, 37), Color.FromArgb(104, 2, 2), 0, 0, (Width \ 5) + 8, Height)
  220. G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), 0, 0, Width, Height \ 2)
  222. DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  223. G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  224. G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  225. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  226. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  227. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  228. DrawBorders(Pens.Black)
  229. DrawCorners(BackColor)
  231. If State = MouseState.Over Then
  232. G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), (Width \ 5) + 8, 0, Width, Height)
  233. DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  234. G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  235. G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  236. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  237. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  238. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  239. DrawBorders(Pens.Black)
  240. ElseIf State = MouseState.Down Then
  241. DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), (Width \ 5) + 8, 0, Width, Height)
  242. G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), (Width \ 5) + 8, 0, Width, Height \ 2)
  243. DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1)
  244. G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1)
  245. G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1)
  246. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1)
  247. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1)
  248. G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2)
  249. DrawBorders(Pens.Black)
  250. Else
  251. End If
  253. DrawText(Brushes.White, HorizontalAlignment.Center, 8, 0)
  254. End Sub
  255. End Class
  257. '------------------
  258. 'Creator: dlwhdrlf
  259. 'Created: 19/12/2011
  260. 'Version: 1.0.0
  261. '------------------
  262. Class BoosterProgressbar
  263. Inherits ThemeControl154
  265. Private _Value As Integer
  266. Property Value() As Integer
  267. Get
  268. Return _Value
  269. End Get
  270. Set(ByVal value As Integer)
  271. If value > _Maximum Then value = _Maximum
  272. If value < 0 Then value = 0
  274. _Value = value
  275. Invalidate()
  276. End Set
  277. End Property
  279. Private _Maximum As Integer = 100
  280. Property Maximum() As Integer
  281. Get
  282. Return _Maximum
  283. End Get
  284. Set(ByVal value As Integer)
  285. If value < 1 Then value = 1
  286. If _Value > value Then _Value = value
  288. _Maximum = value
  289. Invalidate()
  290. End Set
  291. End Property
  293. Sub New()
  294. Transparent = True
  295. BackColor = Color.Transparent
  296. End Sub
  298. Protected Overrides Sub ColorHook()
  300. End Sub
  302. Protected Overrides Sub PaintHook()
  303. G.Clear(BackColor)
  305. DrawGradient(Color.FromArgb(226, 226, 226), Color.FromArgb(168, 168, 168), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  306. G.DrawLine(Pens.White, 0, 2, CInt((_Value / _Maximum) * Width - 2), 2)
  308. CreateRound(0, 0, Width, Height, 5)
  309. DrawBorders(Pens.Black)
  310. DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  311. DrawCorners(BackColor)
  312. End Sub
  313. End Class
  315. '------------------
  316. 'Creator: dlwhdrlf
  317. 'Created: 19/12/2011
  318. 'Version: 1.0.0
  319. '------------------
  320. Class BoosterGreyProgressbar
  321. Inherits ThemeControl154
  323. Private _Value As Integer
  324. Property Value() As Integer
  325. Get
  326. Return _Value
  327. End Get
  328. Set(ByVal value As Integer)
  329. If value > _Maximum Then value = _Maximum
  330. If value < 0 Then value = 0
  332. _Value = value
  333. Invalidate()
  334. End Set
  335. End Property
  337. Private _Maximum As Integer = 100
  338. Property Maximum() As Integer
  339. Get
  340. Return _Maximum
  341. End Get
  342. Set(ByVal value As Integer)
  343. If value < 1 Then value = 1
  344. If _Value > value Then _Value = value
  346. _Maximum = value
  347. Invalidate()
  348. End Set
  349. End Property
  351. Sub New()
  352. Transparent = True
  353. BackColor = Color.Transparent
  354. End Sub
  356. Protected Overrides Sub ColorHook()
  358. End Sub
  360. Protected Overrides Sub PaintHook()
  361. G.Clear(BackColor)
  363. DrawGradient(Color.FromArgb(129, 129, 129), Color.FromArgb(75, 75, 75), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  364. G.DrawLine(New Pen(Color.FromArgb(182, 182, 182)), 0, 2, CInt((_Value / _Maximum) * Width - 2), 2)
  366. CreateRound(0, 0, Width, Height, 5)
  367. DrawBorders(Pens.Black)
  368. DrawBorders(New Pen(Color.FromArgb(91, 91, 91)), 1)
  369. DrawCorners(BackColor)
  370. End Sub
  371. End Class
  373. '------------------
  374. 'Creator: dlwhdrlf
  375. 'Created: 19/12/2011
  376. 'Version: 1.0.0
  377. '------------------
  378. Class BoosterRedProgressbar
  379. Inherits ThemeControl154
  381. Private _Value As Integer
  382. Property Value() As Integer
  383. Get
  384. Return _Value
  385. End Get
  386. Set(ByVal value As Integer)
  387. If value > _Maximum Then value = _Maximum
  388. If value < 0 Then value = 0
  390. _Value = value
  391. Invalidate()
  392. End Set
  393. End Property
  395. Private _Maximum As Integer = 100
  396. Property Maximum() As Integer
  397. Get
  398. Return _Maximum
  399. End Get
  400. Set(ByVal value As Integer)
  401. If value < 1 Then value = 1
  402. If _Value > value Then _Value = value
  404. _Maximum = value
  405. Invalidate()
  406. End Set
  407. End Property
  409. Sub New()
  410. Transparent = True
  411. BackColor = Color.Transparent
  412. End Sub
  414. Protected Overrides Sub ColorHook()
  416. End Sub
  418. Protected Overrides Sub PaintHook()
  419. G.Clear(Color.FromArgb(66, 0, 0))
  421. G.FillRectangle(New SolidBrush(Color.FromArgb(204, 0, 0)), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height)
  423. CreateRound(0, 0, Width, Height, 5)
  424. G.DrawLine(New Pen(Color.FromArgb(32, 32, 32)), 0, 1, Width, 1)
  425. DrawBorders(New Pen(Color.FromArgb(70, 70, 70)), 0)
  426. G.DrawLine(New Pen(Color.FromArgb(138, 139, 138)), 0, Height - 1, Width, Height - 1)
  427. DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), 0, 0, 1, Height)
  428. DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), Width - 1, 0, Width, Height)
  429. End Sub
  430. End Class
  432. '------------------
  433. 'Creator: dlwhdrlf
  434. 'Created: 19/12/2011
  435. 'Version: 1.0.0
  436. '------------------
  437. Class BoosterControlpanel
  438. Inherits ThemeContainer154
  440. Sub New()
  441. ControlMode = True
  442. Transparent = True
  443. BackColor = Color.Transparent
  444. Header = 20
  445. End Sub
  446. Protected Overrides Sub ColorHook()
  448. End Sub
  450. Protected Overrides Sub PaintHook()
  451. G.Clear(Color.FromArgb(51, 51, 51))
  452. DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(52, 0, 0), 0, 0, Width, 20)
  454. G.DrawLine(New Pen(Color.FromArgb(92, 92, 92)), 0, 21, Width, 21)
  455. G.DrawLine(Pens.Black, 0, 20, Width, 20)
  456. DrawBorders(Pens.Black)
  458. DrawText(Brushes.White, HorizontalAlignment.Left, 8, 3)
  460. DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1)
  461. End Sub
  462. End Class
  464. '------------------
  465. 'Creator: dlwhdrlf
  466. 'Created: 19/12/2011
  467. 'Version: 1.0.0
  468. '------------------
  469. <DefaultEvent("CheckedChanged")> _
  470. Class BoosterCheckBox
  471. Inherits ThemeControl154
  473. Sub New()
  474. Transparent = True
  475. BackColor = Color.Transparent
  476. LockHeight = 15
  477. End Sub
  478. Protected Overrides Sub ColorHook()
  480. End Sub
  482. Protected Overrides Sub PaintHook()
  483. Dim CheckRectangle As New Rectangle(1, 1, Height - 2, Height - 2)
  485. G.Clear(BackColor)
  490. Select Case _Checked
  491. Case True
  492. G.FillRectangle(New SolidBrush(Color.FromArgb(129, 10, 10)), CheckRectangle)
  493. G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 1, 1, Height - 2, Height \ 2)
  494. Case False
  495. G.FillRectangle(New SolidBrush(Color.FromArgb(51, 28, 28)), CheckRectangle)
  496. End Select
  498. G.DrawRectangle(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 4, Height - 4)
  499. G.DrawRectangle(Pens.Black, CheckRectangle)
  501. DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1)
  502. End Sub
  505. Private Property _Checked As Boolean = False
  506. Property Checked() As Boolean
  507. Get
  508. Return _Checked
  509. End Get
  510. Set(ByVal v As Boolean)
  511. _Checked = v
  512. End Set
  513. End Property
  514. Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  515. _Checked = Not _Checked
  516. RaiseEvent CheckedChanged(Me)
  517. MyBase.OnClick(e)
  518. End Sub
  519. Event CheckedChanged(ByVal sender As Object)
  520. End Class
  522. '------------------
  523. 'Creator: dlwhdrlf
  524. 'Created: 19/12/2011
  525. 'Version: 1.0.0
  526. '------------------
  527. <DefaultEvent("CheckedChanged")> _
  528. Class BoosterRadioButton
  529. Inherits ThemeControl154
  531. Sub New()
  532. Transparent = True
  533. BackColor = Color.Transparent
  534. LockHeight = 15
  535. End Sub
  536. Protected Overrides Sub ColorHook()
  538. End Sub
  540. Protected Overrides Sub PaintHook()
  541. G.Clear(BackColor)
  546. Select Case _Checked
  547. Case True
  548. G.FillEllipse(New SolidBrush(Color.FromArgb(129, 10, 10)), 2, 2, Height - 3, Height - 3)
  549. G.FillEllipse(New SolidBrush(Color.FromArgb(30, Color.White)), 2, 2, Height - 3, Height \ 2)
  550. Case False
  551. G.FillEllipse(New SolidBrush(Color.FromArgb(51, 28, 28)), 2, 2, Height - 3, Height - 3)
  552. End Select
  554. G.DrawEllipse(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 3, Height - 3)
  555. G.DrawEllipse(Pens.Black, 1, 1, Height - 1, Height - 1)
  557. DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1)
  558. End Sub
  561. Private Property _Checked As Boolean = False
  562. Property Checked() As Boolean
  563. Get
  564. Return _Checked
  565. End Get
  566. Set(ByVal v As Boolean)
  567. _Checked = v
  568. End Set
  569. End Property
  570. Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  571. _Checked = Not _Checked
  572. RaiseEvent CheckedChanged(Me)
  573. MyBase.OnClick(e)
  574. End Sub
  575. Event CheckedChanged(ByVal sender As Object)
  576. End Class
comments powered by Disqus