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

git-svn-id: trunk@61243 -

components/tachart/demo/save/main.lfm

@@ -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

components/tachart/demo/save/savedemo.lpi

@@ -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>

components/tachart/demo/save/savedemo.lpr

@@ -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;