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