Source position: xforms.pp line 1802
procedure fl_share_canvas_colormap(
p1: PFL_OBJECT;
p2: TColormap
);