seems nice..Ill check it out.. :D Hope it would be awesome :D
(Aug 13, 2011 01:18 AM)Rebellion. Wrote: seems nice..Ill check it out.. :D Hope it would be awesome :D
Have you tested it yet? I would really like to know that.
Wheres the credits for the person who official created the theme?
(Aug 13, 2011 10:06 AM)50GTB Wrote: Wheres the credits for the person who official created the theme?
I created the theme from scratch?
I gave credits to Immortal (who I got the slash pattern from with full permission) and Aeonhack for the theme base. I gave them credits in thread and code.
No you didnt, now that i told you to you did ( redits to AeonHack for Theme Base 1.5, credits to ImMoRtAl- for inspiration and the /// things. )
(Aug 13, 2011 10:10 AM)50GTB Wrote: No you didnt, now that i told you to you did ( redits to AeonHack for Theme Base 1.5, credits to ImMoRtAl- for inspiration and the /// things. )
No, look at the top. It's been there since the beginnning. Please, I don't want to start a fight.
Also ask Immortal, he can verify that the credits has been there since the beginning of this thread.
(Aug 12, 2011 01:59 PM)Svarteman Wrote: What are you going on about? The slash pattern was inspired by the Red Dwagon theme. The code with the slashes are from Red Dwagon theme (with full permission), I fully understand the code. I coded the rest of the theme myself, the checkbox, the progressbar and the button myself. Please don't accuse me of things you aren't fully clear about.
And Red Dwagon is based on Teamviewer theme
The Stripes on the top bottom of move it based on thief
This looks like a color modified version of the Thief theme someone created here.
(Aug 13, 2011 11:23 AM)Tim Joe Wrote: And Red Dwagon is based on Teamviewer theme
The Stripes on the top bottom of move it based on thief
Okay, thank you. I'm sorry if I where ignorant. But I've changed all the code.
(Aug 13, 2011 11:28 AM)Svarteman Wrote: Okay, thank you. I'm sorry if I where ignorant. But I've changed all the code.
np, you my friend deserve a +1 for showing credits
(Aug 13, 2011 11:27 AM)0xDEAD10CC Wrote: This looks like a color modified version of the Thief theme someone created here.
Everybody says that even though I've never used or seen Thief theme before this was finished.
(Aug 13, 2011 12:13 PM)Tim Joe Wrote: np, you my friend deserve a +1 for showing credits
Thank you Tim. It really glads me a lot to hear from you.
(Aug 13, 2011 12:15 PM)Svarteman Wrote: Everybody says that even though I've never used or seen Thief theme before this was finished.
Thank you Tim. It really glads me a lot to hear from you.
Even though thats hard to believe for how similar this is.
(Aug 13, 2011 12:51 PM)0xDEAD10CC Wrote: Even though thats hard to believe for how similar this is.
Well. I just say feel free to compare, I got nothing to hide ;)
And I'm not going to deny it, the slash pattern is very similar.
Codes:
Purple Theme:
Code Class PurpleTheme
Inherits ThemeContainer
'Colors
Dim WindowTopGradientPart As Color
Dim WindowBottomGradientPart As Color
'Brushes
Dim TextColor As Brush
'Pens
Dim SeparatingLines As Pen
Dim BorderColor As Pen
Dim SlashColors As Pen
Sub New()
MoveHeight = 25
TransparencyKey = Color.Fuchsia
BackColor = Color.DarkViolet
'Colors
SetColor("Window Top Gradient", Color.DarkViolet)
SetColor("Window Bottom Gradient", Color.Indigo)
'Brushes
SetColor("TextColor", Color.Black)
'Pens
SetColor("Separating Lines", Color.Black)
SetColor("BorderColor", Color.Black)
SetColor("Slash Colors", Color.Black)
End Sub
Protected Overrides Sub ColorHook()
'Colors
WindowTopGradientPart = GetColor("Window Top Gradient")
WindowBottomGradientPart = GetColor("Window Bottom Gradient")
'Brushes
TextColor = New SolidBrush(GetColor("TextColor"))
'Pens
SeparatingLines = New Pen(GetColor("Separating Lines"))
BorderColor = New Pen(GetColor("BorderColor"))
SlashColors = New Pen(GetColor("Slash Colors"))
End Sub
Protected Overrides Sub PaintHook()
DrawGradient(WindowBottomGradientPart, WindowTopGradientPart, 0, 25, Width, Height)
DrawGradient(BackColor, BackColor, 6, 42, Width - 8, Height - 55)
For I As Integer = 0 To Width + 17 Step 6
G.DrawLine(SlashColors, I, 25, I - 17, 42)
G.DrawLine(SlashColors, I - 1, 25, I - 18, 42)
Next
DrawGradient(WindowBottomGradientPart, WindowTopGradientPart, 1, 24, 4, Height)
DrawGradient(WindowBottomGradientPart, WindowTopGradientPart, Width - 6, 24, 5, Height)
DrawGradient(WindowTopGradientPart, WindowBottomGradientPart, 0, 0, Width, 25)
DrawText(TextColor, HorizontalAlignment.Left, 8, 0)
G.DrawLine(SeparatingLines, 5, 25, Width - 6, 25)
G.DrawLine(SeparatingLines, 5, 42, Width - 6, 42)
DrawBorders(BorderColor, 0, 0, Width, Height)
DrawBorders(BorderColor, 5, 25, Width - 10, Height - 37)
DrawCorners(Color.Fuchsia)
End Sub
End Class
Thief3 Theme:
Code Class Thief3Theme
Inherits Theme
Private _bStripes As Boolean
Public Property HatchEnable() As Boolean
Get
Return _bStripes
End Get
Set(ByVal v As Boolean)
_bStripes = v
Invalidate()
End Set
End Property
Private _aColor As Color
Public Property AccentColor() As Color
Get
Return _aColor
End Get
Set(ByVal value As Color)
_aColor = value
Invalidate()
End Set
End Property
Private _cStyle As Boolean
Public Property DarkTheme() As Boolean
Get
Return _cStyle
End Get
Set(ByVal v As Boolean)
_cStyle = v
Invalidate()
End Set
End Property
Private _tAlign As HorizontalAlignment
Public Property TitleTextAlign() As HorizontalAlignment
Get
Return _tAlign
End Get
Set(ByVal v As HorizontalAlignment)
_tAlign = v
Invalidate()
End Set
End Property
Sub New()
MoveHeight = 19
TransparencyKey = Color.Fuchsia
Me.Resizable = False
Me.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
'Custom Settings
HatchEnable = True
AccentColor = Color.DodgerBlue
DarkTheme = True
TitleTextAlign = Left
End Sub
Public Overrides Sub PaintHook()
Dim ClientPtA, ClientPtB, GradA, GradB As Integer
Dim PenColor As Pen
Select Case HatchEnable
Case True
ClientPtA = 38
ClientPtB = 37
Case False
ClientPtA = 21
ClientPtB = -1
End Select
Select Case DarkTheme
Case True
GradA = 51
GradB = 30
PenColor = Pens.Black
Case False
GradA = 200
GradB = 160
PenColor = Pens.DimGray
End Select
G.Clear(Color.FromArgb(GradA, GradA, GradA))
DrawGradient(Color.FromArgb(GradA, GradA, GradA), Color.FromArgb(GradB, GradB, GradB), 0, 0, Width, 19, 90S)
Select Case HatchEnable
Case True
DrawGradient(Color.FromArgb(GradB, GradB, GradB), Color.FromArgb(GradA, GradA, GradA), 0, 19, Width, 18, 90S)
End Select
G.DrawLine(PenColor, 0, 20, Width, 20)
G.DrawLine(PenColor, 0, ClientPtB, Width, ClientPtB)
Select Case HatchEnable
Case True
For I As Integer = 0 To Width + 17 Step 4
G.DrawLine(PenColor, I, 21, I - 17, ClientPtA)
G.DrawLine(PenColor, I - 1, 21, I - 18, ClientPtA)
Next
End Select
G.DrawLine(New Pen(New SolidBrush(AccentColor)), 0, ClientPtA, Width, ClientPtA)
G.DrawLine(New Pen(New SolidBrush(AccentColor)), 0, Height - 2, Width, Height - 2)
G.DrawLine(New Pen(New SolidBrush(AccentColor)), 1, ClientPtA, 1, Height - 2)
G.DrawLine(New Pen(New SolidBrush(AccentColor)), Width - 2, ClientPtA, Width - 2, Height - 1)
G.DrawString(".", Me.Parent.Font, Brushes.Black, -2, Height - 12)
G.DrawString(".", Me.Parent.Font, Brushes.Black, Width - 5, Height - 12)
DrawText(TitleTextAlign, AccentColor, 6, 0)
DrawBorders(Pens.Black, Pens.Transparent, ClientRectangle)
DrawCorners(Color.Fuchsia, ClientRectangle)
End Sub
End Class
Your scan lines need to be fixed, they look bad in my opinion.
(Aug 13, 2011 01:29 PM)Ui Hirasawa Wrote: Your scan lines need to be fixed, they look bad in my opinion.
Okay, thank you for your opinion. But may I ask you in which way?
Should I make them taller, more thin, more horizontal, more diagonal? Please give me some more details.
|
