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

TAChart: Add WMF format to FPVectorial demo. Use Anchors.

Browse Source 
git-svn-id: trunk@55518 -
This commit is contained in:
wp 2017-07-17 16:00:31 +00:00
parent 6b9ae632bc
commit e329b91495
2 changed files with 47 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/tachart/demo/fpvectorial/Main.lfm
View File

@ -7,11 +7,11 @@ object Form1: TForm1
ClientHeight = 342 ClientHeight = 342
ClientWidth = 422 ClientWidth = 422
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
object Chart1: TChart object Chart1: TChart
Left = 0 Left = 0
Height = 300 Height = 306
Top = 42 Top = 36
Width = 422 Width = 422
AxisList = < AxisList = <
item item
@ -81,7 +81,6 @@ object Form1: TForm1
) )
Title.Visible = True Title.Visible = True
Align = alClient Align = alClient
ParentColor = False
object Chart1LineSeries1: TLineSeries object Chart1LineSeries1: TLineSeries
LinePen.Color = clFuchsia LinePen.Color = clFuchsia
Source = RandomChartSource1 Source = RandomChartSource1
@ -93,31 +92,60 @@ object Form1: TForm1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 42 Height = 36
Top = 0 Top = 0
Width = 422 Width = 422
Align = alTop Align = alTop
ClientHeight = 42 AutoSize = True
ClientHeight = 36
ClientWidth = 422 ClientWidth = 422
TabOrder = 1 TabOrder = 1
object btnSVG: TButton object btnSVG: TButton
Left = 8 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 5
Height = 25 Height = 25
Top = 8 Top = 6
Width = 96 Width = 88
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Caption = 'Save as SVG' Caption = 'Save as SVG'
OnClick = btnSVGClick OnClick = btnSVGClick
TabOrder = 0 TabOrder = 0
end end
object btnGCode: TButton object btnGCode: TButton
Left = 112 AnchorSideLeft.Control = btnSVG
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 97
Height = 25 Height = 25
Top = 8 Top = 6
Width = 119 Width = 106
AutoSize = True
BorderSpacing.Right = 4
Caption = 'Save as G-code' Caption = 'Save as G-code'
OnClick = btnGCodeClick OnClick = btnGCodeClick
TabOrder = 1 TabOrder = 1
end end
object btnWMF: TButton
AnchorSideLeft.Control = btnGCode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 207
Height = 25
Top = 6
Width = 95
AutoSize = True
BorderSpacing.Right = 4
Caption = 'Save as WMF'
OnClick = btnWMFClick
TabOrder = 2
end
end end
object RandomChartSource1: TRandomChartSource object RandomChartSource1: TRandomChartSource
PointsNumber = 11 PointsNumber = 11

7
components/tachart/demo/fpvectorial/Main.pas
View File

@ -17,6 +17,7 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
btnSVG: TButton; btnSVG: TButton;
btnGCode: TButton; btnGCode: TButton;
btnWMF: TButton;
Chart1: TChart; Chart1: TChart;
Chart1BarSeries1: TBarSeries; Chart1BarSeries1: TBarSeries;
Chart1LineSeries1: TLineSeries; Chart1LineSeries1: TLineSeries;
@ -24,6 +25,7 @@ type
RandomChartSource1: TRandomChartSource; RandomChartSource1: TRandomChartSource;
procedure btnGCodeClick(Sender: TObject); procedure btnGCodeClick(Sender: TObject);
procedure btnSVGClick(Sender: TObject); procedure btnSVGClick(Sender: TObject);
procedure btnWMFClick(Sender: TObject);
end; end;
var var
@ -82,5 +84,10 @@ begin
SaveAs(Chart1, vfSVG); SaveAs(Chart1, vfSVG);
end; end;
procedure TForm1.btnWMFClick(Sender: TObject);
begin
SaveAs(Chart1, vfWindowsMetafileWMF);
end;
end. end.