Class tcustomdragcontroller

Unit

msedrag

Declaration

type tcustomdragcontroller = class(tlinkedpersistent, ievent)

Description

Hierarchy

• TObject
• tpersistent
• tvirtualpersistent
• tnullinterfacedpersistent
• tlinkedpersistent
• tcustomdragcontroller

Overview

Fields

	fpickpos: pointty;
	fpickrect: rectty;
	fdragobject: tdragobject;
	fstate: dragstatesty;
	fintf: idragcontroller;
	fsysdndobjects: array[0..3] of sysdndinfoty;
	flastwidget: twidget;

Methods

	procedure dokeypress(const sender: twidget; var info: keyeventinfoty) virtual;
	procedure doexpiresdnd(const sender: tobject);
	function checkclickstate(const info: mouseeventinfoty): boolean; virtual;
	function checksysdnd(const aaction: sysdndactionty; const arect: rectty): boolean; virtual;
	function canbegindrag: boolean; virtual;
	procedure receiveevent(const aevent: tobjectevent); virtual;
	constructor create(const aintf: idragcontroller); reintroduce;
	destructor destroy; override;
	function active: boolean;
	procedure enddrag; virtual;
	procedure mouseevent(var info: mouseeventinfoty); virtual;
	procedure clientmouseevent(var info: mouseeventinfoty); virtual;
	procedure childormouseevent(const sender: twidget; var info: mouseeventinfoty); virtual;
	function beforedragevent(var info: draginfoty): boolean; virtual; abstract;
	function afterdragevent(var info: draginfoty): boolean; virtual; abstract;

Properties

	property pickpos: pointty read fpickpos;
	property options: dragoptionsty read foptions write foptions default [];

Description

Fields

	fpickpos: pointty;

	fpickrect: rectty;

	fdragobject: tdragobject;

	fstate: dragstatesty;

	fintf: idragcontroller;

	fsysdndobjects: array[0..3] of sysdndinfoty;

	flastwidget: twidget;

Methods

	procedure dokeypress(const sender: twidget; var info: keyeventinfoty) virtual;

	procedure doexpiresdnd(const sender: tobject);

	function checkclickstate(const info: mouseeventinfoty): boolean; virtual;

	function checksysdnd(const aaction: sysdndactionty; const arect: rectty): boolean; virtual;

	function canbegindrag: boolean; virtual;

	procedure receiveevent(const aevent: tobjectevent); virtual;

	constructor create(const aintf: idragcontroller); reintroduce;

	destructor destroy; override;

	function active: boolean;

	procedure enddrag; virtual;

	procedure mouseevent(var info: mouseeventinfoty); virtual;

	procedure clientmouseevent(var info: mouseeventinfoty); virtual;

	procedure childormouseevent(const sender: twidget; var info: mouseeventinfoty); virtual;

	function beforedragevent(var info: draginfoty): boolean; virtual; abstract;

	function afterdragevent(var info: draginfoty): boolean; virtual; abstract;

Properties

	property pickpos: pointty read fpickpos;

	property options: dragoptionsty read foptions write foptions default [];