Source position: xforms.pp line 1760
type TFL_HANDLE_CANVAS = procedure(
P1: PFL_OBJECT;
P2: TWindow;
P3: LongInt;
P4: LongInt;
P5: PXEvent;
P6: pointer
);