mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 16:22:49 +02:00
81 lines
1.7 KiB
ObjectPascal
81 lines
1.7 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, TAGraph, TATransformations, TASeries, TASources,
|
|
Forms, Controls, Graphics, Dialogs, StdCtrls;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Chart1: TChart;
|
|
Chart1LineSeries1: TLineSeries;
|
|
Chart1LineSeries2: TLineSeries;
|
|
ChartAxisTransformations1: TChartAxisTransformations;
|
|
ChartAxisTransformations1AutoScaleAxisTransform1: TAutoScaleAxisTransform;
|
|
ChartAxisTransformations2: TChartAxisTransformations;
|
|
ChartAxisTransformations2AutoScaleAxisTransform1: TAutoScaleAxisTransform;
|
|
cbAtDataOnly: TCheckBox;
|
|
cbGrouped: TCheckBox;
|
|
RandomChartSource1: TRandomChartSource;
|
|
RandomChartSource2: TRandomChartSource;
|
|
procedure cbAtDataOnlyChange(Sender: TObject);
|
|
procedure cbGroupedChange(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses
|
|
TAChartAxis;
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.cbAtDataOnlyChange(Sender: TObject);
|
|
var
|
|
leftAxis1, leftAxis2: TChartAxis;
|
|
begin
|
|
leftAxis1 := Chart1.AxisList[0];
|
|
leftAxis2 := Chart1.AxisList[2];
|
|
|
|
leftAxis1.AtDataOnly := cbAtDataOnly.Checked;
|
|
leftAxis1.Marks.AtDataOnly := cbAtDataOnly.Checked;
|
|
leftAxis1.Title.PositionOnMarks := cbAtDataOnly.Checked;
|
|
|
|
leftAxis2.AtDataOnly := cbAtDataOnly.Checked;
|
|
leftAxis2.Marks.AtDataOnly := cbAtDataOnly.Checked;
|
|
leftAxis2.Title.PositionOnMarks := cbAtDataOnly.Checked;
|
|
end;
|
|
|
|
procedure TForm1.cbGroupedChange(Sender: TObject);
|
|
var
|
|
leftAxis1, leftAxis2: TChartAxis;
|
|
begin
|
|
leftAxis1 := Chart1.AxisList[0];
|
|
leftAxis2 := Chart1.AxisList[2];
|
|
|
|
if cbGrouped.Checked then begin
|
|
leftAxis1.Group := 1;
|
|
leftAxis2.Group := 1;
|
|
end else begin
|
|
leftAxis1.Group := 0;
|
|
leftAxis2.Group := 0;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|