TAChart: Add bar series to "navigate" demo for better visuals

git-svn-id: trunk@38871 -

components/tachart/demo/navigate/Main.lfm

@@ -6,8 +6,9 @@ object Form1: TForm1
   Caption = 'Form1'
   ClientHeight = 351
   ClientWidth = 479
+  OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object Chart1: TChart
     Left = 0
     Height = 249
@@ -39,6 +40,9 @@ object Form1: TForm1
     OnExtentChanged = Chart1ExtentChanged
     Align = alClient
     ParentColor = False
+    object Chart1BarSeries1: TBarSeries
+      BarBrush.Color = clSkyBlue
+    end
     object Chart1LineSeries1: TLineSeries
       Source = RandomChartSource1
     end

components/tachart/demo/navigate/Main.pas

@@ -14,6 +14,7 @@ type
 
   TForm1 = class(TForm)
     Chart1: TChart;
+    Chart1BarSeries1: TBarSeries;
     Chart1LineSeries1: TLineSeries;
     ChartNavPanel1: TChartNavPanel;
     ChartToolset1: TChartToolset;
@@ -28,6 +29,7 @@ type
     StatusBar1: TStatusBar;
     procedure cbMiniMapChange(Sender: TObject);
     procedure Chart1ExtentChanged(ASender: TChart);
+    procedure FormCreate(Sender: TObject);
   end;
 
 var
@@ -51,5 +53,13 @@ begin
       Format('(%.3g;%.3g) - (%.3g;%.3g)', [a.X, a.Y, b.X, b.Y]);
 end;
 
+procedure TForm1.FormCreate(Sender: TObject);
+var
+  i: Integer;
+begin
+  for i := 1 to 10 do
+    Chart1BarSeries1.AddXY(i * 10, i * i / 5);
+end;
+
 end.
 

components/tachart/demo/navigate/navigatedemo.lpi

@@ -31,7 +31,7 @@
     <RequiredPackages Count="3">
       <Item1>
         <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Valid="True" Release="1"/>
+        <MinVersion Major="1" Release="1" Valid="True"/>
       </Item1>
       <Item2>
         <PackageName Value="TAChartLazarusPkg"/>
@@ -51,13 +51,14 @@
         <Filename Value="Main.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Main"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
       <Filename Value="navigatedemo"/>
@@ -68,10 +69,6 @@
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
-      <Debugging>
-        <GenerateDebugInfo Value="True"/>
-        <DebugInfoType Value="dsAuto"/>
-      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>