Source position: shape.pp line 92
procedure XShapeCombineMask(
display: PDisplay;
dest: TWindow;
dest_kind: cint;
x_off: cint;
y_off: cint;
src: TPixmap;
op: cint
);