paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 11:16:12 +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' Caption = 'Form1'
ClientHeight = 319 ClientHeight = 319
ClientWidth = 684 ClientWidth = 684
LCLVersion = '0.9.31' LCLVersion = '1.1'
object OpenGLControl1: TOpenGLControl object OpenGLControl1: TOpenGLControl
Left = 344 Left = 344
Height = 319 Height = 319
@ -23,17 +23,20 @@ object Form1: TForm1
Width = 344 Width = 344
AxisList = < AxisList = <
item item
Marks.LabelFont.Color = clTeal
Marks.Frame.Style = psSolid Marks.Frame.Style = psSolid
Marks.LabelBrush.Color = clYellow Marks.LabelBrush.Color = clYellow
Marks.LabelBrush.Style = bsSolid Marks.LabelBrush.Style = bsSolid
Minors = <>
Title.LabelFont.Orientation = 900 Title.LabelFont.Orientation = 900
end end
item item
Alignment = calBottom Alignment = calBottom
Minors = <>
end> end>
Foot.Brush.Color = clBtnFace Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace Title.Brush.Color = clSilver
Title.Font.Color = clBlue Title.Font.Color = clBlue
Title.Text.Strings = ( Title.Text.Strings = (
'Standard' 'Standard'
@ -49,7 +52,11 @@ object Form1: TForm1
Source = RandomChartSource1 Source = RandomChartSource1
end end
object Chart1BarSeries1: TBarSeries object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed Transparency = 127
BarBrush.Color = clGreen
Source = RandomChartSource1
end
object Chart1PieSeries1: TPieSeries
Source = RandomChartSource1 Source = RandomChartSource1
end end
end end

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

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