paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Update radial demo to show TPolarSeries.CloseCircle property

Browse Source 
git-svn-id: trunk@38341 -
This commit is contained in:
ask 2012-08-23 03:24:53 +00:00
parent 1e025efb9d
commit 4d9f1110be
2 changed files with 39 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,13 @@
object Form1: TForm1
Left = 477
Left = 459
Height = 433
Top = 164
Top = 346
Width = 566
Caption = 'Form1'
ClientHeight = 433
ClientWidth = 566
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object PageControl1: TPageControl
Left = 0
Height = 433
@ -78,10 +78,10 @@ object Form1: TForm1
TabOrder = 0
end
object lblWords: TLabel
Left = 424
Height = 14
Left = 425
Height = 13
Top = 10
Width = 58
Width = 57
Anchors = [akTop, akRight]
Caption = 'Label words'
ParentColor = False
@ -99,10 +99,10 @@ object Form1: TForm1
TabOrder = 1
end
object lblLabelAngle: TLabel
Left = 296
Height = 14
Left = 297
Height = 13
Top = 10
Width = 55
Width = 54
Anchors = [akTop, akRight]
Caption = 'Label angle'
ParentColor = False
@ -144,7 +144,7 @@ object Form1: TForm1
Left = 0
Height = 407
Top = 0
Width = 558
Width = 448
AxisList = <
item
Minors = <>
@ -164,6 +164,7 @@ object Form1: TForm1
Align = alClient
ParentColor = False
object ChartPolarSeries1: TPolarSeries
CloseCircle = True
OriginX = -5
Source = RandomChartSource1
end
@ -173,6 +174,25 @@ object Form1: TForm1
Source = RandomChartSource1
end
end
object pnlPolar: TPanel
Left = 448
Height = 407
Top = 0
Width = 110
Align = alRight
ClientHeight = 407
ClientWidth = 110
TabOrder = 1
object cbCloseCircle: TCheckBox
Left = 14
Height = 17
Top = 12
Width = 52
Caption = 'Closed'
OnChange = cbCloseCircleChange
TabOrder = 0
end
end
end
end
object ListChartSource1: TListChartSource

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

@ -22,16 +22,19 @@ type
ChartToolset1: TChartToolset;
cbRotate: TCheckBox;
cbMarkPositions: TComboBox;
cbCloseCircle: TCheckBox;
lblWords: TLabel;
lblLabelAngle: TLabel;
ListChartSource1: TListChartSource;
PageControl1: TPageControl;
Panel1: TPanel;
pnlPolar: TPanel;
RandomChartSource1: TRandomChartSource;
seWords: TSpinEdit;
seLabelAngle: TSpinEdit;
tsPolar: TTabSheet;
tsPie: TTabSheet;
procedure cbCloseCircleChange(Sender: TObject);
procedure cbMarkPositionsChange(Sender: TObject);
procedure cbRotateChange(Sender: TObject);
procedure ChartPieMouseDown(Sender: TObject; Button: TMouseButton;
@ -49,6 +52,12 @@ implementation
{ TForm1 }
procedure TForm1.cbCloseCircleChange(Sender: TObject);
begin
ChartPolarSeries1.CloseCircle := cbCloseCircle.Checked;
ChartPolarSeries2.CloseCircle := cbCloseCircle.Checked;
end;
procedure TForm1.cbMarkPositionsChange(Sender: TObject);
begin
ChartPiePieSeries1.MarkPositions :=