LCL Drag Drop/ru: what changed

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

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