paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: area demo clean-up

Browse Source
This commit is contained in:
wp_xyz 2025-03-03 20:20:24 +01:00
parent 6292275696
commit cae8834e91
4 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/area/areaseriesdemo.lpi
View File

@ -52,6 +52,7 @@
<Filename Value="frmerrorrange.pas"/> <Filename Value="frmerrorrange.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ErrorRangeFrame"/> <ComponentName Value="ErrorRangeFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="frmErrorRange"/> <UnitName Value="frmErrorRange"/>
</Unit2> </Unit2>
@ -59,6 +60,7 @@
<Filename Value="frmgeneral.pas"/> <Filename Value="frmgeneral.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="GeneralFrame"/> <ComponentName Value="GeneralFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="frmGeneral"/> <UnitName Value="frmGeneral"/>
</Unit3> </Unit3>

15
components/tachart/demo/area/frmerrorrange.lfm
View File

@ -8,21 +8,10 @@ object ErrorRangeFrame: TErrorRangeFrame
TabOrder = 0 TabOrder = 0
DesignLeft = 587 DesignLeft = 587
DesignTop = 268 DesignTop = 268
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 401
Align = alTop
Alignment = taCenter
BorderSpacing.Around = 8
Caption = 'This functionality requires at least Lazarus version 1.9'
Visible = False
end
object Chart: TChart object Chart: TChart
Left = 0 Left = 0
Height = 233 Height = 264
Top = 31 Top = 0
Width = 417 Width = 417
AxisList = < AxisList = <
item item

1
components/tachart/demo/area/frmerrorrange.pas
View File

@ -16,7 +16,6 @@ type
ChartAreaSeries2: TAreaSeries; ChartAreaSeries2: TAreaSeries;
ChartLineSeries1: TLineSeries; ChartLineSeries1: TLineSeries;
ChartLineSeries2: TLineSeries; ChartLineSeries2: TLineSeries;
Label1: TLabel;
ChartSourceLine1: TUserDefinedChartSource; ChartSourceLine1: TUserDefinedChartSource;
ChartSourceArea1: TUserDefinedChartSource; ChartSourceArea1: TUserDefinedChartSource;
ChartSourceLine2: TUserDefinedChartSource; ChartSourceLine2: TUserDefinedChartSource;

8
components/tachart/demo/area/main.pas
View File

@ -5,10 +5,7 @@ unit main;
interface interface
uses uses
LCLVersion, Classes, SysUtils, Forms, Controls, ComCtrls,
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin,
ComCtrls, ExtCtrls,
TAGraph, TASeries, TASources, TAStyles, TACustomSeries, TACustomSource,
frmGeneral, frmErrorRange; frmGeneral, frmErrorRange;
type type
@ -35,9 +32,6 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
Math, TAChartUtils, TATextElements;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
FGeneralFrame := TGeneralFrame.Create(Self); FGeneralFrame := TGeneralFrame.Create(Self);