mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-21 19:25:59 +02:00
46 lines
948 B
ObjectPascal
46 lines
948 B
ObjectPascal
unit frmSpline;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
Forms, Controls, StdCtrls, ExtCtrls, RTTICtrls,
|
|
TAGraph, TASources, TASeries, TAFuncSeries, TATransformations;
|
|
|
|
type
|
|
TSplineFrame = class(TFrame)
|
|
catSpline: TChartAxisTransformations;
|
|
catSplineLogarithmAxisTransform: TLogarithmAxisTransform;
|
|
cbBSpline: TTICheckBox;
|
|
cbCubic: TTICheckBox;
|
|
cbLogY: TTICheckBox;
|
|
Chart: TChart;
|
|
ChartBSplineSeries1: TBSplineSeries;
|
|
ChartCubicSplineSeries1: TCubicSplineSeries;
|
|
ChartLineSeries1: TLineSeries;
|
|
icbSplineRandomX: TTICheckBox;
|
|
iseSplineDegree: TTISpinEdit;
|
|
lblSplineDegree: TLabel;
|
|
pnSpline: TPanel;
|
|
RandomChartSource: TRandomChartSource;
|
|
procedure iseSplineDegreeChange(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TSplineFrame.iseSplineDegreeChange(Sender: TObject);
|
|
begin
|
|
(Sender as TTISpinEdit).EditingDone;
|
|
end;
|
|
|
|
end.
|
|
|