Source position: xforms.pp line 1089
procedure fl_roundrectangle(
p1: LongInt;
p2: TFL_Coord;
p3: TFL_Coord;
p4: TFL_Coord;
p5: TFL_Coord;
p6: TFL_COLOR
);