• SONAR
  • Just for fun ... Duckbar Theme Editor, day 2 (p.5)
2016/09/13 16:48:54
jbraner
This is a good thread - but it's not "day 1" anymore
2016/09/13 17:16:35
soens
Maybe his days are longer....
 

2016/09/13 17:41:40
panup
Here in north one day is many months in summer. :D
 
But hey, I saw .NET coders here... Please help me with this if you can. How to set default values as Drawing.Color and Image (I set integers already):
 
Public Class SliderBar
    Public Event Value_Changed()

    Dim m_Value As Integer = 0
    <System.ComponentModel.DefaultValue(0)>
    Public Property Value As Integer
        Get
            Return m_Value
        End Get
        Set(value As Integer)
            m_Value = value
            CheckRange()
        End Set
    End Property

    Dim m_Min As Integer = -100
    <System.ComponentModel.DefaultValue(-100)>
    Public Property Min As Integer
        Get
            Return m_Min
        End Get
        Set(value As Integer)
            m_Min = Min
        End Set
    End Property

    Private m_Max As Integer = 100
    <System.ComponentModel.DefaultValue(100)>
    Public Property Max As Integer
        Get
            Return m_Max
        End Get
        Set(value As Integer)
            m_Max = value
        End Set
    End Property

    Public Property TextColor As Color
        Get
            Return txtValue.ForeColor
        End Get
        Set(value As Color)
            txtValue.ForeColor = value
        End Set
    End Property

    Public Property ScaleImage As Image
        Get
            Return picScale.BackgroundImage
        End Get
        Set(value As Image)
            picScale.BackgroundImage = value
        End Set
    End Property

    Public Property Pointer As Image
        Get
            Return picPointer.BackgroundImage
        End Get
        Set(value As Image)
            picPointer.BackgroundImage = value
        End Set
    End Property

    <System.ComponentModel.DefaultValue(3)>
    Public Property ScaleHeight As Integer
        Get
            Return picScale.Height
        End Get
        Set(value As Integer)
            picScale.Height = value
        End Set
    End Property

    <System.ComponentModel.DefaultValue(25)>
    Public Property PointerY As Integer
        Get
            Return picPointer.Location.Y
        End Get
        Set(value As Integer)
            picPointer.Location = New Point(picPointer.Location.X, value)
        End Set
    End Property


2016/09/25 01:51:54
BRainbow
You geeks are very cool.  Sorry I made fun of you in high school.
 
Thanks to all you guys: Panu, the Bakers , et al.
2016/09/25 12:38:39
panup
Here's information about the upcoming Duckbar 5 release:
http://www.sonarmods.com/...0.msg5506.html#msg5506
 
 
2016/09/25 13:45:21
southpaw3473
This looks amazing, Panu!!! Thanks again for all the hard work you put in on Duckbar
2016/09/25 14:06:29
panup
Thanks southpaw3473!
And BRainbow, I forgive you what happened in school. :)
 
 
2016/09/25 14:30:04
Zargg
This is looking awesome, Panu
Really cool of you to do this, and share it
Looking forwards to the finished version.
All the best.
 
2016/09/25 19:12:25
mudgel
HeyPanu,
Not around here much anymore but want to say well done dude. Thanks for all you give to this community.
2016/09/25 21:54:15
skinnybones lampshade
What you are doing is fantastic, Panu! Many sincere thanks from here.
 
I'm wondering (well, harping) about whether you think it would ever be possible to have the fader cap automatically follow the colour selected for the track? My eyesight is maybe not perfect :) and that would be such a help, I can't stop going on about it.
 
If not, never mind, thanks again so much for all you do.
 
LJ
© 2026 APG vNext Commercial Version 5.1

Use My Existing Forum Account

Use My Social Media Account