paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:36:01 +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
object lblPositionX: TLabel
Left = 6
Height = 14
Height = 13
Top = 5
Width = 42
Width = 41
Caption = 'Position:'
ParentColor = False
end
@ -440,9 +440,9 @@ object Form1: TForm1
end
object lblUnitsX: TLabel
Left = 6
Height = 14
Height = 13
Top = 33
Width = 29
Width = 28
Caption = 'Units:'
ParentColor = False
end
@ -455,6 +455,7 @@ object Form1: TForm1
ItemIndex = 0
Items.Strings = (
'percent'
'axis'
'graph'
'pixel'
)
@ -476,9 +477,9 @@ object Form1: TForm1
TabOrder = 1
object lblPositionY: TLabel
Left = 6
Height = 14
Height = 13
Top = 4
Width = 42
Width = 41
Caption = 'Position:'
ParentColor = False
end
@ -538,9 +539,9 @@ object Form1: TForm1
end
object lblUnitsY: TLabel
Left = 6
Height = 14
Height = 13
Top = 33
Width = 29
Width = 28
Caption = 'Units:'
ParentColor = False
end

3
components/tachart/tachartaxis.pas
View File

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

2
components/tachart/tachartutils.pas
View File

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