TAChart: Update "opengl" demo to show transparency and pie chart

git-svn-id: trunk@38596 -

components/tachart/demo/opengl/Main.lfm

@@ -6,7 +6,7 @@ object Form1: TForm1
   Caption = 'Form1'
   ClientHeight = 319
   ClientWidth = 684
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object OpenGLControl1: TOpenGLControl
     Left = 344
     Height = 319
@@ -23,17 +23,20 @@ object Form1: TForm1
     Width = 344
     AxisList = <    
       item
+        Marks.LabelFont.Color = clTeal
         Marks.Frame.Style = psSolid
         Marks.LabelBrush.Color = clYellow
         Marks.LabelBrush.Style = bsSolid
+        Minors = <>
         Title.LabelFont.Orientation = 900
       end    
       item
         Alignment = calBottom
+        Minors = <>
       end>
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clBlue
-    Title.Brush.Color = clBtnFace
+    Title.Brush.Color = clSilver
     Title.Font.Color = clBlue
     Title.Text.Strings = (
       'Standard'
@@ -49,7 +52,11 @@ object Form1: TForm1
       Source = RandomChartSource1
     end
     object Chart1BarSeries1: TBarSeries
-      BarBrush.Color = clRed
+      Transparency = 127
+      BarBrush.Color = clGreen
+      Source = RandomChartSource1
+    end
+    object Chart1PieSeries1: TPieSeries
       Source = RandomChartSource1
     end
   end

components/tachart/demo/opengl/Main.pas

@@ -16,6 +16,7 @@ type
     Chart1: TChart;
     Chart1BarSeries1: TBarSeries;
     Chart1LineSeries1: TLineSeries;
+    Chart1PieSeries1: TPieSeries;
     OpenGLControl1: TOpenGLControl;
     RandomChartSource1: TRandomChartSource;
     procedure Chart1AfterPaint(ASender: TChart);
@@ -30,7 +31,7 @@ implementation
 {$R *.lfm}
 
 uses
-  TADrawUtils, TADrawerOpenGL, TADrawerCanvas;
+  TADrawUtils, TADrawerOpenGL in '..\..\TADrawerOpenGL.pas', TADrawerCanvas;
 
 procedure TForm1.Chart1AfterPaint(ASender: TChart);
 begin