Source position: msegui.pas line 3144
procedure translatewidgettopaintpoint1(
var point: pointty;
const source: twidget;
const dest: twidget
);