Source position: xforms.pp line 877
function fl_mapcolor(
p1: TFL_COLOR;
p2: LongInt;
p3: LongInt;
p4: LongInt
):Cardinal;