set_in_drag

procedure set_in_drag(

  var a: TGtkEntry;

  __in_drag: guint

); overload;

procedure set_in_drag(

  var a: TGtkHandleBox;

  __in_drag: guint

); overload;

procedure set_in_drag(

  var a: TGtkPaned;

  __in_drag: guint

); overload;