paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 22:51:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add transparency to the "bgra" demo

Browse Source 
git-svn-id: trunk@39146 -
This commit is contained in:
ask 2012-10-21 05:51:11 +00:00
parent 8ff4d4ec3e
commit 5c4e6dcd6c
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/demo/bgra/Main.lfm
View File

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

3
components/tachart/demo/bgra/Main.pas
View File

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

5
components/tachart/demo/bgra/bgrademo.lpi
View File

@ -31,7 +31,7 @@
<RequiredPackages Count="5"> <RequiredPackages Count="5">
<Item1> <Item1>
<PackageName Value="LCLBase"/> <PackageName Value="LCLBase"/>
<MinVersion Major="1" Valid="True" Release="1"/> <MinVersion Major="1" Release="1" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
@ -57,13 +57,14 @@
<Filename Value="Main.pas"/> <Filename Value="Main.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Main"/> <UnitName Value="Main"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="bgrademo"/> <Filename Value="bgrademo"/>