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