Android Code Snippet Material Design Colors

Discussion in 'Code Snippets' started by ivan.tellez, May 11, 2015.

  1. ivan.tellez

    ivan.tellez Active Member Licensed User

    Yo can review the Guidelines For the use of colors in apps for Material design at google's site:

    http://www.google.com/design/spec/style/color.html

    I just put the colors in maps

    Code:
    Dim MaterialColors(19As Map
     
    For x1 = 0 To 18
        MaterialColors(x1).Initialize
    Next

    MaterialColors(
    0) = A2M(Array As Object(50Colors.rgb(255235238), 100Colors.rgb(255205210), 200Colors.rgb(239154154), 300Colors.rgb(229115115), 400Colors.rgb(2398380), 500Colors.rgb(2446754), 600Colors.rgb(2295753), 700Colors.rgb(2114747), 800Colors.rgb(1984040), 900Colors.rgb(1832828) ))
    MaterialColors(
    1) = A2M(Array As Object(50Colors.rgb(252228236), 100Colors.rgb(248187208), 200Colors.rgb(244143177), 300Colors.rgb(24098146), 400Colors.rgb(23664122), 500Colors.rgb(2333099), 600Colors.rgb(2162796), 700Colors.rgb(1942491), 800Colors.rgb(1732087), 900Colors.rgb(1361479) ))
    MaterialColors(
    2) = A2M(Array As Object(50Colors.rgb(243229245), 100Colors.rgb(225190231), 200Colors.rgb(206147216), 300Colors.rgb(186104200), 400Colors.rgb(17171188), 500Colors.rgb(15639176), 600Colors.rgb(14236170), 700Colors.rgb(12331162), 800Colors.rgb(10627154), 900Colors.rgb(7420140) ))
    MaterialColors(
    3) = A2M(Array As Object(50Colors.rgb(237231246), 100Colors.rgb(209196233), 200Colors.rgb(179157219), 300Colors.rgb(149117205), 400Colors.rgb(12687194), 500Colors.rgb(10358183), 600Colors.rgb(9453177), 700Colors.rgb(8145168), 800Colors.rgb(6939160), 900Colors.rgb(4927146) ))
    MaterialColors(
    4) = A2M(Array As Object(50Colors.rgb(232234246), 100Colors.rgb(197202233), 200Colors.rgb(159168218), 300Colors.rgb(121134203), 400Colors.rgb(92107192), 500Colors.rgb(6381181), 600Colors.rgb(5773171), 700Colors.rgb(4863159), 800Colors.rgb(4053147), 900Colors.rgb(2635126) ))
    MaterialColors(
    5) = A2M(Array As Object(50Colors.rgb(227242253), 100Colors.rgb(187222251), 200Colors.rgb(144202249), 300Colors.rgb(100181246), 400Colors.rgb(66165245), 500Colors.rgb(33150243), 600Colors.rgb(30136229), 700Colors.rgb(25118210), 800Colors.rgb(21101192), 900Colors.rgb(1371161) ))
    MaterialColors(
    6) = A2M(Array As Object(50Colors.rgb(225245254), 100Colors.rgb(179229252), 200Colors.rgb(129212250), 300Colors.rgb(79195247), 400Colors.rgb(41182246), 500Colors.rgb(3169244), 600Colors.rgb(3155229), 700Colors.rgb(2136209), 800Colors.rgb(2119189), 900Colors.rgb(187155) ))
    MaterialColors(
    7) = A2M(Array As Object(50Colors.rgb(224247250), 100Colors.rgb(178235242), 200Colors.rgb(128222234), 300Colors.rgb(77208225), 400Colors.rgb(38198218), 500Colors.rgb(0188212), 600Colors.rgb(0172193), 700Colors.rgb(0151167), 800Colors.rgb(0131143), 900Colors.rgb(961000) ))
    MaterialColors(
    8) = A2M(Array As Object(50Colors.rgb(224242241), 100Colors.rgb(178223219), 200Colors.rgb(128203196), 300Colors.rgb(77182172), 400Colors.rgb(38166154), 500Colors.rgb(1501360), 600Colors.rgb(0137123), 700Colors.rgb(0121107), 800Colors.rgb(010592), 900Colors.rgb(07764) ))
    MaterialColors(
    9) = A2M(Array As Object(50Colors.rgb(232245233), 100Colors.rgb(200230201), 200Colors.rgb(165214167), 300Colors.rgb(129199132), 400Colors.rgb(102187106), 500Colors.rgb(7617580), 600Colors.rgb(6716071), 700Colors.rgb(5614260), 800Colors.rgb(4612550), 900Colors.rgb(279432) ))
    MaterialColors(
    10) = A2M(Array As Object(50Colors.rgb(241248233), 100Colors.rgb(220237200), 200Colors.rgb(197225165), 300Colors.rgb(174213129), 400Colors.rgb(156204101), 500Colors.rgb(13919574), 600Colors.rgb(12417966), 700Colors.rgb(10415956), 800Colors.rgb(8513947), 900Colors.rgb(5110530) ))
    MaterialColors(
    11) = A2M(Array As Object(50Colors.rgb(249251231), 100Colors.rgb(240244195), 200Colors.rgb(230238156), 300Colors.rgb(220231117), 400Colors.rgb(21222587), 500Colors.rgb(20522057), 600Colors.rgb(19220251), 700Colors.rgb(17518043), 800Colors.rgb(15815736), 900Colors.rgb(13011923) ))
    MaterialColors(
    12) = A2M(Array As Object(50Colors.rgb(255253231), 100Colors.rgb(255249196), 200Colors.rgb(255245157), 300Colors.rgb(255241118), 400Colors.rgb(25523888), 500Colors.rgb(25523559), 600Colors.rgb(25321653), 700Colors.rgb(25119245), 800Colors.rgb(24916837), 900Colors.rgb(24512723) ))
    MaterialColors(
    13) = A2M(Array As Object(50Colors.rgb(255248225), 100Colors.rgb(255236179), 200Colors.rgb(255224130), 300Colors.rgb(25521379), 400Colors.rgb(25520240), 500Colors.rgb(2551937), 600Colors.rgb(2551790), 700Colors.rgb(2551600), 800Colors.rgb(2551430), 900Colors.rgb(2551110) ))
    MaterialColors(
    14) = A2M(Array As Object(50Colors.rgb(255243224), 100Colors.rgb(255224178), 200Colors.rgb(255204128), 300Colors.rgb(25518377), 400Colors.rgb(25516738), 500Colors.rgb(2551520), 600Colors.rgb(2511400), 700Colors.rgb(2451240), 800Colors.rgb(2391080), 900Colors.rgb(230810) ))
    MaterialColors(
    15) = A2M(Array As Object(50Colors.rgb(251233231), 100Colors.rgb(255204188), 200Colors.rgb(255171145), 300Colors.rgb(255138101), 400Colors.rgb(25511267), 500Colors.rgb(2558734), 600Colors.rgb(2448130), 700Colors.rgb(2307425), 800Colors.rgb(2166721), 900Colors.rgb(1915412) ))
    MaterialColors(
    16) = A2M(Array As Object(50Colors.rgb(239235233), 100Colors.rgb(215204200), 200Colors.rgb(188170164), 300Colors.rgb(161136127), 400Colors.rgb(14111099), 500Colors.rgb(1218572), 600Colors.rgb(1097665), 700Colors.rgb(936455), 800Colors.rgb(785246), 900Colors.rgb(623935) ))
    MaterialColors(
    17) = A2M(Array As Object(50Colors.rgb(250250250), 100Colors.rgb(245245245), 200Colors.rgb(238238238), 300Colors.rgb(224224224), 400Colors.rgb(189189189), 500Colors.rgb(158158158), 600Colors.rgb(117117117), 700Colors.rgb(979797), 800Colors.rgb(666666), 900Colors.rgb(333333) ))
    MaterialColors(
    18) = A2M(Array As Object(50Colors.rgb(236239241), 100Colors.rgb(207216220), 200Colors.rgb(176190197), 300Colors.rgb(144164174), 400Colors.rgb(120144156), 500Colors.rgb(96125139), 600Colors.rgb(84110122), 700Colors.rgb(6990100), 800Colors.rgb(557179), 900Colors.rgb(385056) ))






    Sub A2M (arr() As Object) As Map
        
    Dim m As Map
        m.Initialize
        
    For i = 0 To arr.Length - 1 Step 2
            m.Put(arr(i), arr(i + 
    1))
        
    Next
        
    Return m
    End Sub


    Then you can use like this:


    Code:
    Dim paletteIndex as Int = 6 'Light Blue
    Button1.Color = MaterialColors(paletteIndex).Get(700)


    I hope this could be useful to someone









    Tags: Lollipop, Material Design, Android 5, Color palette, UI color application, Themes, Material Theme.
     
    Last edited: May 12, 2015
  2. DonManfred

    DonManfred Expert Licensed User

    Great work. Thank you!
    But can you please update the first post to match the requirements for this forum as described here? The keywords are used to help the forums search-engine.
     
    walterf25 likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice