Source position: fpg_widget.pas line 39
type TfpgDragDropEvent = procedure(
Sender: TObject;
Source: TObject;
X: Integer;
Y: Integer;
AData: variant
) of object;