paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 17:57:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@38596 -
This commit is contained in:
ask 2012-09-09 10:43:12 +00:00
parent 7c28736954
commit 2373b8575c
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/demo/opengl/Main.lfm
View File

@ -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

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

@ -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