A color choosing dialog for Delphi, supporting hls/rgb and showing the selected color channel. The form is in German (but it is easy to translate, since there are only a few nouns. Most of them are color channels, e.g. helligkeit=>brightness, rot=>red, ...)
Just put farbe.pas, farbe.dfm and ExtraListView.pas somewhere in the unit search path.
The dialog can be created and shown like this:
colorManager:=TcolorManager.create(nil);
colorManager.addToColorList('',vtCaptionH3); //Create a header for the colors
colorManager.addToColorList('color1',vtValue,clRed); //Create a color option with name color1 and default value clRed
colorManager.addToColorList('color2',vtValue,clBlue); //Create a color option with name color2 and default value clBlue
colorManager.showModal;
addToColorList is needed to let the user choose multiple colors in groups.
After the dialog has been closed, you can get a changed color with
colorManager.findInColorList('color1');