LCL Drag Drop/ru: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Руководство DoDi по Dragging (перетаскиванию), Dropping (бросанию компонента) и Docking (стыковке)
2	2
3	3		Элементы управления в графическом интерфейсе можно захватить с помощью мыши, перетащить в другие места и перетащить на другие элементы управления или на рабочий стол. Когда перетаскиваемый элемент управления перемещается в другое место, операция называется [[LCL Drag Dock/ru\|"docking"]]. В противном случае исходный и целевой элементы управления могут обмениваться информацией или взаимодействовать любым другим способом, что называется операцией "drag-drop" (тащи-бросай).
4	4
5	5		Но все это не работает само по себе, приложение должно настроить разрешенные операции, чтобы LCL знал, что делать с каждым элементом управления в графическом интерфейсе. Сложные операции требуют дополнительного кода для управления визуальной обратной связью с пользователем приложения и того, что произойдет, когда перетаскиваемый элемент управления, наконец, будет отброшен.
6	6
7	7		Для простой поддержки стыковки во всех приложениях вы можете использовать [[EasyDockingManager]] или [[Anchor Docking/ru\|Anchor Docking]], что сводит к минимуму необходимые адаптации.
8	8
9	9		## Drag Drop
10	10
11	11		Это простое и изначально действие только перетаскивания. Участники:
12	12
13	13		- Позволяющий перетаскивать себя элемент управления в графическом интерфейсе
14	14		- Объект перетаскивания, производный от `TDragObject`
15	15		- Вспомогательные функции
16	16		- События
17	17
18	18		Теперь давайте посмотрим, как они работают вместе.
19	19
20	20		### Источник перетаскивания
21	21
22	22		Элемент управления можно сделать перетаскиваемым, установив для его свойства `DragMode` значение `dmAutomatic`. Когда пользователь нажимает левую кнопку мыши на таком элементе управления, указатель мыши превращается в индикатор перетаскивания, пока пользователь не отпустит кнопку или не отменит операцию, нажав клавишу `Escape`. Индикатор теперь следует за движениями мыши и меняет свою форму в соответствии с тем, что произойдет, когда элемент управления будет брошен в текущее место.
23	23
24	24		Перетаскивание также можно запустить в коде, вызвав `SourceControl.BeginDrag`. В любом случае вызывается вспомогательная процедура `DragManager.DragStart` для начала перетаскивания. `DragManager` - это глобальный экземпляр, реализующий фактическое перетаскивание. Он инициализируется значением по умолчанию `TDragManagerDefault` и может быть заменен программистом (Вами). В зависимости от `DragKind` элемента управления запускается операция перетаскивания или стыковки. Исходный элемент управления запускает событие `OnStartDrag`, в котором программист может предоставить пользовательский объект перетаскивания. Если такой объект не указан, создается объект по умолчанию (`TDragControlObject` или `TDragDockObject`). Инициализируются внутренние структуры данных для визуальной обратной связи и прочего.
25	25
26	26		### Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля)
27	27
28	28		Перетаскиваемый объект получает весь пользовательский ввод при перетаскивании. В реализации по умолчанию он реагирует вызовом либо `DragMove`, либо `DragStop`.
29	29
30	30		Перетаскиваемый объект также отвечает за визуальную обратную связь:
31	31
32	32		- `GetDragCursor` возвращает форму указателя мыши.
33	33		- `GetDragImages` возвращает список перетаскиваемых изображений, прикрепляемых к указателю мыши.
34	34		- `ShowDragImage` и `HideDragImage` реализуют визуальную обратную связь.
35	35
36	36		Метод `EndDrag` уведомляет исходный элемент управления об остановке перетаскивания. В случае отмены операции он вызывает `SourceControl.DragCanceled`, за которым следует `SourceControl.DoEndDrag` в любом случае, что вызывает событие `OnEndDrag`.
37	37
38	38		### События
39	39
40	40		#### OnStartDrag/Dock
41	41
42	42		Это событие происходит при запуске операции. Обработчик может предоставить настраиваемый `TDragObject` или `TDragDockObject` для операции.
43	43
44	44		#### OnDrag/DockOver
45	45
46	46		Это событие уведомляет возможную цель, когда над ней перетаскивают объект. Обработчик может сигнализировать о принятии или отклонении сброса компонента.
47	47
48	48		Событие сигнализирует не только о перемещении мыши, но и о том, когда мышь входит в зону целевого элемента управления или покидает ее.
49	49
50	50		Событие `OnDockOver` происходит на `DockSite`, а не в целевом элементе управления под указателем мыши. Обработчик может сигнализировать об отклонении сброса и может регулировать визуальную обратную связь. Событие происходит, когда мышь входит в зону элемента управления или выходит из нее, а также при каждом движении мыши.
51	51
52	52		#### OnDrag/DockDrop
53	53
54	54		Это событие уведомляет целевой элемент управления об окончании операции перетаскивания.
55	55
56	56		#### OnEndDrag/Dock
57	57
58	58		Это событие уведомляет исходный элемент управления об окончании операции перетаскивания.
59	59
60	60		## Основные недостатки
61	61
62	62		- Те же недостатки, что и у Delphi VCL.
63	63		- Нет поддержки платформы LCL (кроссплатформа) для перетаскивания компонентов из приложения LCL в любое другое приложение. Чтобы это работало, LCL необходима поддержка протокола XDND в X11, поддержка OLE Drag-n-Drop в Windows и Mac Drag Manager в OSX.
64	64		- Нет поддержки платформы LCL (кроссплатформа) для приема сбрасываемых компонентов внутри приложения LCL из другого приложения (рабочего стола, файлового менеджера и т.д.). Обработчик событий `OnDragDrop` всегда ожидает, что перетаскиваемый компонент(Source) будет передаваться как потомок `TObject`, что не будет иметь место при перетаскивании объекта из другого приложения в приложение LCL.
65	65
66	66		# Delphi
67	67
68	68		## Drag Drop
69	69
70	70		Это простое и изначально действие только перетаскивания. Участники:
71	71
72	72		- Позволяющий перетаскивать себя элемент управления в графическом интерфейсе
73	73		- Объект перетаскивания, производный от `TDragObject`
74	74		- Вспомогательные функции
75	75		- События
76	76
77	77		Теперь давайте посмотрим, как они работают вместе, на основе исходной реализации Delphi для ясности. Реализация LCL несколько отличается в использовании вспомогательных объектов, подробности будут обсуждены позже.
78	78
79	79		### Перетаскиваемый источник(объект)
80	80
81	81		Элемент управления можно сделать перетаскиваемым, установив для его свойства `DragMode` значение `dmAutomatic`. Когда пользователь нажимает левую кнопку мыши на таком элементе управления, указатель мыши превращается в индикатор перетаскивания, пока пользователь не отпустит кнопку или не отменит операцию, нажав клавишу Escape. Индикатор теперь следует за движениями мыши и меняет свою форму в соответствии с тем, что произойдет, когда элемент управления будет брошен в текущее место.
82	82
83	83		Перетаскивание также можно запустить программно, вызвав `Source.BeginDrag`. В любом случае вызывается вспомогательная процедура `DragInitControl` для начала перетаскивания. Исходный элемент управления вызывает событие `StartDrag`, в котором приложение может предоставить настраиваемый объект перетаскивания. Если такой объект не указан, создается объект по умолчанию. Инициализируются внутренние структуры данных для визуальной обратной связи и прочего. Затем вызывается `DragTo`, чтобы показать, что перетаскивание началось.
84	84
85	85		### Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля)
86	86
87	87		Перетаскиваемый объект получает весь пользовательский ввод при перетаскивании. В реализации по умолчанию он реагирует вызовом либо `DragMove`, либо `DragStop`.
88	88
89	89		Перетаскиваемый объект также отвечает за визуальную обратную связь:
90	90
91	91		- `GetDragCursor` возвращает форму указателя мыши.
92	92		- `GetDragImages` возвращает список перетаскиваемых изображений, прикрепляемых к указателю мыши.
93	93		- `ShowDragImage` и `HideDragImage` реализуют визуальную обратную связь.
94	94
95	95		Метод `EndDrag` уведомляет исходный элемент управления об остановке перетаскивания. В случае отмены операции он вызывает `SourceControl.DragCanceled`, за которым следует `SourceControl.DoEndDrag` в любом случае, что вызывает событие `OnEndDrag`.
96	96
97	97		#### Модификации LCL
98	98
99	99		Текущая реализация LCL удалила обработку ввода из объекта перетаскивания, так что приложение больше не может настраивать пользовательский интерфейс. И реализация LCL далеко не в порядке :-(
100	100
101	101		Также объект перетаскивания игнорируется при представлении визуальной обратной связи.
102	102
103	103		### Вспомогательные (Helper) функции
104	104
105	105		Вспомогательные функции в первую очередь позволяют получить доступ к защищенным свойствам и методам элементов управления и других классов извне модуля `Controls`. Они также могут выполнять общие задачи и могут инкапсулировать специфические для платформы и другие детали реализации.
106	106
107	107		#### Общие помощники
108	108
109	109		DragTo (Только для Delphi, отсутствует в LCL) определяет текущую цель перетаскивания, отправляет уведомления задействованным элементам управления и управляет визуальной обратной связью. Он также обрабатывает отложенный старт операции перетаскивания, то есть может ждать, пока мышь не уйдет достаточно далеко от начальной точки.
110	110
111	111		DragDone (Только для Delphi, отсутствует в LCL) завершает перетаскивание либо cбросом элемента управления в контейнер, либо отменой операции.
112	112
113	113		CancelDrag (Только для Delphi, не путайте с глобальной процедурой LCL `CancelDrag`) защищен от ложных вызовов, иначе дальнейшие действия откладываются на `DragDone`.
114	114
115	115		#### Специальные помощники
116	116
117	117		Существует еще несколько общедоступных вспомогательных процедур, которые недокументированы в Delphi и не требуются для настраиваемых операций перетаскивания.
118	118
119	119		DragFindWindow выполняет поиск целевого перетаскиваемого окна (зависит от платформы).
120	120
121	121		DragInit Инициализирует внутреннее управление, такое как захват мыши, и визуальную обратную связь.
122	122
123	123		DragInitControl создает объект перетаскивания, затем вызывает `DragInit`.
124	124
125	125		SetCaptureControl обрабатывает захват мышью.
126	126
127	127		### События
128	128
129	129		#### OnStartDrag/Dock
130	130
131	131		Это событие происходит при запуске операции. Обработчик может предоставить настраиваемый `DockObject` для операции.
132	132
133	133		#### OnDrag/DockOver
134	134
135	135		Это событие уведомляет возможную цель, когда над ней перетаскивают объект. Обработчик может сигнализировать о принятии или отклонении отбрасывания.
136	136
137	137		Событие сигнализирует не только о перемещении мыши, но и о том, когда мышь входит в целевой элемент управления или покидает его.
138	138
139	139		Событие `OnDockOver` происходит на `DockSite`, а не в целевом элементе управления под указателем мыши. Обработчик может сигнализировать об отклонении сброса и может регулировать визуальную обратную связь. Событие происходит, когда мышь входит в элемент управления или выходит из него, а также при каждом движении мыши.
140	140
141	141		#### OnDrag/DockDrop
142	142
143	143		Это событие уведомляет целевой элемент управления об окончании операции перетаскивания.
144	144
145	145		#### OnEndDrag/Dock
146	146
147	147		Это событие уведомляет исходный элемент управления об окончании операции перетаскивания.
148	148
149	149		### События, специфические для стыковки
150	150
151	151		(этот раздел нужно переместить в раздел стыковки)
152	152
153	153		#### OnGetSiteInfo
154	154
155	155		Это событие происходит во время поиска подходящего стыковочного узла. Несколько стыковочных узлов могут перекрывать друг друга, располагаться в перекрывающихся окнах или могут быть невидимыми. Каждый кандидат должен предоставить прямоугольник влияния (область захвата) и может сигнализировать об отклонении сброса элемента управления. Диспетчер перетаскивания выбирает наиболее подходящий стыковочный узел в качестве цели для последующих событий `OnDockOver`.
156	156
157	157		#### OnUnDock
158	158
159	159		Это событие происходит, когда перетаскиваемый элемент управления необходимо удалить со стыковочного узла.
160	160
161	161		Непонятно, что должно произойти, если обработчик откажется отстыковывать элемент управления.
162	162
163	163		## LCL реализация
164	164
165	165		Реализация механизма перетаскивания в Delphi имеет много недостатков, особенно в части стыковки. До сих пор никто, кажется, не понимал деталей модели перетаскивания Delphi, большая часть кода была смоделирована после VCL и, следовательно, реализует точно такое же неправильное поведение. Этот раздел и, что более важно, страница, посвященная стыковке, должны пролить свет на модель перетаскивания в целом, а также на серьезные недостатки дизайна и реализации в реализации Delphi.
166	166
167	167		Текущая реализация LCL использует объект DragManager и исполнителей drag/dock вместо вспомогательных функций. Причина этого критического изменения неясна - кто сможет объяснить?
168	168
169	169		Хотя модель Delphi должна быть предоставлена по соображениям совместимости, введение класса и объекта DragManager(singleton) позволяет реализовать альтернативный диспетчер перетаскивания с улучшенным поведением и позволяет приложению выбирать наиболее подходящий диспетчер.
170	170
171	171		### DragManager
172	172
173	173		Этот объект обрабатывает захват ввода, предоставляет вспомогательные методы и сохраняет параметры перетаскивания и стыковки.
174	174
175	175		Сомнительно, чтобы объекту перетаскивания не разрешалось обрабатывать ввод пользователя. Это делает систему более безопасной, но не позволяет приложениям расширять пользовательский интерфейс для определенных операций перетаскивания.
176	176
177	177		Для вспомогательных методов требуются разные вызовы, но это безвредно, если они вызываются только из компонентов LCL.
178	178
179	179		Более важным является хранение параметров перетаскивания в объекте DragManager, которые исчезают при установке другого диспетчера перетаскивания. Это фатально в случае списка зарегистрированных стыковочных узлов :-(
180	180
181	181		### Исполнители механизма перетаскивания
182	182
183	183		Внутреннее использование разных классов для перетаскивания и стыковки допустимо, поскольку процедуры значительно различаются между операциями drag-drop и drag-dock. Тем не менее общие действия должны использовать общий код, например унаследован от общего базового класса.
184	184
185	185		## Диаграмма последовательности сообщений или диаграмма последовательности UML
186	186
187	187		Предоставлено Tom Verhoeff
188	188
189	189		Что-то вроде линий (это для Delphi; просмотр с моноширинным шрифтом):
190	190
191		-	~~` Main Drag (Optional) Drag`\~~
192		-	~~` User Event Source Drag Target`\~~
193		-	~~` (Mouse) Loop Control Object Control`\~~
194		-	~~` = = = =`\~~
195		-	~~` \| \| \| \|`\~~
196		-	~~` 1\|--MouseDown--->\| \| \|`\~~
197		-	~~` \| 2#--OnMouseDown->\| \|`\~~
198		-	~~` \| \| 3# \|`\~~
199		-	~~` \| 4#<-BeginDrag()--# \|`\~~
200		-	~~` \| # # \|`\~~
201		-	~~` \| \| \| \|`\~~
202		-	~~` \| 5#--OnStartDrag->\| \|`\~~
203		-	~~` \| # 6#----Create---->= \|`\~~
204		-	~~` \| \| # \| \|`\~~
205		-	~~` 7\|--MouseMove--->\| \| \| \|`\~~
206		-	~~` \| 8#-----------------------------------OnDragOver->\|`\~~
207		-	~~` \| # \| \| 9#`\~~
208		-	~~` \| # \| \| #`\~~
209		-	~~` \| \| \| \| \|`\~~
210		-	~~` 10\|---MouseUp---->\| \| \| \|`\~~
211		-	~~` \| 11#-----------------------------------OnDragDrop->\|`\~~
212		-	~~` \| # \| \| 12#`\~~
213		-	~~` \| # \| \| #`\~~
214		-	~~` \| #---OnEndDrag-->\| \| \|`\~~
215		-	~~` \| \| 13#----Destroy--->= \|`\~~
216		-	~~` \| \| \| \|`~~
	191	+	``` pascal
	192	+	Main Drag (Optional) Drag
	193	+	User Event Source Drag Target
	194	+	(Mouse) Loop Control Object Control
	195	+	= = = =
	196	+	\| \| \| \|
	197	+	1\|--MouseDown--->\| \| \|
	198	+	\| 2#--OnMouseDown->\| \|
	199	+	\| \| 3# \|
	200	+	\| 4#<-BeginDrag()--# \|
	201	+	\| # # \|
	202	+	\| \| \| \|
	203	+	\| 5#--OnStartDrag->\| \|
	204	+	\| # 6#----Create---->= \|
	205	+	\| \| # \| \|
	206	+	7\|--MouseMove--->\| \| \| \|
	207	+	\| 8#-----------------------------------OnDragOver->\|
	208	+	\| # \| \| 9#
	209	+	\| # \| \| #
	210	+	\| \| \| \| \|
	211	+	10\|---MouseUp---->\| \| \| \|
	212	+	\| 11#-----------------------------------OnDragDrop->\|
	213	+	\| # \| \| 12#
	214	+	\| # \| \| #
	215	+	\| #---OnEndDrag-->\| \| \|
	216	+	\| \| 13#----Destroy--->= \|
	217	+	\| \| \| \|
	218	+	```
217	219
218	220		`DragObject` не является обязательным. Может быть несколько потенциальных целей. Цикл главного события определяет, какое событие и какому объекту отправлять, в зависимости от действия пользователя, положения курсора и текущего состояния графического интерфейса.
219	221
220	222		4 некоторым образом запускает 5 есть задержка в зависимости от Boolean-параметра Immediate в `BeginDrag`).
221	223
222	224		6 определяет местоположение `MouseDown` и может использовать это для принятия решения, что перетаскивается (через `GetCursorPos`, `ScreenToClient`, `MouseToCell`). Он может вызывать `SetDragImage` для визуализации перетаскиваемого объекта.
223	225
224	226		Цепочка 7, 8, 9 может повторяться; 9 указывает на приемлемость сброса компонента на эту цель через Boolean-параметр `var Accepted`.
225	227
226	228		12 вызывается только в том случае, если непосредственно предшествующий событию `OnDragOver` этой цели вернул `Accepted = True`; т.е. `Accepted` - предварительное условие 12.
227	229
228	230		13 получает параметр `Target`, чтобы узнать, где был принят брошенный компонент; Если `Target=nil`, то сброс компонента был отменен пользователем (`MouseUp` в недопустимом месте), а `OnDragDrop` не было выполнено; Если `Target<>nil`, то `OnDragDrop` уже был выполнен на `Target`. Таким образом, работа, связанная с фактическим сбросом, делится на `OnDragDrop` (для действий в целевом объекте) и `OnEndDrag` (для действий в источнике). Поскольку объект перетаскивания необходимо уничтожить, независимо от того, было ли перетаскивание успешным или отмененным, лучше всего вызывать `Free` (или `Destroy`) только в обработчике `OnEndDrag`.
229	231
230	232		В любой момент может быть активным только одно перетаскивание; Он либо завершается сбросом компоента, либо отменой сброса.
231	233
232	234		Есть много других вещей, которые нужно включить, но это основная часть. (Можно также посмотреть [Delphi-Central](http://www.delphi-central.com/drag.aspx) или ["Implementing drag-and-drop in controls"](https://web.archive.org/web/20120422052012/http://www.podgoretsky.com/ftp/docs/Delphi/D5/dg/controls.html).)
233	235
234	236		Надеюсь, это поможет. Tom
235	237
236	238		## См. также
237	239
238	240		- [[Drag and Drop sample/ru\|Примеры Drag and Drop]]
239	241
240	242		---
241	243		From the Free Pascal wiki, page "LCL Drag Drop/ru", as it stood on 2021-08-19 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history