paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 09:05:58 +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"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="ErrorRangeFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="frmErrorRange"/>
</Unit2>
@ -59,6 +60,7 @@
<Filename Value="frmgeneral.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="GeneralFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="frmGeneral"/>
</Unit3>

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

@ -8,21 +8,10 @@ object ErrorRangeFrame: TErrorRangeFrame
TabOrder = 0
DesignLeft = 587
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
Left = 0
Height = 233
Top = 31
Height = 264
Top = 0
Width = 417
AxisList = <
item

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

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

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

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