TAChart: Add transparency to the "bgra" demo

git-svn-id: trunk@39146 -

components/tachart/demo/bgra/Main.lfm

@@ -1,5 +1,5 @@
 object Form1: TForm1
-  Left = 1221
+  Left = 1036
   Height = 459
   Top = 154
   Width = 620
@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 459
   ClientWidth = 620
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object Chart1: TChart
     Left = 0
     Height = 425
@@ -49,10 +49,12 @@ object Form1: TForm1
       Source = RandomChartSource1
     end
     object Chart1BarSeries1: TBarSeries
+      Transparency = 60
       BarBrush.Color = 3059701
       Source = RandomChartSource1
     end
     object Chart1PieSeries1: TPieSeries
+      Transparency = 128
       Active = False
       Source = RandomChartSource1
     end

components/tachart/demo/bgra/Main.pas

@@ -38,7 +38,7 @@ implementation
 {$R *.lfm}
 
 uses
-  BGRABitmap, TADrawerBGRA, TADrawerCanvas, TADrawUtils;
+  BGRABitmap, TAChartUtils, TADrawerBGRA, TADrawerCanvas, TADrawUtils;
 
 { TForm1 }
 
@@ -57,6 +57,7 @@ end;
 
 procedure TForm1.Chart1AfterPaint(ASender: TChart);
 begin
+  Unused(ASender);
   PaintBox1.Invalidate;
 end;
 

components/tachart/demo/bgra/bgrademo.lpi

@@ -31,7 +31,7 @@
     <RequiredPackages Count="5">
       <Item1>
         <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Valid="True" Release="1"/>
+        <MinVersion Major="1" Release="1" Valid="True"/>
       </Item1>
       <Item2>
         <PackageName Value="LCL"/>
@@ -57,13 +57,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="bgrademo"/>