Настройка докинга в Delphi: управление прямоугольниками докинга для сохранения высоты и ширины панелей

Delphi , Синтаксис , Drag and Drop

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

Вопрос пользователя:

Пользователь спрашивает, возможно ли контролировать прямоугольник предварительного просмотра и конечного докинга таким образом, чтобы докируемая панель сохраняла свою высоту и занимала всю ширину правой панели. То есть, создать эффект "сnap-in", при котором первая панель после докинга располагается вверху правой панели с сохранением своей высоты, а вторая панель, докируемая следом, располагается под первой с сохранением своей высоты.

Решение проблемы:

Для реализации такого поведения докинга необходимо использовать события DockDrop, DockOver и UnDock, предоставляемые компонентом Docking. В этих событиях можно изменить свойства компонентов, таких как Align и DockRect, чтобы управлять их положением и размером при докинге.

Пример кода:

procedure TForm3.ScrollBox1DockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer);
begin
  Source.Control.Align := alTop;
end;

procedure TForm3.ScrollBox1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);
begin
  Client.Align := alNone;
end;

procedure TForm3.ScrollBox1DockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
var
  ARect: TRect;
begin
  Accept := Source.Control is TPanel;
  if Accept then
  begin
    ARect.TopLeft := (Sender as TScrollBox).ClientToScreen(Point(0, Y));
    ARect.BottomRight := (Sender as TScrollBox).ClientToScreen(Point((Sender as TScrollBox).ClientWidth, Source.Control.Height + Y));
    Source.DockRect := ARect;
  end;
end;

В этих процедурах DockDrop и DockOver задается выравнивание компонента и размеры предварительного просмотра, а в UnDock - возвращается исходное выравнивание компонента, чтобы при отстыковке он не сохранил измененные размеры.

Альтернативный ответ:

Пользователь предполагает, что для достижения желаемого эффекта может потребоваться использовать свою систему перетаскивания (Drag and Drop) вместо стандартного докинга, чтобы реализовать "сnap-in" эффект.

Подтвержденный ответ:

Как видно из примера кода, можно управлять размерами и позиционированием докируемых панелей, изменяя их свойства в процессе докинга. Это позволяет создать "сnap-in" эффект, при котором панели располагаются друг под другом, сохраняя свою высоту и занимая всю ширину родительского компонента.

Дополнительная информация:

Для более глубокого изучения возможностей докинга и примеров кастомизации Docking Manager можно обратиться к следующему вопросу на Stack Overflow: How do I make dockable forms like the IDE's without the very slow freezing movement of the dockable form?

Комментарии:

Благодарность за рабочий пример предварительного просмотра, а также информация о том, что для корректной работы DockOver необходимо установить свойство UseDockManager правой панели в False. Также пользователь интересуется примером кода для кастомизации Docking Manager, однако конкретных примеров в открытом доступе не обнаружено. Возможно, полезной будет информация о наличии открытых решений для компонентов докинга, которые можно использовать для дальнейшего анализа и возможной модификации под свои нужды.

Создано по материалам из источника по ссылке.

Настройка докинга в Delphi, управление прямоугольниками докинга для сохранения высоты и ширины панелей с использованием событий DockDrop, DockOver и UnDock.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Drag and Drop ::