Share your advanced knowledge/code with the community.
-
falsam
- Posts: 280
- Joined: Mon May 05, 2014 9:49 pm
- Location: France
-
Contact:
Post
by falsam »
Code: Select all
Enumeration
#mf
#color
EndEnumeration
Procedure GetColor()
Protected selector = GadgetID(#color)
Protected htmlcolor.s, color
;Get HTML Color
!v_htmlcolor = $(v_selector.div).find("input").val();
;HTMLColor -> RGBColor
color = Val("$"+ReverseString(Mid(htmlcolor, 2, 6)))
Debug "Red " + Red(Color)
Debug "Green " + Green(Color)
Debug "Blue " + Blue(Color)
EndProcedure
OpenWindow(#mf, 0, 0, 0, 0, "Color Picker", #PB_Window_Background)
StringGadget(#color, 10, 30, 80, 24, "")
;Change input type
Define selector = GadgetID(#color)
! $(v_selector.div).find("input").attr('type', 'color');
BindGadgetEvent(#color, @GetColor(), #PB_EventType_Change)
Internet Explorer [ ] Edge [X] Chrome[X] FireFox[X] Opera[X] Safari[?] Android[X]
➽ Windows 11 - JDK 1.8 - SB 2.40 - Android 13
➽ http://falsam.com
Sorry for my poor english
-
T4r4ntul4
- Posts: 132
- Joined: Wed May 21, 2014 1:57 pm
- Location: Netherlands
-
Contact:
Post
by T4r4ntul4 »
Very nice snippet!
Needed to change something to get the real RGB numbers:
Code: Select all
Enumeration
#mf
#color
EndEnumeration
Procedure GetColor()
Protected selector = GadgetID(#color)
Protected htmlcolor.s, color, redc.s, greenc.s, bluec.s
;Get HTML Color
!v_htmlcolor = $(v_selector.div).find("input").val();
redc = Mid(htmlcolor, 2, 2)
greenc = Mid(htmlcolor, 4, 2)
bluec = Mid(htmlcolor, 6, 2)
Debug "Red " + Val("$"+redc)
Debug "Green " + Val("$"+greenc)
Debug "Blue " + Val("$"+bluec)
EndProcedure
OpenWindow(#mf, 0, 0, 0, 0, "Color Picker", #PB_Window_Background)
StringGadget(#color, 10, 30, 80, 24, "")
;Change input type
Define selector = GadgetID(#color)
! $(v_selector.div).find("input").attr('type', 'color');
BindGadgetEvent(#color, @GetColor(), #PB_EventType_Change)