Как изменить цветовую схему в TAChart для красивого отображения диаграмм в Delphi

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

Введение

При работе с диаграммами в Delphi с использованием компонента TAChart (TeeChart) одним из важных аспектов является визуальное оформление. В частности, цветовая схема может значительно повлиять на восприятие данных. В этой статье мы рассмотрим различные способы настройки цветов в TAChart, особенно для PieChart (круговой диаграммы, которую автор темы называет "cake shaped").

Основной способ задания цветов

Как было указано в контексте, базовый способ задания цветов для серии данных - это использование четвертого параметра в методе AddXY:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1PieSeries1.AddXY(0, 30, '', $317DED);
  Chart1PieSeries1.AddXY(0, 60, '', $A5A5A5);
  Chart1PieSeries1.AddXY(0, 10, '', $00CCFF);
  Chart1PieSeries1.AddXY(0, 120, '', $D59B5B);
  Chart1PieSeries1.AddXY(0, 20, '', $47AD70);
end;

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

Альтернативные способы настройки цветов

1. Использование предопределенных палитр

Хотя в TAChart нет встроенных цветовых палитр, вы можете создать свои собственные коллекции гармоничных цветов:

type
  TColorArray = array of TColor;

const
  PastelPalette: TColorArray = ($FFC0CB, $FFD700, $98FB98, $87CEFA, $E6E6FA);
  EarthTones: TColorArray = ($D2B48C, $8B4513, $A0522D, $CD853F, $F5DEB3);
  OceanColors: TColorArray = ($000080, $1E90FF, $00BFFF, $5F9EA0, $AFEEEE);

procedure ApplyColorPalette(ASeries: TChartSeries; APalette: TColorArray);
var
  i: Integer;
begin
  for i := 0 to ASeries.Count - 1 do
    ASeries.ListSource.Item[i]^.Color := APalette[i mod Length(APalette)];
end;

Использование:

ApplyColorPalette(Chart1PieSeries1, PastelPalette);

2. Генерация гармоничных цветов алгоритмически

Вы можете автоматически генерировать гармоничные цветовые схемы:

function GetHarmonicColor(BaseColor: TColor; Index, Total: Integer): TColor;
var
  H, S, L: Double;
  R, G, B: Byte;
begin
  // Преобразуем базовый цвет в HSL
  ColorToHSL(BaseColor, H, S, L);

  // Изменяем оттенок для каждого элемента
  H := H + (Index * 360/Total);
  while H >= 360 do H := H - 360;

  // Преобразуем обратно в RGB
  Result := HSLToColor(H, S, L);
end;

procedure ApplyHarmonicColors(ASeries: TChartSeries; BaseColor: TColor);
var
  i: Integer;
begin
  for i := 0 to ASeries.Count - 1 do
    ASeries.ListSource.Item[i]^.Color := GetHarmonicColor(BaseColor, i, ASeries.Count);
end;

Использование:

ApplyHarmonicColors(Chart1PieSeries1, $317DED); // Синий как базовый цвет

3. Использование стилей серий

В TAChart можно задать стиль для всей серии:

Chart1PieSeries1.SeriesColor := clSkyBlue;
Chart1PieSeries1.ColorEachPoint := True;

Это автоматически создаст вариации базового цвета для каждого элемента.

Расширенные возможности

Градиентная заливка

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

procedure SetupGradientFill(ASeries: TChartSeries);
var
  i: Integer;
begin
  for i := 0 to ASeries.Count - 1 do
  begin
    ASeries.ListSource.Item[i]^.Color := GetGradientColor(clNavy, clSkyBlue, i, ASeries.Count);
  end;
end;

Поддержка тем оформления

Вы можете создать систему тем оформления для вашего приложения:

type
  TChartTheme = record
    Name: string;
    Colors: array of TColor;
  end;

const
  ChartThemes: array[0..2] of TChartTheme = (
    (Name: 'Pastel'; Colors: ($FFC0CB, $FFD700, $98FB98, $87CEFA, $E6E6FA)),
    (Name: 'Earth'; Colors: ($D2B48C, $8B4513, $A0522D, $CD853F, $F5DEB3)),
    (Name: 'Ocean'; Colors: ($000080, $1E90FF, $00BFFF, $5F9EA0, $AFEEEE))
  );

procedure ApplyTheme(ASeries: TChartSeries; ThemeIndex: Integer);
var
  i: Integer;
begin
  if (ThemeIndex >= 0) and (ThemeIndex < Length(ChartThemes)) then
    ApplyColorPalette(ASeries, ChartThemes[ThemeIndex].Colors);
end;

Заключение

Хотя TAChart не предоставляет встроенных цветовых палитр, существует несколько гибких способов создать привлекательные и гармоничные цветовые схемы для ваших диаграмм. Вы можете:

1. Использовать ручное задание цветов через AddXY для полного контроля
2. Создать собственные палитры гармоничных цветов
3. Генерировать цвета алгоритмически на основе HSL-модели
4. Реализовать систему тем оформления для всего приложения

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

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

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

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

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

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