Как настроить стили пера для многоуровневой серии в Delphi: использование psClear для отображения выпадающих линий

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

Введение

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

Проблема: черная граница вокруг AreaSeries

Как отмечал пользователь kapibara на форуме, при использовании AreaSeries с включенными стилями (ChartStyles) черная граница вокруг области графика не исчезает, несмотря на применение стандартных настроек:

Chart1AreaSeries1.AreaContourPen.Style := psClear;  // внешняя граница
Chart1AreaSeries1.AreaLinesPen.Style := psClear;    // вертикальные выпадающие линии

Решение для многоуровневых серий

Как объяснил участник wp, проблема возникает при использовании многоуровневых серий, где стили (Styles) переопределяют настройки пера. В этом случае необходимо настроить каждое свойство Pen.Style для отдельных элементов стиля:

procedure TGeneralFrame.UpdateStyles(Count: Integer);
const
  COLORS: array[0..4] of TColor = (clRed, clBlue, clYellow, clGreen, clFuchsia);
var
  i: Integer;
begin
  ChartStyles.Styles.Clear;
  for i := 1 to Count do
    with ChartStyles.Add do 
    begin
      Brush.Color := COLORS[i-1];
      Pen.Width := 3;
      Pen.Style := psClear;  // Ключевая строка - отключаем границу
      Text := 'Curve ' + IntToStr(i);
    end;
end;

Альтернативные решения

1. Отключение стилей
   Если вам не нужна индивидуальная настройка для каждого уровня данных, можно просто отключить ChartStyles:
   pascal ChartStyles.Styles.Clear;

2. Глобальная настройка пера
   Для простых случаев может сработать установка стиля пера непосредственно для серии:
   pascal Chart1AreaSeries1.AreaContourPen.Style := psClear; Chart1AreaSeries1.AreaLinesPen.Style := psClear;

Практический пример

Рассмотрим полный пример настройки AreaSeries без границ:

procedure TForm1.SetupAreaSeries;
begin
  // Очищаем существующие данные
  Chart1.ClearSeries;

  // Создаем и настраиваем AreaSeries
  with TAreaSeries.Create(Chart1) do
  begin
    ParentChart := Chart1;
    SeriesColor := clBlue;
    AreaContourPen.Style := psClear;
    AreaLinesPen.Style := psClear;

    // Добавляем данные
    AddXY(1, 5);
    AddXY(2, 8);
    AddXY(3, 3);
    AddXY(4, 6);
  end;

  // Настройка стилей для многоуровневой серии
  if ChartStyles.Styles.Count > 0 then
  begin
    for var i := 0 to ChartStyles.Styles.Count-1 do
      ChartStyles.Styles[i].Pen.Style := psClear;
  end;
end;

Заключение

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

Для более сложных сценариев всегда можно обратиться к исходному коду TAChart или задать вопрос на специализированных форумах, где опытные разработчики, такие как wp и paweld, смогут помочь с решением вашей конкретной задачи.

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

Статья описывает решение проблемы черной границы в AreaSeries Delphi через настройку стилей пера и ChartStyles.

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

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

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