API tools faq
paste
Advertisement
netrosly

Pavelite Container

netrosly
Jul 6th, 2016
179
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 10.31 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Drawing.Drawing2D
  2. Imports Pavelite_Theme.PaveliteFormPallete
  3. Public Class PL_FormContainer
  4.     Inherits ContainerControl
  5.     Sub New()
  6.         Me.DoubleBuffered = True
  7.         'Me.Dock = true
  8.  
  9.     End Sub
  10. #Region "Properties"
  11.     '{
  12.     '[Drawing]
  13.     '}
  14.     Property Quality As gs = gs.AA
  15.     Dim w As Integer = Me.Width
  16.     Dim h As Integer = Me.Height
  17.     '}
  18.     '[Msic]
  19.     '}
  20.     '-Text
  21.     Property fText As Font = New Font("Arial", 9, FontStyle.Bold)
  22.     Property hText As String = "PAVELITE FORM"
  23.     '-Icon
  24.     Property bIcon As Boolean = False
  25.     Property Icon As Image
  26.     '-Buttons
  27.     Property Buttons As Boolean = True
  28.  
  29. #End Region
  30. #Region "Functions"
  31.     Public Shared Function CheckIcon(b As Boolean, y As Integer, n As Integer) As Integer
  32.         If b Then Return y : Else Return n
  33.     End Function
  34.     Enum gs
  35.         AA
  36.         HQ
  37.         HS
  38.     End Enum
  39.     Public Shared Function GetSmoothMode(g As gs) As SmoothingMode
  40.         Select Case g
  41.             Case gs.AA
  42.                 Return SmoothingMode.AntiAlias
  43.             Case gs.HQ
  44.                 Return SmoothingMode.HighQuality
  45.             Case gs.HS
  46.                 Return SmoothingMode.HighSpeed
  47.         End Select
  48.         Return SmoothingMode.HighSpeed
  49.     End Function
  50.     Public Shared Function LinearGradientBrush(fc As Color, sc As Color, r As Rectangle, a As Decimal) As LinearGradientBrush
  51.         Return New LinearGradientBrush(r, fc, sc, a)
  52.     End Function
  53. #End Region
  54.     Public Sub PL_FormContainer_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
  55.         Using bm As New Bitmap(Me.Width, Me.Height)
  56.             Using g As Graphics = Graphics.FromImage(bm)
  57.                 '[Begin]
  58.                 g.SmoothingMode = GetSmoothMode(Quality)
  59.                 w = Me.Width - 1
  60.                 h = Me.Height - 1
  61.                 '[Back]
  62.                 g.Clear(_BackColor)
  63.                 '[Header]
  64.                 g.FillRectangle(New LinearGradientBrush(New Rectangle(1, 1, w - 1, 50), _HeaderColor, _AltHeaderColor, 90.0!), New Rectangle(1, 1, w - 1, 50))
  65.                 '[Icon]
  66.                 If bIcon Then
  67.                     g.FillRectangle(BackBrush, New Rectangle(6, (50 / 2) - 13, 26, 26))
  68.                     g.DrawRectangle(BorderPen, New Rectangle(6, (50 / 2) - 13, 26, 26))
  69.                     Try : If Not Icon Is Nothing Then : g.DrawImage(Icon, New Rectangle(7, (50 / 2) - 12, 25, 25)) : Else : End If : Catch ex As Exception : End Try
  70.                     Icon.Dispose()
  71.                 End If
  72.                 '[Text]
  73.                 g.DrawString(hText, fText, AltTextBrush, New Rectangle((CheckIcon(bIcon, 35, 11)), 1, w - (CheckIcon(bIcon, 35, 11)), 53), New StringFormat With {.Alignment = StringAlignment.Near, .LineAlignment = StringAlignment.Center})
  74.                 g.DrawString(hText, fText, TextBrush, New Rectangle((CheckIcon(bIcon, 35, 11)), 1, w - (CheckIcon(bIcon, 35, 11)), 50), New StringFormat With {.Alignment = StringAlignment.Near, .LineAlignment = StringAlignment.Center})
  75.                 '[Border]
  76.                 g.DrawRectangle(BorderPen, New Rectangle(0, 0, w, h))
  77.                 '[Button]
  78.  
  79.                 If Buttons Then
  80.                     g.FillRectangle(New SolidBrush(Color.FromArgb(104, 155, 192)), New Rectangle(w - 70, (50 / 3) - 12, 27, 18))
  81.                     g.FillRectangle(New SolidBrush(Color.FromArgb(68, 114, 150)), New Rectangle(w - 70, (50 / 3) - 13, 26, 16))
  82.                     g.FillRectangle(New SolidBrush(Color.FromArgb(47, 104, 149)), New Rectangle(w - 70, (50 / 3) - 12, 26, 17))
  83.                     g.FillRectangle(New SolidBrush(Color.FromArgb(51, 114, 163)), New Rectangle(w - 70, (50 / 3) - 11, 26, 16))
  84.                     g.DrawString("-", New Font("Arial", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(105, 152, 188)), New Rectangle(w - 74, (55 / 3) - 11, 26, 16), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  85.                     g.DrawString("-", New Font("Arial", 10, FontStyle.Regular), Brushes.White, New Rectangle(w - 73, (55 / 3) - 11, 26, 16), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  86.  
  87.                     g.FillRectangle(New LinearGradientBrush(New Rectangle(w - 53, 2, 10, 48), _HeaderColor, _AltHeaderColor, 90.0!), New Rectangle(w - 53, 2, 10, 48))
  88.                     g.FillRectangle(New SolidBrush(Color.FromArgb(104, 155, 192)), New Rectangle(w - 50, (50 / 3) - 12, 27, 18))
  89.                     g.FillRectangle(New SolidBrush(Color.FromArgb(68, 114, 150)), New Rectangle(w - 50, (50 / 3) - 13, 26, 16))
  90.                     g.FillRectangle(New SolidBrush(Color.FromArgb(47, 104, 149)), New Rectangle(w - 50, (50 / 3) - 12, 26, 17))
  91.                     g.FillRectangle(New SolidBrush(Color.FromArgb(51, 114, 163)), New Rectangle(w - 50, (50 / 3) - 11, 26, 16))
  92.                     g.DrawString("+", New Font("Arial", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(105, 152, 188)), New Rectangle(w - 52, (55 / 3) - 11, 26, 16), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  93.                     g.DrawString("+", New Font("Arial", 10, FontStyle.Regular), Brushes.White, New Rectangle(w - 53, (55 / 3) - 11, 26, 16), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  94.  
  95.                     g.FillRectangle(New LinearGradientBrush(New Rectangle(w - 33, 2, 10, 48), _HeaderColor, _AltHeaderColor, 90.0!), New Rectangle(w - 33, 3, 10, 47))
  96.                     g.FillRectangle(New SolidBrush(Color.FromArgb(104, 155, 192)), New Rectangle(w - 30, (50 / 3) - 12, 27, 18))
  97.                     g.FillRectangle(New SolidBrush(Color.FromArgb(68, 114, 150)), New Rectangle(w - 30, (50 / 3) - 13, 26, 16))
  98.                     g.FillRectangle(New SolidBrush(Color.FromArgb(47, 104, 149)), New Rectangle(w - 30, (50 / 3) - 12, 26, 17))
  99.                     g.FillRectangle(New SolidBrush(Color.FromArgb(51, 114, 163)), New Rectangle(w - 30, (50 / 3) - 11, 26, 16))
  100.                     g.DrawString("x", New Font("Arial", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(105, 152, 188)), New Rectangle(w - 29, (50 / 3) - 11, 26, 14), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  101.                     g.DrawString("x", New Font("Arial", 10, FontStyle.Regular), Brushes.White, New Rectangle(w - 30, (50 / 3) - 11, 26, 14), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  102.                     ' g.FillRectangle(New SolidBrush(Color.FromArgb(96, 158, 196)), New Rectangle(w - 29, (50 / 3) - 12, 24, 16))
  103.                 End If
  104.                 'g.FillEllipse(New SolidBrush(Color.FromArgb(104, 155, 192)), New Rectangle(w - 30, (50 / 3) - 12, 27, 18))
  105.                 'g.FillEllipse(New SolidBrush(Color.FromArgb(68, 114, 150)), New Rectangle(w - 30, (50 / 3) - 13, 26, 16))
  106.                 'g.FillEllipse(New SolidBrush(Color.FromArgb(47, 104, 149)), New Rectangle(w - 30, (50 / 3) - 12, 26, 17))
  107.                 'g.FillEllipse(New SolidBrush(Color.FromArgb(51, 114, 163)), New Rectangle(w - 30, (50 / 3) - 11, 26, 16))
  108.                 '   g.FillRectangle(New SolidBrush(Color.FromArgb(96, 158, 196)), New Rectangle(w - 29, (50 / 3) - 12, 24, 16))
  109.                 '[End]
  110.                 Try : e.Graphics.DrawImage(DirectCast(bm.Clone(), Bitmap), 0, 0) : Catch ex As Exception : End Try
  111.  
  112.             End Using
  113.         End Using
  114.  
  115.     End Sub
  116.  
  117. End Class
  118. Public NotInheritable Class PaveliteFormPallete
  119.  
  120. #Region " Properties "
  121.     Public Shared ReadOnly Property BorderPen() As Pen
  122.         Get
  123.             Return _BorderPen
  124.         End Get
  125.     End Property
  126.     Public Shared ReadOnly Property BackBrush() As SolidBrush
  127.         Get
  128.             Return _BackBrush
  129.         End Get
  130.     End Property
  131.     Public Shared ReadOnly Property HeaderBrush() As SolidBrush
  132.         Get
  133.             Return _HeaderBrush
  134.         End Get
  135.     End Property
  136.     Public Shared ReadOnly Property AltHeaderBrush() As SolidBrush
  137.         Get
  138.             Return _AltHeaderBrush
  139.         End Get
  140.     End Property
  141.     Public Shared ReadOnly Property IconBackBrush() As SolidBrush
  142.         Get
  143.             Return _IconBackBrush
  144.         End Get
  145.     End Property
  146.     Public Shared ReadOnly Property IconBorderBrush() As SolidBrush
  147.         Get
  148.             Return _IconBorderBrush
  149.         End Get
  150.     End Property
  151.     Public Shared ReadOnly Property TextBrush() As SolidBrush
  152.         Get
  153.             Return _TextBrush
  154.         End Get
  155.     End Property
  156.     Public Shared ReadOnly Property AltTextBrush() As SolidBrush
  157.         Get
  158.             Return _AltTextBrush
  159.         End Get
  160.     End Property
  161. #End Region
  162.  
  163. #Region " Members "
  164.  
  165.     Private Shared _BorderPen As Pen
  166.     Private Shared _BackBrush As SolidBrush
  167.     Private Shared _HeaderBrush As SolidBrush
  168.     Private Shared _AltHeaderBrush As SolidBrush
  169.     Private Shared _IconBackBrush As SolidBrush
  170.     Private Shared _IconBorderBrush As SolidBrush
  171.     Private Shared _TextBrush As SolidBrush
  172.     Private Shared _AltTextBrush As SolidBrush
  173.     '<Color>
  174.     Public Shared Property _BorderColor As Color = Color.FromArgb(212, 232, 244)
  175.     Public Shared Property _BackColor As Color = Color.FromArgb(244, 249, 252)
  176.     Public Shared Property _HeaderColor As Color = Color.FromArgb(113, 171, 204)
  177.     Public Shared Property _AltHeaderColor As Color = Color.FromArgb(63, 127, 173)
  178.     Public Shared Property _IconBackColor As Color = Color.FromArgb(244, 249, 252)
  179.     Public Shared Property _IconBorderColor As Color = Color.FromArgb(212, 232, 244)
  180.     Public Shared Property _TextColor As Color = Color.FromArgb(242, 246, 249)
  181.     Public Shared Property _AltTextColor As Color = Color.FromArgb(48, 108, 157)
  182.  
  183. #End Region
  184.  
  185. #Region " Constructor "
  186.  
  187.     Shared Sub New()
  188.         _BorderPen = New Pen(_BorderColor)
  189.         _BackBrush = New SolidBrush(_BackColor)
  190.         _HeaderBrush = New SolidBrush(_HeaderColor)
  191.         _AltHeaderBrush = New SolidBrush(_AltHeaderColor)
  192.         _IconBackBrush = New SolidBrush(_IconBackColor)
  193.         _IconBorderBrush = New SolidBrush(_IconBorderColor)
  194.         _TextBrush = New SolidBrush(_TextColor)
  195.         _AltTextBrush = New SolidBrush(_AltTextColor)
  196.     End Sub
  197.  
  198. #End Region
  199.  
  200. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!