Изменение цвета линий в TChart при использовании Delphi

Delphi , Графика и Игры , Цвета и Палитра

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

Проблема использования цвета clWhite

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

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

Изначально, в модуле TeeCharts нет возможности указать цвет, который не должен использоваться. Однако, существует возможность программно пройтись по всем входам TLineSeries и убедиться, что в процессе выполнения программы они не используют clWhite. Пример кода на Object Pascal для установки цветов каждой серии из массива допустимых цветов:

procedure TForm1.SetColors(aChart: TChart; aColorArray: array of TColor);
var
  chi, coi: Integer;
begin
  coi := Low(aColorArray);
  for chi := 0 to aChart.SeriesList.Count - 1 do begin
    aChart.SeriesList[chi].Color := aColorArray[coi];
    Inc(coi);
    if coi > High(aColorArray) then
      coi := Low(aColorArray);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  ca: array of TColor;
begin
  SetLength(ca, 3);
  ca[0] := clRed;
  ca[1] := clBlue;
  ca[2] := clGreen;
  SetColors(Chart1, ca);
end;

Альтернативное решение с использованием ColorPalette

После дополнительного поиска был найден более удобный способ решения проблемы — использование массива ColorPalette. В модуле TeeProcs есть переменная __ColorPalette__ типа TColorArray, которая позволяет заменить цвет clWhite на другой цвет. Для восстановления стандартного палитры цветов необходимо вызвать метод SetDefaultColorPalette из того же модуля.

SetDefaultColorPalette; // Установка стандартной палитры цветов
ColorPalette[4] := $007FFF; // Замена цвета White на Orange
try
  // Добавление серий в диаграмму
finally
  SetDefaultColorPalette; // Восстановление стандартной палитры
end;

Также есть возможность создания пользовательской палитры цветов с помощью методов ClearPalette и AddPalette. Однако, стоит отметить, что эти методы предназначены для использования с 3D и поверхностными сериями.

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

В данной статье мы рассмотрели, как можно изменить цвета линий в компоненте TChart для разработки в среде Delphi, используя как программное управление цветами серий, так и встроенные возможности модуля TeeProcs для работы с палитрой цветов.

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

Изменение цвета линий в компоненте `TChart` в Delphi для улучшения восприятия данных на графике.

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

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

:: Главная :: Цвета и Палитра ::