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

TAChart: Add cuAxis element to TChartUnits type. Update axis demo.

Browse Source 
git-svn-id: trunk@38324 -
This commit is contained in:
ask 2012-08-22 08:24:46 +00:00
parent 7f85da95f6
commit 17acb22f33
3 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/demo/axis/main.lfm
View File

@ -404,9 +404,9 @@ object Form1: TForm1
end end
object lblPositionX: TLabel object lblPositionX: TLabel
Left = 6 Left = 6
Height = 14 Height = 13
Top = 5 Top = 5
Width = 42 Width = 41
Caption = 'Position:' Caption = 'Position:'
ParentColor = False ParentColor = False
end end
@ -440,9 +440,9 @@ object Form1: TForm1
end end
object lblUnitsX: TLabel object lblUnitsX: TLabel
Left = 6 Left = 6
Height = 14 Height = 13
Top = 33 Top = 33
Width = 29 Width = 28
Caption = 'Units:' Caption = 'Units:'
ParentColor = False ParentColor = False
end end
@ -455,6 +455,7 @@ object Form1: TForm1
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'percent' 'percent'
'axis'
'graph' 'graph'
'pixel' 'pixel'
) )
@ -476,9 +477,9 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object lblPositionY: TLabel object lblPositionY: TLabel
Left = 6 Left = 6
Height = 14 Height = 13
Top = 4 Top = 4
Width = 42 Width = 41
Caption = 'Position:' Caption = 'Position:'
ParentColor = False ParentColor = False
end end
@ -538,9 +539,9 @@ object Form1: TForm1
end end
object lblUnitsY: TLabel object lblUnitsY: TLabel
Left = 6 Left = 6
Height = 14 Height = 13
Top = 33 Top = 33
Width = 29 Width = 28
Caption = 'Units:' Caption = 'Units:'
ParentColor = False ParentColor = False
end end

3
components/tachart/tachartaxis.pas
View File

@ -728,7 +728,8 @@ begin
r[Alignment], r[Alignment],
r[TChartAxisAlignment((Ord(Alignment) + 2) mod 4)], r[TChartAxisAlignment((Ord(Alignment) + 2) mod 4)],
Position * PERCENT)); Position * PERCENT));
cuGraph: // TODO: Add OrthogonalAxis property to support cuAxis position.
cuAxis, cuGraph:
if IsVertical then if IsVertical then
Result := FHelper.FTransf.XGraphToImage(Position) Result := FHelper.FTransf.XGraphToImage(Position)
else else

2
components/tachart/tachartutils.pas
View File

@ -67,7 +67,7 @@ type
TTransformFunc = function (A: Double): Double of object; TTransformFunc = function (A: Double): Double of object;
TChartUnits = (cuPercent, cuGraph, cuPixel); TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel);
TSeriesMarksStyle = ( TSeriesMarksStyle = (
smsCustom, { user-defined } smsCustom, { user-defined }