Difference between revisions of "LCL Drag Drop/ru"

From Lazarus wiki
Jump to navigationJump to search
(7 intermediate revisions by the same user not shown)
Line 75: Line 75:
  
 
=== Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля) ===
 
=== Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля) ===
−
A drag object receives all user input while dragging. In the default implementation it reacts by calling either DragTo or finally DragDone.
+
Перетаскиваемый объект получает весь пользовательский ввод при перетаскивании. В реализации по умолчанию он реагирует вызовом либо <code>DragMove</code>, либо <code>DragStop</code>.
  
−
The drag object also is responsible for the visual feedback:
+
Перетаскиваемый объект также отвечает за визуальную обратную связь:
−
* GetDragCursor returns the mouse pointer shape.
 
−
* GetDragImages returns a list of drag images, to be attached to the mouse pointer.
 
−
* ShowDragImage and HideDragImage implement the visual feedback.
 
  
−
The Finished method notifies the source control when dragging stops. In case of a cancel'd operation it invokes source.DragCanceled, followed by source.DoEndDrag in either case, which raises an EndDrag event.
+
* <code>GetDragCursor</code> возвращает форму указателя мыши.
 +
* <code>GetDragImages</code> возвращает список перетаскиваемых изображений, прикрепляемых к указателю мыши.
 +
* <code>ShowDragImage</code> и <code>HideDragImage</code> реализуют визуальную обратную связь.
  
−
==== LCL Modifications ====
+
Метод <code>EndDrag</code> уведомляет исходный элемент управления об остановке перетаскивания. В случае отмены операции он вызывает <code>SourceControl.DragCanceled</code>, за которым следует <code>SourceControl.DoEndDrag</code> в любом случае, что вызывает событие <code>OnEndDrag</code>.
−
The current LCL implementation has removed input processing from the drag object, so that the application can no more customize the UI. And the LCL implementation is far from being okay :-(
 
  
−
Also the drag object is bypassed in the presentation of the visual feedback.
 
  
−
=== Helper Functions ===
+
==== Модификации LCL ====
−
Helper functions primarily allow for access to protected properties and methods of the controls and other classes, from outside the Controls unit. They also can perform common tasks, and can encapsulate platform specific and other implementation details.
+
Текущая реализация LCL удалила обработку ввода из объекта перетаскивания, так что приложение больше не может настраивать пользовательский интерфейс. И реализация LCL далеко не в порядке :-(
  
−
==== General Helpers ====
+
Также объект перетаскивания игнорируется при представлении визуальной обратной связи.
−
'''DragTo''' (Delphi only, not present in LCL) determines the current drag target, sends notifications to the involved controls, and manages the visual feedback. It also handles the delayed start of a dragging operation, i.e. can wait for the mouse moving away far enough from the starting point.
 
  
−
'''DragDone''' (Delphi only, not present in LCL) terminates dragging, either with a drop or cancel of the operation.
+
=== Вспомогательные (Helper) функции ===
 +
Вспомогательные функции в первую очередь позволяют получить доступ к защищенным свойствам и методам элементов управления и других классов извне модуля <code>Controls</code>. Они также могут выполнять общие задачи и могут инкапсулировать специфические для платформы и другие детали реализации.
  
−
'''CancelDrag''' (Delphi only, do not confuse with the LCL global procedure CancelDrag) is protected against false calls, otherwise it defers further actions to DragDone.
+
==== Общие помощники ====
 +
'''DragTo''' (Только для Delphi, отсутствует в LCL) определяет текущую цель перетаскивания, отправляет уведомления задействованным элементам управления и управляет визуальной обратной связью. Он также обрабатывает отложенный старт операции перетаскивания, то есть может ждать, пока мышь не уйдет достаточно далеко от начальной точки.
  
−
==== Special Helpers ====
+
'''DragDone''' (Только для Delphi, отсутствует в LCL) завершает перетаскивание либо cбросом элемента управления в контейнер, либо отменой операции.
−
Some more public helper procedures exist, which are undocumented in Delphi and are not required for customized dragging operations.
 
  
−
'''DragFindWindow''' searches for a drag target window (platform specific).
+
'''CancelDrag''' (Только для Delphi, не путайте с глобальной процедурой LCL <code>CancelDrag</code>) защищен от ложных вызовов, иначе дальнейшие действия откладываются на <code>DragDone</code>.
  
−
'''DragInit''' initializes the internal management, like mouse capture, and the visual feedback.
+
==== Специальные помощники ====
 +
Существует еще несколько общедоступных вспомогательных процедур, которые недокументированы в Delphi и не требуются для настраиваемых операций перетаскивания.
  
−
'''DragInitControl''' creates the drag object, then calls DragInit.
+
'''DragFindWindow''' выполняет поиск целевого перетаскиваемого окна (зависит от платформы).
  
−
'''SetCaptureControl''' handles the mouse capture.
+
'''DragInit''' Инициализирует внутреннее управление, такое как захват мыши, и визуальную обратную связь.
  
−
=== Events ===
+
'''DragInitControl''' создает объект перетаскивания, затем вызывает <code>DragInit</code>.
 +
 
 +
'''SetCaptureControl''' обрабатывает захват мышью.
 +
 
 +
=== События ===
  
 
==== OnStartDrag/Dock ====
 
==== OnStartDrag/Dock ====
−
This event occurs when the operation starts. The handler can provide a custom DockObject for the operation.
+
Это событие происходит при запуске операции. Обработчик может предоставить настраиваемый <code>DockObject</code> для операции.
  
 
==== OnDrag/DockOver ====
 
==== OnDrag/DockOver ====
−
This event notifies a possible target, when an object is dragged over it. The handler can signal to accept or reject an drop.
+
Это событие уведомляет возможную цель, когда над ней перетаскивают объект. Обработчик может сигнализировать о принятии или отклонении отбрасывания.
  
−
The event signals not only mouse moves, but also when the mouse enters or leaves a target control.
+
Событие сигнализирует не только о перемещении мыши, но и о том, когда мышь входит в целевой элемент управления или покидает его.
  
−
An OnDockOver event occurs on the DockSite, not on the target control under the mouse. The handler can signal to deny an drop, and can adjust the visual feedback. The event occurs when the mouse enters or leaves a control, and with every single movement of the mouse.
+
Событие <code>OnDockOver</code> происходит на <code>DockSite</code>, а не в целевом элементе управления под указателем мыши. Обработчик может сигнализировать об отклонении сброса и может регулировать визуальную обратную связь. Событие происходит, когда мышь входит в элемент управления или выходит из него, а также при каждом движении мыши.
  
 
==== OnDrag/DockDrop ====
 
==== OnDrag/DockDrop ====
−
This event notifies the target control of the end of a drag operation.
+
Это событие уведомляет целевой элемент управления об окончании операции перетаскивания.
  
 
==== OnEndDrag/Dock ====
 
==== OnEndDrag/Dock ====
−
This event notifies the source control of the end of a drag operation.
+
Это событие уведомляет исходный элемент управления об окончании операции перетаскивания.
 +
 
 +
=== События, специфические для стыковки ===
 +
(этот раздел нужно переместить в раздел стыковки)
  
−
=== Docking specific Events ===
 
−
(this section should be moved to docking topic)
 
 
==== OnGetSiteInfo ====
 
==== OnGetSiteInfo ====
−
This event occurs during the search for a qualifying dock site. Multiple dock sites can overlap each other, reside in overlapping windows, or can be invisible. Every candidate must supply an influence rectangle (catching area), and can signal to reject an drop. The drag manager selects the most appropriate dock site as the target for subsequent OnDockOver events.
+
Это событие происходит во время поиска подходящего стыковочного узла. Несколько стыковочных узлов могут перекрывать друг друга, располагаться в перекрывающихся окнах или могут быть невидимыми. Каждый кандидат должен предоставить прямоугольник влияния (область захвата) и может сигнализировать об отклонении сброса элемента управления. Диспетчер перетаскивания выбирает наиболее подходящий стыковочный узел в качестве цели для последующих событий <code>OnDockOver</code>.
  
 
==== OnUnDock ====
 
==== OnUnDock ====
−
This event occurs when the dragged control has to be removed from its host dock site.
+
Это событие происходит, когда перетаскиваемый элемент управления необходимо удалить со стыковочного узла.
  
−
It's unclear what should happen when the handler denies to undock the control.
+
Непонятно, что должно произойти, если обработчик откажется отстыковывать элемент управления.
  
−
== LCL Implementation ==
+
== LCL реализация ==
−
The Delphi implementation of dragging has many flaws, in detail with regards to docking. Until now nobody seems to understand the details of the Delphi dragging model, most code was modeled after the VCL and consequently implements exactly the same misbehaviour. This section, and more important the docking specific page, shall shed some light on the dragging model in general and the severe design and implementation flaws in the Delphi implementation.
+
Реализация механизма перетаскивания в Delphi имеет много недостатков, особенно в части стыковки. До сих пор никто, кажется, не понимал деталей модели перетаскивания Delphi, большая часть кода была смоделирована после VCL и, следовательно, реализует точно такое же неправильное поведение. Этот раздел и, что более важно, страница, посвященная стыковке, должны пролить свет на модель перетаскивания в целом, а также на серьезные недостатки дизайна и реализации в реализации Delphi.
  
−
The current LCL implementation uses a DragManager object and drag/dock performers instead of helper functions. The reason for this breaking change is unclear - who can explain?
+
Текущая реализация LCL использует объект DragManager и исполнителей drag/dock вместо вспомогательных функций. Причина этого критического изменения неясна - кто сможет объяснить?
  
−
While the Delphi model must be provided for compatibility reasons, the introduction of a DragManager class and object (singleton) allows for the implementation of an alternative drag manager, with improved behaviour, and allows an application to select the most appropriate manager.
+
Хотя модель Delphi должна быть предоставлена ​​по соображениям совместимости, введение класса и объекта DragManager(singleton) позволяет реализовать альтернативный диспетчер перетаскивания с улучшенным поведением и позволяет приложению выбирать наиболее подходящий диспетчер.
  
 
=== DragManager ===
 
=== DragManager ===
−
This object handles the captured input, provides helper methods, and stores dragging and docking parameters.
+
Этот объект обрабатывает захват ввода, предоставляет вспомогательные методы и сохраняет параметры перетаскивания и стыковки.
  
−
It's questionable whether the drag object shall not be allowed to handle user input. It makes the system safer, but disallows applications to extend the user interface for specific dragging operations.
+
Сомнительно, чтобы объекту перетаскивания не разрешалось обрабатывать ввод пользователя. Это делает систему более безопасной, но не позволяет приложениям расширять пользовательский интерфейс для определенных операций перетаскивания.
  
−
The helper methods require different calls, but this is harmless as long as they are only called from LCL components.
+
Для вспомогательных методов требуются разные вызовы, но это безвредно, если они вызываются только из компонентов LCL.
  
−
More critical is the storage of dragging parameters in the DragManager object, which vanish when a different drag manager is installed. This is fatal in case of the list of registered dock sites :-(
+
Более важным является хранение параметров перетаскивания в объекте DragManager, которые исчезают при установке другого диспетчера перетаскивания. Это фатально в случае списка зарегистрированных стыковочных узлов :-(
  
−
=== Drag Performers ===
+
=== Исполнители механизма перетаскивания  ===
−
The internal use of different classes for dragging and docking is okay in so far, as the procedures differ significantly between drag-drop and drag-dock operations. Nonetheless common actions should use common code, e.g. inherited from the common base class.
+
Внутреннее использование разных классов для перетаскивания и стыковки допустимо, поскольку процедуры значительно различаются между операциями drag-drop и drag-dock. Тем не менее общие действия должны использовать общий код, например унаследован от общего базового класса.
  
−
== Message Sequence Chart or UML Sequence Diagram ==
+
== Диаграмма последовательности сообщений или диаграмма последовательности UML ==
  
−
Provided by Tom Verhoeff
+
Предоставлено Tom Verhoeff
  
−
Something along the lines (this is for Delphi; view with monospaced font):
+
Что-то вроде линий (это для Delphi; просмотр с моноширинным шрифтом):
  
 
                   Main            Drag          (Optional)        Drag
 
                   Main            Drag          (Optional)        Drag
Line 191: Line 194:
  
  
−
The DragObject is optional. There could be multiple candidate targets.
+
<code>DragObject</code> не является обязательным. Может быть несколько потенциальных целей.
−
The Main Event Loop determines which event to send to which object,
+
Цикл главного события определяет, какое событие и какому объекту отправлять,
−
depending on the user action, the cursor location, and the current state
+
в зависимости от действия пользователя, положения курсора и текущего состояния
−
of the GUI.
+
графического интерфейса.
  
−
4 somehow triggers 5 (there is a delay depending on the Boolean parameter
+
4 некоторым образом запускает 5 есть задержка в зависимости от Boolean-параметра
−
Immediate to BeginDrag).
+
Immediate в <code>BeginDrag</code>).
  
−
6 determines the location of the MouseDown and may use this to decide on
+
6 определяет местоположение <code>MouseDown</code> и может использовать это для принятия решения,
−
what gets dragged (through GetCursorPos, ScreenToClient, MouseToCell).
+
что перетаскивается (через <code>GetCursorPos</code>, <code>ScreenToClient</code>, <code>MouseToCell</code>).
−
It can call SetDragImage to visualize a thing being dragged.
+
Он может вызывать <code>SetDragImage</code> для визуализации перетаскиваемого объекта.
  
−
The chain 7, 8, 9 can occur repeatedly; 9 indicates acceptability
+
Цепочка 7, 8, 9 может повторяться; 9 указывает на приемлемость
−
of a drop at this target via the Boolean var parameter Accepted.
+
сброса компонента на эту цель через Boolean-параметр <code>var Accepted</code>.
  
−
12 is called only if the immediately preceding OnDragOver of this target
+
12 вызывается только в том случае, если непосредственно предшествующий событию <code>OnDragOver</code> этой цели
−
returned Accepted = True; i.e. Accepted is a precondition of 12.
+
вернул <code>Accepted = True</code>; т.е. <code>Accepted</code> - предварительное условие 12.
  
−
13 receives the parameter Target to know where the drop was accepted;
+
13 получает параметр <code>Target</code>, чтобы узнать, где был принят брошенный компонент;  
−
if Target = nil, then the drop was cancelled by the user
+
Если <code>Target=nil</code>, то сброс компонента был отменен пользователем
−
(MouseUp at an unacceptable location), and OnDragDrop was not performed;
+
(<code>MouseUp</code> в недопустимом месте), а <code>OnDragDrop</code> не было выполнено;  
−
if Target <> nil, then OnDragDrop was already performed at the Target.
+
Если <code>Target<>nil</code>, то <code>OnDragDrop</code> уже был выполнен на <code>Target</code>.  
−
The work associated with an actual drop is thus divided over the
+
Таким образом, работа, связанная с фактическим сбросом, делится
−
OnDragDrop (for actions at the target) and OnEndDrag (for actions at
+
на <code>OnDragDrop</code> (для действий в целевом объекте) и
−
the source). Since a Drag Object needs to be destroyed, independent
+
<code>OnEndDrag</code> (для действий в источнике). Поскольку объект перетаскивания необходимо
−
of whether the drop was successful or canceled, it is best to call
+
уничтожить, независимо от того, было ли перетаскивание успешным или отмененным,  
−
Free (or Destroy) only in the OnEndDrag handler.
+
лучше всего вызывать <code>Free</code> (или <code>Destroy</code>) только в обработчике <code>OnEndDrag</code>.
  
−
Only one drag can be active at any moment; it either ends in a drop or is
+
В любой момент может быть активным только одно перетаскивание; Он либо завершается
−
canceled.
+
сбросом компоента, либо отменой сброса.
  
−
There are various other things to be included, but this is the fundamental
+
Есть много других вещей, которые нужно включить, но это основная часть.  (Можно также
−
part.  (Maybe also see [http://www.delphi-central.com/drag.aspx Delphi-Central] or
+
посмотреть [http://www.delphi-central.com/drag.aspx Delphi-Central] или
−
[http://www.podgoretsky.com/ftp/Docs/Delphi/D5/dg/controls.html "Implementing drag-and-drop in controls"].)
+
[https://web.archive.org/web/20120422052012/http://www.podgoretsky.com/ftp/docs/Delphi/D5/dg/controls.html "Implementing drag-and-drop in controls"].)
  
−
I hope this is helpful. Tom
+
Надеюсь, это поможет. Tom
  
−
== See also ==
+
== См. также ==
−
* [[Drag and Drop sample]]
+
* [[Drag and Drop sample| Примеры Drag and Drop]]

Revision as of 18:16, 19 January 2021

│ English (en) │ français (fr) │ русский (ru) │


Руководство DoDi по Dragging (перетаскиванию), Dropping (бросанию компонента) и Docking (стыковке)

Элементы управления в графическом интерфейсе можно захватить с помощью мыши, перетащить в другие места и перетащить на другие элементы управления или на рабочий стол. Когда перетаскиваемый элемент управления перемещается в другое место, операция называется "docking". В противном случае исходный и целевой элементы управления могут обмениваться информацией или взаимодействовать любым другим способом, что называется операцией "drag-drop" (тащи-бросай).

Но все это не работает само по себе, приложение должно настроить разрешенные операции, чтобы LCL знал, что делать с каждым элементом управления в графическом интерфейсе. Сложные операции требуют дополнительного кода для управления визуальной обратной связью с пользователем приложения и того, что произойдет, когда перетаскиваемый элемент управления, наконец, будет отброшен.

Для простой поддержки стыковки во всех приложениях вы можете использовать EasyDockingManager или Anchor Docking, что сводит к минимуму необходимые адаптации.

Drag Drop

Это простое и изначально действие только перетаскивания. Участники:

  • Позволяющий перетаскивать себя элемент управления в графическом интерфейсе
  • Объект перетаскивания, производный от TDragObject
  • Вспомогательные функции
  • События

Теперь давайте посмотрим, как они работают вместе.

Источник перетаскивания

Элемент управления можно сделать перетаскиваемым, установив для его свойства DragMode значение dmAutomatic. Когда пользователь нажимает левую кнопку мыши на таком элементе управления, указатель мыши превращается в индикатор перетаскивания, пока пользователь не отпустит кнопку или не отменит операцию, нажав клавишу Escape. Индикатор теперь следует за движениями мыши и меняет свою форму в соответствии с тем, что произойдет, когда элемент управления будет брошен в текущее место.

Перетаскивание также можно запустить в коде, вызвав SourceControl.BeginDrag. В любом случае вызывается вспомогательная процедура DragManager.DragStart для начала перетаскивания. DragManager - это глобальный экземпляр, реализующий фактическое перетаскивание. Он инициализируется значением по умолчанию TDragManagerDefault и может быть заменен программистом (Вами). В зависимости от DragKind элемента управления запускается операция перетаскивания или стыковки. Исходный элемент управления запускает событие OnStartDrag, в котором программист может предоставить пользовательский объект перетаскивания. Если такой объект не указан, создается объект по умолчанию (TDragControlObject или TDragDockObject). Инициализируются внутренние структуры данных для визуальной обратной связи и прочего.

Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля)

Перетаскиваемый объект получает весь пользовательский ввод при перетаскивании. В реализации по умолчанию он реагирует вызовом либо DragMove, либо DragStop.

Перетаскиваемый объект также отвечает за визуальную обратную связь:

  • GetDragCursor возвращает форму указателя мыши.
  • GetDragImages возвращает список перетаскиваемых изображений, прикрепляемых к указателю мыши.
  • ShowDragImage и HideDragImage реализуют визуальную обратную связь.

Метод EndDrag уведомляет исходный элемент управления об остановке перетаскивания. В случае отмены операции он вызывает SourceControl.DragCanceled, за которым следует SourceControl.DoEndDrag в любом случае, что вызывает событие OnEndDrag.

События

OnStartDrag/Dock

Это событие происходит при запуске операции. Обработчик может предоставить настраиваемый TDragObject или TDragDockObject для операции.

OnDrag/DockOver

Это событие уведомляет возможную цель, когда над ней перетаскивают объект. Обработчик может сигнализировать о принятии или отклонении сброса компонента.

Событие сигнализирует не только о перемещении мыши, но и о том, когда мышь входит в зону целевого элемента управления или покидает ее.

Событие OnDockOver происходит на DockSite, а не в целевом элементе управления под указателем мыши. Обработчик может сигнализировать об отклонении сброса и может регулировать визуальную обратную связь. Событие происходит, когда мышь входит в зону элемента управления или выходит из нее, а также при каждом движении мыши.

OnDrag/DockDrop

Это событие уведомляет целевой элемент управления об окончании операции перетаскивания.

OnEndDrag/Dock

Это событие уведомляет исходный элемент управления об окончании операции перетаскивания.

Основные недостатки

  • Те же недостатки, что и у Delphi VCL.
  • Нет поддержки платформы LCL (кроссплатформа) для перетаскивания компонентов из приложения LCL в любое другое приложение. Чтобы это работало, LCL необходима поддержка протокола XDND в X11, поддержка OLE Drag-n-Drop в Windows и Mac Drag Manager в OSX.
  • Нет поддержки платформы LCL (кроссплатформа) для приема сбрасываемых компонентов внутри приложения LCL из другого приложения (рабочего стола, файлового менеджера и т.д.). Обработчик событий OnDragDrop всегда ожидает, что перетаскиваемый компонент(Source) будет передаваться как потомок TObject, что не будет иметь место при перетаскивании объекта из другого приложения в приложение LCL.

Delphi

Drag Drop

Это простое и изначально действие только перетаскивания. Участники:

  • Позволяющий перетаскивать себя элемент управления в графическом интерфейсе
  • Объект перетаскивания, производный от TDragObject
  • Вспомогательные функции
  • События

Теперь давайте посмотрим, как они работают вместе, на основе исходной реализации Delphi для ясности. Реализация LCL несколько отличается в использовании вспомогательных объектов, подробности будут обсуждены позже.

Перетаскиваемый источник(объект)

Элемент управления можно сделать перетаскиваемым, установив для его свойства DragMode значение dmAutomatic. Когда пользователь нажимает левую кнопку мыши на таком элементе управления, указатель мыши превращается в индикатор перетаскивания, пока пользователь не отпустит кнопку или не отменит операцию, нажав клавишу Escape. Индикатор теперь следует за движениями мыши и меняет свою форму в соответствии с тем, что произойдет, когда элемент управления будет брошен в текущее место.

Перетаскивание также можно запустить программно, вызвав Source.BeginDrag. В любом случае вызывается вспомогательная процедура DragInitControl для начала перетаскивания. Исходный элемент управления вызывает событие StartDrag, в котором приложение может предоставить настраиваемый объект перетаскивания. Если такой объект не указан, создается объект по умолчанию. Инициализируются внутренние структуры данных для визуальной обратной связи и прочего. Затем вызывается DragTo, чтобы показать, что перетаскивание началось.

Перетаскиваемый объект (TDragObject, определенный в элементах управления модуля)

Перетаскиваемый объект получает весь пользовательский ввод при перетаскивании. В реализации по умолчанию он реагирует вызовом либо DragMove, либо DragStop.

Перетаскиваемый объект также отвечает за визуальную обратную связь:

  • GetDragCursor возвращает форму указателя мыши.
  • GetDragImages возвращает список перетаскиваемых изображений, прикрепляемых к указателю мыши.
  • ShowDragImage и HideDragImage реализуют визуальную обратную связь.

Метод EndDrag уведомляет исходный элемент управления об остановке перетаскивания. В случае отмены операции он вызывает SourceControl.DragCanceled, за которым следует SourceControl.DoEndDrag в любом случае, что вызывает событие OnEndDrag.


Модификации LCL

Текущая реализация LCL удалила обработку ввода из объекта перетаскивания, так что приложение больше не может настраивать пользовательский интерфейс. И реализация LCL далеко не в порядке :-(

Также объект перетаскивания игнорируется при представлении визуальной обратной связи.

Вспомогательные (Helper) функции

Вспомогательные функции в первую очередь позволяют получить доступ к защищенным свойствам и методам элементов управления и других классов извне модуля Controls. Они также могут выполнять общие задачи и могут инкапсулировать специфические для платформы и другие детали реализации.

Общие помощники

DragTo (Только для Delphi, отсутствует в LCL) определяет текущую цель перетаскивания, отправляет уведомления задействованным элементам управления и управляет визуальной обратной связью. Он также обрабатывает отложенный старт операции перетаскивания, то есть может ждать, пока мышь не уйдет достаточно далеко от начальной точки.

DragDone (Только для Delphi, отсутствует в LCL) завершает перетаскивание либо cбросом элемента управления в контейнер, либо отменой операции.

CancelDrag (Только для Delphi, не путайте с глобальной процедурой LCL CancelDrag) защищен от ложных вызовов, иначе дальнейшие действия откладываются на DragDone.

Специальные помощники

Существует еще несколько общедоступных вспомогательных процедур, которые недокументированы в Delphi и не требуются для настраиваемых операций перетаскивания.

DragFindWindow выполняет поиск целевого перетаскиваемого окна (зависит от платформы).

DragInit Инициализирует внутреннее управление, такое как захват мыши, и визуальную обратную связь.

DragInitControl создает объект перетаскивания, затем вызывает DragInit.

SetCaptureControl обрабатывает захват мышью.

События

OnStartDrag/Dock

Это событие происходит при запуске операции. Обработчик может предоставить настраиваемый DockObject для операции.

OnDrag/DockOver

Это событие уведомляет возможную цель, когда над ней перетаскивают объект. Обработчик может сигнализировать о принятии или отклонении отбрасывания.

Событие сигнализирует не только о перемещении мыши, но и о том, когда мышь входит в целевой элемент управления или покидает его.

Событие OnDockOver происходит на DockSite, а не в целевом элементе управления под указателем мыши. Обработчик может сигнализировать об отклонении сброса и может регулировать визуальную обратную связь. Событие происходит, когда мышь входит в элемент управления или выходит из него, а также при каждом движении мыши.

OnDrag/DockDrop

Это событие уведомляет целевой элемент управления об окончании операции перетаскивания.

OnEndDrag/Dock

Это событие уведомляет исходный элемент управления об окончании операции перетаскивания.

События, специфические для стыковки

(этот раздел нужно переместить в раздел стыковки)

OnGetSiteInfo

Это событие происходит во время поиска подходящего стыковочного узла. Несколько стыковочных узлов могут перекрывать друг друга, располагаться в перекрывающихся окнах или могут быть невидимыми. Каждый кандидат должен предоставить прямоугольник влияния (область захвата) и может сигнализировать об отклонении сброса элемента управления. Диспетчер перетаскивания выбирает наиболее подходящий стыковочный узел в качестве цели для последующих событий OnDockOver.

OnUnDock

Это событие происходит, когда перетаскиваемый элемент управления необходимо удалить со стыковочного узла.

Непонятно, что должно произойти, если обработчик откажется отстыковывать элемент управления.

LCL реализация

Реализация механизма перетаскивания в Delphi имеет много недостатков, особенно в части стыковки. До сих пор никто, кажется, не понимал деталей модели перетаскивания Delphi, большая часть кода была смоделирована после VCL и, следовательно, реализует точно такое же неправильное поведение. Этот раздел и, что более важно, страница, посвященная стыковке, должны пролить свет на модель перетаскивания в целом, а также на серьезные недостатки дизайна и реализации в реализации Delphi.

Текущая реализация LCL использует объект DragManager и исполнителей drag/dock вместо вспомогательных функций. Причина этого критического изменения неясна - кто сможет объяснить?

Хотя модель Delphi должна быть предоставлена ​​по соображениям совместимости, введение класса и объекта DragManager(singleton) позволяет реализовать альтернативный диспетчер перетаскивания с улучшенным поведением и позволяет приложению выбирать наиболее подходящий диспетчер.

DragManager

Этот объект обрабатывает захват ввода, предоставляет вспомогательные методы и сохраняет параметры перетаскивания и стыковки.

Сомнительно, чтобы объекту перетаскивания не разрешалось обрабатывать ввод пользователя. Это делает систему более безопасной, но не позволяет приложениям расширять пользовательский интерфейс для определенных операций перетаскивания.

Для вспомогательных методов требуются разные вызовы, но это безвредно, если они вызываются только из компонентов LCL.

Более важным является хранение параметров перетаскивания в объекте DragManager, которые исчезают при установке другого диспетчера перетаскивания. Это фатально в случае списка зарегистрированных стыковочных узлов :-(

Исполнители механизма перетаскивания

Внутреннее использование разных классов для перетаскивания и стыковки допустимо, поскольку процедуры значительно различаются между операциями drag-drop и drag-dock. Тем не менее общие действия должны использовать общий код, например унаследован от общего базового класса.

Диаграмма последовательности сообщений или диаграмма последовательности UML

Предоставлено Tom Verhoeff

Что-то вроде линий (это для Delphi; просмотр с моноширинным шрифтом): 

                  Main            Drag          (Optional)        Drag
  User            Event          Source           Drag           Target
 (Mouse)          Loop           Control          Object         Control
    =               =               =                               =
    |               |               |                               |
   1|--MouseDown--->|               |                               |
    |              2#--OnMouseDown->|                               |
    |               |              3#                               |
    |              4#<-BeginDrag()--#                               |
    |               #               #                               |
    |               |               |                               |
    |              5#--OnStartDrag->|                               |
    |               #              6#----Create---->=               |
    |               |               #               |               |
   7|--MouseMove--->|               |               |               |
    |              8#-----------------------------------OnDragOver->|
    |               #               |               |              9#
    |               #               |               |               #
    |               |               |               |               |
  10|---MouseUp---->|               |               |               |
    |             11#-----------------------------------OnDragDrop->|
    |               #               |               |             12#
    |               #               |               |               #
    |               #---OnEndDrag-->|               |               |
    |               |             13#----Destroy--->=               |
    |               |               |                               |


DragObject не является обязательным. Может быть несколько потенциальных целей. Цикл главного события определяет, какое событие и какому объекту отправлять, в зависимости от действия пользователя, положения курсора и текущего состояния графического интерфейса.

4 некоторым образом запускает 5 есть задержка в зависимости от Boolean-параметра Immediate в BeginDrag).

6 определяет местоположение MouseDown и может использовать это для принятия решения, что перетаскивается (через GetCursorPos, ScreenToClient, MouseToCell). Он может вызывать SetDragImage для визуализации перетаскиваемого объекта.

Цепочка 7, 8, 9 может повторяться; 9 указывает на приемлемость сброса компонента на эту цель через Boolean-параметр var Accepted.

12 вызывается только в том случае, если непосредственно предшествующий событию OnDragOver этой цели вернул Accepted = True; т.е. Accepted - предварительное условие 12.

13 получает параметр Target, чтобы узнать, где был принят брошенный компонент; Если Target=nil, то сброс компонента был отменен пользователем (MouseUp в недопустимом месте), а OnDragDrop не было выполнено; Если Target<>nil, то OnDragDrop уже был выполнен на Target. Таким образом, работа, связанная с фактическим сбросом, делится на OnDragDrop (для действий в целевом объекте) и OnEndDrag (для действий в источнике). Поскольку объект перетаскивания необходимо уничтожить, независимо от того, было ли перетаскивание успешным или отмененным, лучше всего вызывать Free (или Destroy) только в обработчике OnEndDrag.

В любой момент может быть активным только одно перетаскивание; Он либо завершается сбросом компоента, либо отменой сброса.

Есть много других вещей, которые нужно включить, но это основная часть. (Можно также посмотреть Delphi-Central или "Implementing drag-and-drop in controls".)

Надеюсь, это поможет. Tom

См. также

Retrieved from "http://wiki.freepascal.org/index.php?title=LCL_Drag_Drop/ru&oldid=142492"