R rtesluk Member Licensed User Longtime User Jun 1, 2012 #1 June 1 2012 10:45 Hours I like colors in my apps. So I usually have a 'control' activity to create difference color combinations. I used these colors for panels, labels and label text. I find that the color dialog is good most of the time but not for 'fine-tuning' the rgb values. So, I created this activity for that purpose. The sample panel and label with text is located at the top. The toggle view switches between label color and label text color. The radio buttons select the panel, label or label color. The check buttons select the red, green and blue values. The seekbars are for 'gross' selection of the red, green or blue values. The plus and minus buttons are for 'fine' selection of the red, green or blue values. You can also tap on the panel, label or text for a 'random' combination to be used. I have attached a zipped file of the project for your perusal. I would entertain any suggestions, comments etc. Regards, Ray Tesluk :sign0104: Attachments TweetColor20120601.zip TweetColor20120601.zip 9.2 KB · Views: 381
June 1 2012 10:45 Hours I like colors in my apps. So I usually have a 'control' activity to create difference color combinations. I used these colors for panels, labels and label text. I find that the color dialog is good most of the time but not for 'fine-tuning' the rgb values. So, I created this activity for that purpose. The sample panel and label with text is located at the top. The toggle view switches between label color and label text color. The radio buttons select the panel, label or label color. The check buttons select the red, green and blue values. The seekbars are for 'gross' selection of the red, green or blue values. The plus and minus buttons are for 'fine' selection of the red, green or blue values. You can also tap on the panel, label or text for a 'random' combination to be used. I have attached a zipped file of the project for your perusal. I would entertain any suggestions, comments etc. Regards, Ray Tesluk :sign0104:
S ScarBelly Member Licensed User Longtime User Jun 1, 2012 #2 Thanks for sharing! I do get tired of the 'try and see' approach. Upvote 0
R rtesluk Member Licensed User Longtime User Jun 2, 2012 #3 Playing With Colors Update Jun 2 2012 10:00 Hours I added four new button views Save - colors as default or system SaveL - colors to a list for future viewing < - view SAVED color combinations LEFT > - view SAVED color combinations RIGHT Ray Tesluk :sign0104: Attachments TweetColor20120602.zip TweetColor20120602.zip 17.1 KB · Views: 371 Upvote 0
Playing With Colors Update Jun 2 2012 10:00 Hours I added four new button views Save - colors as default or system SaveL - colors to a list for future viewing < - view SAVED color combinations LEFT > - view SAVED color combinations RIGHT Ray Tesluk :sign0104:
R rtesluk Member Licensed User Longtime User Jun 2, 2012 #4 Playing With Colors Update #3 Added some gradientdrawable views for fun Ray Tesluk :sign0104: Attachments TweetColor20120602c.zip TweetColor20120602c.zip 16.6 KB · Views: 403 ColorPatterns.png 25.9 KB · Views: 607 Last edited: Jun 2, 2012 Upvote 0
R rtesluk Member Licensed User Longtime User Jun 13, 2012 #5 Another Update Jun 13 2012 08:45 Hours I found this code searching for 'gradientdrawable' that reduces the amount of code. It's in the CodeModule Activity. Code: Copy Sub GD(col0 As Int, col1 As Int, Radius As Float, Style As String) As GradientDrawable Dim gdw As GradientDrawable Dim Cols(2) As Int Cols(0) = col0 Cols(1) = col1 gdw.Initialize(Style, Cols) gdw.CornerRadius = Radius Return gdw End Sub Ray Tesluk :sign0104::sign0060: Attachments TweetColor20120613.zip TweetColor20120613.zip 16.8 KB · Views: 378 Upvote 0
Another Update Jun 13 2012 08:45 Hours I found this code searching for 'gradientdrawable' that reduces the amount of code. It's in the CodeModule Activity. Code: Copy Sub GD(col0 As Int, col1 As Int, Radius As Float, Style As String) As GradientDrawable Dim gdw As GradientDrawable Dim Cols(2) As Int Cols(0) = col0 Cols(1) = col1 gdw.Initialize(Style, Cols) gdw.CornerRadius = Radius Return gdw End Sub Ray Tesluk :sign0104::sign0060: