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