Source position: msecolordialog.pas line 150
procedure tcolordialogfo.blueonsetvalue(
const sender: TObject;
var avalue: realty;
var accept: Boolean
);