Source position: xforms.pp line 780
procedure fl_set_object_color(
p1: PFL_OBJECT;
p2: TFL_COLOR;
p3: TFL_COLOR
);