Source position: xforms.pp line 1994
procedure fl_set_cursor_color(
p1: LongInt;
p2: TFL_COLOR;
p3: TFL_COLOR
);