Создание Круговых Диаграмм в cxGrid для Delphi XE3: Пошаговое Руководство

Delphi , Файловая система , Порты

Переход с Delphi 6 на Delphi XE3 требует адаптации к новым компонентам, в частности, к cxGrid. В данной статье мы рассмотрим, как создать простую круговою диаграмму (пае-чарт) с использованием компонентов cxGrid, что особенно актуально, если вы планируете использовать их в будущем.

Шаг 1: Подготовка данных

Для начала убедитесь, что у вас есть DataSet с двумя полями: "Name" и "Value". Эти поля должны содержать соответствующие имена и процентные значения, которые будут отображаться на диаграмме.

var
  DataSet: TDataSet;
begin
  // Предположим, что DataSet уже заполнен данными
end;

Шаг 2: Создание View для диаграммы

Создайте новый вид (view) для вашей cxGrid, который будет использоваться для отображения диаграммы.

var
  VIEW: TcxGridDBChartView;
begin
  VIEW := cxGrid1.CreateView(TcxGridDBChartView) as TcxGridDBChartView;
  VIEW.Name := 'MyChart';
end;

Шаг 3: Настройка уровня для диаграммы

Добавьте новый уровень в cxGrid, который будет содержать вашу диаграмму.

var
  Level: TcxGridLevel;
begin
  Level := cxGrid1.Levels.Add;
  Level.GridView := VIEW;
end;

Шаг 4: Настройка источника данных

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

begin
  VIEW.DataController.DataSource := DataSet;
end;

Шаг 5: Активация режима диаграммы

Установите режим диаграммы в пае-чарт.

begin
  VIEW.DiagramPie.Active := True;
end;

Шаг 6: Создание серии данных для диаграммы

Добавьте серию данных, которая будет отображать значения с вашего DataSet.

var
  Series: TcxGridDBChartSeries;
begin
  Series := VIEW.CreateSeries;
  with Series[0] do
  begin
    DataBinding.FieldName := 'Value';
    Caption := 'Value'; // Имя для легенды
    ValueMember := 'Value'; // Поле с процентным значением
  end;
end;

Шаг 7: Настройка отображения значений на диаграмме

Настройте отображение значений на диаграмме, включая позицию подписей и формат отображения процентов.

begin
  VIEW.DiagramPie.Values.CaptionPosition := pdvcpCenter;
  VIEW.DiagramPie.Values.PercentageCaptionFormat := '0.0%';
  VIEW.DiagramPie.Values.CaptionItems := [pdvciCategory, pdvciValue, pdvciPercentage];
  VIEW.DiagramPie.Values.Coloring := 'Field'; // Цвет по полю
  VIEW.DiagramPie.Values.ColorFieldName := 'Name'; // Поле с именем для цветовой шкалы
end;

Заключение

Следуя этим шагам, вы сможете создать простую и функциональную круговою диаграмму в cxGrid для Delphi XE3. Это руководство должно помочь вам начать работу с компонентами cxGrid и успешно перенести ваше приложение с Delphi 6 на Delphi XE3.

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

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

В инструкции представлено пошаговое руководство по созданию круговой диаграммы (пае-чарт) в компоненте cxGrid для Delphi XE3.

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

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

:: Главная :: Порты ::