paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use TBubbleSeries.OverrideColor property in "multi" demo

Browse Source 
git-svn-id: trunk@39151 -
This commit is contained in:
ask 2012-10-23 12:05:29 +00:00
parent 763c21cad7
commit 363a8ffcc7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/demo/multi/Main.lfm
View File

@ -57,6 +57,7 @@ object Form1: TForm1
Marks.Style = smsValue Marks.Style = smsValue
BubbleBrush.Color = clRed BubbleBrush.Color = clRed
BubbleBrush.Style = bsDiagCross BubbleBrush.Style = bsDiagCross
OverrideColor = [bocBrush, bocPen]
Source = lcsBubble Source = lcsBubble
end end
end end
@ -305,10 +306,10 @@ object Form1: TForm1
DataPoints.Strings = ( DataPoints.Strings = (
'10|50|3|?|' '10|50|3|?|'
'20|30|1|?|' '20|30|1|?|'
'50|40|6|?|'
'80|60|2|?|'
'60|50|15|?|'
'35|20|9|?|' '35|20|9|?|'
'50|40|6|$00FF00|'
'60|50|15|?|'
'80|60|2|?|'
) )
YCount = 2 YCount = 2
left = 130 left = 130