Изменение функции уменьшения масштаба TaChart на двойной клик мыши

Delphi , Компоненты и Классы , TChartFX

В процессе разработки приложений с использованием библиотеки TaChart, часто возникает необходимость внесения изменений в поведение пользовательского интерфейса для улучшения удобства взаимодействия с графиками. Одним из таких случаев является изменение функции сброса масштаба (unZoom) с одинарного клика мыши на двойной клик. Это особенно полезно, если одинарный клик может случайно вызвать сброс масштаба, что может привести к потере полезной информации, особенно при работе с большими наборами данных или сложными графиками.

В данной статье мы рассмотрим, как изменить поведение сброса масштаба в TaChart на двойной клик мыши, а также рассмотрим альтернативные подходы для решения этой задачи. Мы будем использовать примеры кода на Object Pascal (Delphi) для иллюстрации процесса.

Описание проблемы

По умолчанию в TaChart функция сброса масштаба (unZoom) активируется при одинарном клике мыши. Это может быть неудобно, если пользователь случайно нажимает на график, что приводит к сбросу масштаба и утрате деталей графика. В таких случаях желательно изменить поведение на двойной клик мыши.

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

Для решения этой проблемы можно использовать TChartToolset и TUserDefinedTool из библиотеки TaChart. Эти компоненты позволяют настроить поведение инструментов графика и перехватывать события мыши для изменения их функционала.

Шаг 1: Добавление TChartToolset

Первым шагом является добавление компонента TChartToolset на форму. Этот компонент используется для управления набором инструментов графика. В свойстве Tools компонента TChartToolset нужно указать ссылку на ваш TChart, чтобы инструменты были связаны с ним.

uses
  ...,
  TeeChartEngine, TeeTools, TeeUserDefinedTool;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Добавляем TChartToolset на форму
  ChartToolset1 := TChartToolset.Create(Self);
  ChartToolset1.Parent := Chart1;
  ChartToolset1.Tools := Chart1.Tools;
end;

Шаг 2: Добавление TZoomDragTool

Далее добавим TZoomDragTool в набор инструментов. Этот инструмент отвечает за масштабирование и перетаскивание графика. Мы будем использовать его, чтобы отключить сброс масштаба при одинарном клике.

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Добавляем TZoomDragTool в набор инструментов
  ZoomDragTool1 := TZoomDragTool.Create(ChartToolset1);
  ZoomDragTool1.Parent := ChartToolset1;
  ZoomDragTool1.Shift := [ssLeft];
  ZoomDragTool1.RestoreExtentOn := [zreClick]; // Оставляем для отладки
end;

Шаг 3: Добавление TUserDefinedTool

Теперь добавим TUserDefinedTool в набор инструментов. Этот инструмент позволяет нам перехватывать события мыши и выполнять пользовательские действия.

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Добавляем TUserDefinedTool в набор инструментов
  UserDefinedTool1 := TUserDefinedTool.Create(ChartToolset1);
  UserDefinedTool1.Parent := ChartToolset1;
  UserDefinedTool1.Shift := [ssDouble, ssLeft];
end;

Шаг 4: Обработка события OnAfterMouseDown

В событии OnAfterMouseDown TUserDefinedTool мы можем добавить код для сброса масштаба при двойном клике мыши.

procedure TForm1.ChartToolset1UserDefinedTool1AfterMouseDown(ATool: TChartTool;
  APoint: TPoint);
begin
  // Сбрасываем масштаб при двойном клике мыши
  Chart1.ZoomFull;
end;

Шаг 5: Отключение встроенных инструментов

Для того чтобы отключить встроенные инструменты, которые могут конфликтовать с нашими настройками, необходимо отключить их в свойстве Tools TChart.

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Отключаем встроенные инструменты
  Chart1.Tools := nil;
  Chart1.Tools := ChartToolset1;
end;

Альтернативное решение

Если вы предпочитаете более гибкий подход, можно использовать события мыши напрямую на TChart, чтобы перехватывать клики и выполнять нужные действия.

Шаг 1: Подключение событий мыши

Для этого нужно подключить события OnMouseDown и OnMouseUp к TChart.

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Сохраняем координаты клика
  MouseDownX := X;
  MouseDownY := Y;
end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Проверяем, был ли двойной клик
  if (Button = mbLeft) and (Shift = [ssDouble]) then
  begin
    Chart1.ZoomFull;
  end;
end;

Шаг 2: Проверка на двойной клик

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

uses
  ..., ExtCtrls;

var
  Timer: TTimer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer := TTimer.Create(Self);
  Timer.Interval := 200; // 200 мс - время для двойного клика
  Timer.OnTimer := TimerClick;
  Timer.Enabled := False;
end;

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbLeft) and (Shift = [ssDouble]) then
  begin
    TimerClick(nil);
  end
  else
  begin
    Timer.Enabled := True;
  end;
end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer.Enabled := False;
end;

procedure TForm1.TimerClick(Sender: TObject);
begin
  // Обработка двойного клика
  Chart1.ZoomFull;
  Timer.Enabled := False;
end;

Заключение

В данной статье мы рассмотрели два подхода для изменения функции сброса масштаба в TaChart с одинарного клика на двойной клик. Первый подход использует компоненты TChartToolset и TUserDefinedTool, а второй использует события мыши напрямую на TChart. Оба подхода позволяют настроить поведение графика таким образом, чтобы случайный клик не вызывал сброс масштаба.

Выбор подхода зависит от ваших предпочтений и требований к приложению. Если вам нужно более гибкое управление инструментами графика, можно использовать первый подход. Если вам нужно простое решение, которое не требует дополнительных компонентов, можно использовать второй подход.

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

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

Context представляет собой руководство по изменению поведения сброса масштаба в библиотеке TaChart с одинарного клика на двойной клик мыши, с примерами кода на Object Pascal и альтернативными подходами для решения задачи.

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

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

:: Главная :: TChartFX ::