paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add "Polar" page to the radial demo

Browse Source 
git-svn-id: trunk@29103 -
This commit is contained in:
ask 2011-01-18 09:04:48 +00:00
parent 2572b49221
commit bda600ef26
2 changed files with 55 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
components/tachart/demo/radial/main.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 433
ClientWidth = 566
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object PageControl1: TPageControl
Left = 0
Height = 433
@ -117,6 +117,42 @@ object Form1: TForm1
end
end
end
object tsPolar: TTabSheet
Caption = 'Polar'
ClientHeight = 407
ClientWidth = 558
object ChartPolar: TChart
Left = 0
Height = 407
Top = 0
Width = 558
AxisList = <
item
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object ChartPolarSeries1: TPolarSeries
OriginX = -5
Source = RandomChartSource1
end
object ChartPolarSeries2: TPolarSeries
LinePen.Color = clRed
OriginY = 5
Source = RandomChartSource1
end
end
end
end
object ListChartSource1: TListChartSource
DataPoints.Strings = (
@ -138,4 +174,15 @@ object Form1: TForm1
left = 440
top = 80
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 15
RandSeed = 1648434073
XMax = 6
XMin = 0
YCount = 2
YMax = 10
YMin = 2
left = 440
top = 196
end
end

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

@ -6,13 +6,17 @@ interface
uses
Classes, ComCtrls, ExtCtrls, Spin, StdCtrls, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, TAGraph, TASeries, TASources, TATools;
Controls, Graphics, Dialogs, TAGraph, TARadialSeries, TASeries, TASources,
TATools;
type
{ TForm1 }
TForm1 = class(TForm)
ChartPolar: TChart;
ChartPolarSeries1: TPolarSeries;
ChartPolarSeries2: TPolarSeries;
ChartPie: TChart;
ChartPiePieSeries1: TPieSeries;
ChartToolset1: TChartToolset;
@ -22,8 +26,10 @@ type
ListChartSource1: TListChartSource;
PageControl1: TPageControl;
Panel1: TPanel;
RandomChartSource1: TRandomChartSource;
seWords: TSpinEdit;
seLabelAngle: TSpinEdit;
tsPolar: TTabSheet;
tsPie: TTabSheet;
procedure cbRotateChange(Sender: TObject);
procedure ChartPieMouseDown(Sender: TObject; Button: TMouseButton;