Построение графика

Delphi , Синтаксис , Математика

unit TestGrF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DdhGraph;

type
  TForm1 = class(TForm)
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Button3: TButton;
    DdhGraph1: TDdhGraph;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ColorDialog1.Color := DdhGraph1.Color;
  if ColorDialog1.Execute then
    DdhGraph1.Color := ColorDialog1.Color;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FontDialog1.Font := DdhGraph1.Font;
  if FontDialog1.Execute then
    DdhGraph1.Font := FontDialog1.Font;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    DdhGraph1.BorderStyle := bsSingle
  else
    DdhGraph1.BorderStyle := bsNone;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ColorDialog1.Color := DdhGraph1.LinesColor;
  if ColorDialog1.Execute then
    DdhGraph1.LinesColor := ColorDialog1.Color;
end;

end.

Загрузить исходный код проекта
Загрузить библиотеку с компонентами

Перевод контента на русский язык:

Это проект Delphi, использующий компонент DdhGraph для создания графика. Проект имеет форму с несколькими кнопками и чекбоксом, которые используются для изменения свойств графика.

Процедура Button1Click изменяет цвет графика с помощью компонента ColorDialog. Если пользователь выбирает новый цвет и нажимает OK, цвет графика обновляется.

Процедура Button2Click изменяет шрифт графика с помощью компонента FontDialog. Если пользователь выбирает новый шрифт и нажимает OK, шрифт графика обновляется.

Процедура CheckBox1Click переключает стиль рамки графика между одиночной линией (bsSingle) и без рамки (bsNone).

Процедура Button3Click изменяет цвет линий в графике с помощью компонента ColorDialog. Если пользователь выбирает новый цвет и нажимает OK, цвет линий обновляется.

Альтернативное решение для создания более интерактивной графики:

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

Например, можно создать компонент TDialog с радиокнопками и чекбоксами, которые позволяют пользователям выбрать различные свойства (например, цвет, шрифт, стиль рамки, цвет линий). Когда пользователь нажимает OK, соответствующие свойства графика обновляются с помощью выбранных значений.

Вот обновленная версия кода:

procedure TForm1.ButtonClick(Sender: TObject);
var
  Dialog: TDialog;
  Options: string;
begin
  Dialog := TDialog.Create(Self);
  try
    Dialog.Caption := 'Graph Options';
    Dialog.Position := poScreenCenter;

    with Dialog do
    begin
      RadioGroup1.Items.Add('Color');
      RadioGroup1.Items.Add('Font');
      RadioGroup1.Items.Add('Border Style');
      RadioGroup1.Items.Add('Line Color');

      CheckButton1.Checked := DdhGraph1.Color = clRed;
      Edit1.Text := Format('%s', [DdhGraph1.Font.Name]);
      Combo1.ItemIndex := Ord(DdhGraph1.BorderStyle);
      Combo2.ItemIndex := Ord(DdhGraph1.LinesColor);

      if Execute then
      begin
        case RadioGroup1.ItemIndex of
          0: DdhGraph1.Color := ColorDialog1.Color;
          1: DdhGraph1.Font := FontDialog1.Font;
          2: DdhGraph1.BorderStyle := TBorderStyle(Combo1.ItemIndex);
          3: DdhGraph1.LinesColor := TColor(Combo2.ItemIndex);
        end;
      end;
  finally
    FreeAndNil(Dialog);
  end;
end;

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

Обратите внимание, что это только пример, вам нужно адаптировать его к вашим потребностям и создать необходимые компоненты (RadioGroup1, CheckButton1, Edit1, Combo1, Combo2) в дизайнере формы.

В статье представлен пример программирования в Delphi, где создается форма с компонентом DdhGraph и реализованы функции изменения цвета и шрифта графика, а также изменение стиля границы.

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

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

:: Главная :: Математика ::