mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 16:46:11 +02:00
46 lines
972 B
ObjectPascal
46 lines
972 B
ObjectPascal
unit frmLinear;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
Forms, Controls, StdCtrls, ExtCtrls,
|
|
TAGraph, TASeries, TASources, TATransformations;
|
|
|
|
type
|
|
TLinearFrame = class(TFrame)
|
|
catT: TChartAxisTransformations;
|
|
catTAuto: TChartAxisTransformations;
|
|
catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform;
|
|
catTAutoScaleAxisTransform1: TAutoScaleAxisTransform;
|
|
catTFahrToCel: TLinearAxisTransform;
|
|
cbAuto: TCheckBox;
|
|
Chart: TChart;
|
|
ChartSummer: TLineSeries;
|
|
ChartWinterBar: TBarSeries;
|
|
ChartWinterLine: TLineSeries;
|
|
pnlAutoControls: TPanel;
|
|
rcsTSummer: TRandomChartSource;
|
|
rcsTWinter: TRandomChartSource;
|
|
procedure cbAutoChange(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TLinearFrame.cbAutoChange(Sender: TObject);
|
|
begin
|
|
catTAutoAutoScaleAxisTransform1.Enabled := cbAuto.Checked;
|
|
catTAutoScaleAxisTransform1.Enabled := cbAuto.Checked;
|
|
end;
|
|
|
|
end.
|
|
|