This is my attempt at making a small but smart color picker. It has two modes and can be used for live color updating. The mode shown in image is Alphamode:= True, second mode will then be Alphamode:= False which will be more aimed at web design.
To set the colorpickers color use:
SetColor(Color, Alpha, Update) or SetColor(Color, Update) where Update is a boolean which if false will set old color to color value.
Alpha is a value between 0 and 255.
To get color value use GetColor. Alpha value is stored in RGBAlpha.
Download: Color Picker (260kB)