Source position: xforms.pp line 891
procedure fl_set_icm_color(
p1: TFL_COLOR;
p2: LongInt;
p3: LongInt;
p4: LongInt
);