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

TAChart: Fix demo of svg drawer on non-Windows systems.

Browse Source 
git-svn-id: trunk@61243 -
This commit is contained in:
wp 2019-05-18 23:08:18 +00:00
parent 482649c453
commit a0c1900d66
3 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/demo/save/main.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 299
ClientWidth = 538
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object Chart1: TChart
Left = 0
Height = 275
@ -15,30 +15,32 @@ object Form1: TForm1
Width = 538
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.CharSet = ANSI_CHARSET
Title.LabelFont.Color = clRed
Title.LabelFont.Height = -19
Title.LabelFont.Name = 'Times New Roman'
Title.LabelFont.Orientation = 900
Title.LabelFont.Pitch = fpVariable
Title.LabelFont.Quality = fqDraft
Title.LabelFont.Style = [fsItalic]
Title.Visible = True
Title.Caption = 'y axis'
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.CharSet = ANSI_CHARSET
Title.LabelFont.Color = clBlue
Title.LabelFont.Height = -19
Title.LabelFont.Name = 'Times New Roman'
Title.LabelFont.Pitch = fpVariable
Title.LabelFont.Quality = fqDraft
Title.LabelFont.Style = [fsItalic]
Title.Visible = True
Title.Caption = 'x axis'
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
@ -49,15 +51,15 @@ object Form1: TForm1
)
Align = alClient
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clOlive
Marks.Format = '%0:.9g'
Marks.Style = smsValue
BarBrush.Color = clOlive
end
object Chart1FuncSeries1: TFuncSeries
ZPosition = 1
OnCalculate = Chart1FuncSeries1Calculate
Pen.Color = clRed
Pen.Width = 2
OnCalculate = Chart1FuncSeries1Calculate
end
end
object ToolBar1: TToolBar
@ -68,7 +70,6 @@ object Form1: TForm1
ButtonHeight = 22
ButtonWidth = 100
Caption = 'ToolBar1'
Flat = False
ShowCaptions = True
TabOrder = 1
object tbSaveAsBMP: TToolButton

13
components/tachart/demo/save/savedemo.lpi
View File

@ -1,17 +1,22 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<SaveClosedFiles Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="Saving chart as image demo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
@ -21,13 +26,13 @@
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>

5
components/tachart/demo/save/savedemo.lpr
View File

@ -10,8 +10,11 @@ uses
Forms, main, TAChartLazarusPkg
{ you can add units after this };
{$R *.res}
begin
Application.Title := 'Saving chart as image demo';
Application.Scaled:=True;
Application.Title:='Saving chart as image demo';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;