diff --git a/components/tachart/demo/bgra/Main.lfm b/components/tachart/demo/bgra/Main.lfm index 8db9e3ef1f..00fe7d90ef 100644 --- a/components/tachart/demo/bgra/Main.lfm +++ b/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 diff --git a/components/tachart/demo/bgra/Main.pas b/components/tachart/demo/bgra/Main.pas index ac2244d383..0f9e53b548 100644 --- a/components/tachart/demo/bgra/Main.pas +++ b/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; diff --git a/components/tachart/demo/bgra/bgrademo.lpi b/components/tachart/demo/bgra/bgrademo.lpi index 79bc77cefb..fcf4ccab4b 100644 --- a/components/tachart/demo/bgra/bgrademo.lpi +++ b/components/tachart/demo/bgra/bgrademo.lpi @@ -31,7 +31,7 @@ - + @@ -57,13 +57,14 @@ + - +