mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 06:43:41 +02:00
81 lines
1.4 KiB
ObjectPascal
81 lines
1.4 KiB
ObjectPascal
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
|
|
Spin, TAGraph, TASeries, TASources, TAStyles;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Chart1: TChart;
|
|
BarSeries: TBarSeries;
|
|
cb3D: TCheckBox;
|
|
ChartStyles1: TChartStyles;
|
|
cbRotated: TCheckBox;
|
|
cmbShape: TComboBox;
|
|
lblLevels: TLabel;
|
|
lblShape: TLabel;
|
|
Panel1: TPanel;
|
|
RandomChartSource1: TRandomChartSource;
|
|
seLevels: TSpinEdit;
|
|
procedure cb3DChange(Sender: TObject);
|
|
procedure cbRotatedChange(Sender: TObject);
|
|
procedure cmbShapeChange(Sender: TObject);
|
|
procedure seLevelsChange(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses
|
|
Math;
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.cb3DChange(Sender: TObject);
|
|
begin
|
|
if cb3D.Checked then
|
|
BarSeries.Depth := 20
|
|
else
|
|
BarSeries.Depth := 0;
|
|
end;
|
|
|
|
procedure TForm1.cbRotatedChange(Sender: TObject);
|
|
begin
|
|
if cbRotated.Checked then begin
|
|
BarSeries.AxisIndexX := 0;
|
|
BarSeries.AxisIndexY := 1;
|
|
end else begin
|
|
BarSeries.AxisIndexX := 1;
|
|
BarSeries.AxisIndexY := 0;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.cmbShapeChange(Sender: TObject);
|
|
begin
|
|
BarSeries.BarShape := TBarShape(cmbShape.ItemIndex);
|
|
cb3DChange(nil);
|
|
end;
|
|
|
|
procedure TForm1.seLevelsChange(Sender: TObject);
|
|
begin
|
|
RandomChartSource1.YCount := seLevels.Value;
|
|
end;
|
|
|
|
end.
|
|
|