diff --git a/components/tachart/demo/3d/main.lfm b/components/tachart/demo/3d/main.lfm index f2c95bd455..9159238ef7 100644 --- a/components/tachart/demo/3d/main.lfm +++ b/components/tachart/demo/3d/main.lfm @@ -10,7 +10,9 @@ object Form1: TForm1 Position = poScreenCenter LCLVersion = '0.9.27' object Chart1: TChart + Left = 0 Height = 300 + Top = 0 Width = 560 BottomAxis.Grid.Style = psDot BottomAxis.Grid.Visible = True @@ -42,10 +44,8 @@ object Form1: TForm1 Depth = 10 SeriesColor = clMaroon end - object Chart1BarSeries3: TBarSeries + object Chart1LineSeries1: TLineSeries ZPosition = 50 - BarBrush.Color = clBlue - BarWidthPercent = 50 Depth = 10 SeriesColor = clBlue end diff --git a/components/tachart/demo/3d/main.lrs b/components/tachart/demo/3d/main.lrs index 8a007c2d10..4f052ba52f 100644 --- a/components/tachart/demo/3d/main.lrs +++ b/components/tachart/demo/3d/main.lrs @@ -4,17 +4,17 @@ LazarusResources.Add('TForm1','FORMDATA',[ 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'>'#1#6'Height'#3','#1#3'Top'#3#150#0#5'Wi' +'dth'#3'0'#2#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3 +'0'#2#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVe' - +'rsion'#6#6'0.9.27'#0#6'TChart'#6'Chart1'#6'Height'#3','#1#5'Width'#3'0'#2#21 - +'BottomAxis.Grid.Style'#7#5'psDot'#23'BottomAxis.Grid.Visible'#9#5'Depth'#2 - +'2'#16'Foot.Brush.Color'#7#9'clBtnFace'#15'Foot.Font.Color'#7#6'clBlue'#13'F' - +'rame.Visible'#9#19'LeftAxis.Grid.Style'#7#5'psDot'#21'LeftAxis.Grid.Visible' - +#9#20'LeftAxis.Title.Angle'#2'Z'#17'Title.Brush.Color'#7#9'clBtnFace'#16'Tit' - +'le.Font.Color'#7#6'clBlue'#18'Title.Text.Strings'#1#6#7'TAChart'#0#5'Align' - +#7#8'alClient'#11'ParentColor'#8#0#10'TBarSeries'#16'Chart1BarSeries1'#9'ZPo' - +'sition'#2#10#14'BarBrush.Color'#7#6'clTeal'#15'BarWidthPercent'#2'2'#5'Dept' - +'h'#2#10#11'SeriesColor'#7#6'clTeal'#0#0#10'TBarSeries'#16'Chart1BarSeries2' - +#9'ZPosition'#2#30#14'BarBrush.Color'#7#8'clMaroon'#15'BarWidthPercent'#2'2' - +#5'Depth'#2#10#11'SeriesColor'#7#8'clMaroon'#0#0#10'TBarSeries'#16'Chart1Bar' - +'Series3'#9'ZPosition'#2'2'#14'BarBrush.Color'#7#6'clBlue'#15'BarWidthPercen' - +'t'#2'2'#5'Depth'#2#10#11'SeriesColor'#7#6'clBlue'#0#0#0#0 + +'rsion'#6#6'0.9.27'#0#6'TChart'#6'Chart1'#4'Left'#2#0#6'Height'#3','#1#3'Top' + +#2#0#5'Width'#3'0'#2#21'BottomAxis.Grid.Style'#7#5'psDot'#23'BottomAxis.Grid' + +'.Visible'#9#5'Depth'#2'2'#16'Foot.Brush.Color'#7#9'clBtnFace'#15'Foot.Font.' + +'Color'#7#6'clBlue'#13'Frame.Visible'#9#19'LeftAxis.Grid.Style'#7#5'psDot'#21 + +'LeftAxis.Grid.Visible'#9#20'LeftAxis.Title.Angle'#2'Z'#17'Title.Brush.Color' + +#7#9'clBtnFace'#16'Title.Font.Color'#7#6'clBlue'#18'Title.Text.Strings'#1#6#7 + +'TAChart'#0#5'Align'#7#8'alClient'#11'ParentColor'#8#0#10'TBarSeries'#16'Cha' + +'rt1BarSeries1'#9'ZPosition'#2#10#14'BarBrush.Color'#7#6'clTeal'#15'BarWidth' + +'Percent'#2'2'#5'Depth'#2#10#11'SeriesColor'#7#6'clTeal'#0#0#10'TBarSeries' + +#16'Chart1BarSeries2'#9'ZPosition'#2#30#14'BarBrush.Color'#7#8'clMaroon'#15 + +'BarWidthPercent'#2'2'#5'Depth'#2#10#11'SeriesColor'#7#8'clMaroon'#0#0#11'TL' + +'ineSeries'#17'Chart1LineSeries1'#9'ZPosition'#2'2'#5'Depth'#2#10#11'SeriesC' + +'olor'#7#6'clBlue'#0#0#0#0 ]); diff --git a/components/tachart/demo/3d/main.pas b/components/tachart/demo/3d/main.pas index 8ac9683fd8..53a44c2a5b 100644 --- a/components/tachart/demo/3d/main.pas +++ b/components/tachart/demo/3d/main.pas @@ -16,7 +16,7 @@ type Chart1: TChart; Chart1BarSeries1: TBarSeries; Chart1BarSeries2: TBarSeries; - Chart1BarSeries3: TBarSeries; + Chart1LineSeries1: TLineSeries; procedure FormCreate(Sender: TObject); end; @@ -35,7 +35,7 @@ begin for i := 1 to 7 do begin Chart1BarSeries1.AddXY(i, Random(8) + 4); Chart1BarSeries2.AddXY(i, Random(8) + 4); - Chart1BarSeries3.AddXY(i, Random(8) + 4); + Chart1LineSeries1.AddXY(i, Random(8) + 4); end; end; diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas index 79103115ec..31e36cf827 100644 --- a/components/tachart/taseries.pas +++ b/components/tachart/taseries.pas @@ -256,6 +256,7 @@ type property XGraphMax; property YGraphMax; published + property Depth; property OnDrawPointer: TSeriesPointerDrawEvent read FOnDrawPointer write FOnDrawPointer; property Pointer: TSeriesPointer read FPointer write SetPointer; @@ -660,6 +661,7 @@ var var i: Integer; + c: TColor; begin if Count = 0 then exit; @@ -672,8 +674,17 @@ begin if PrepareLine then begin ACanvas.Pen.Style := FStyle; - ACanvas.Pen.Color := PChartCoord(FCoordList[i])^.Color; - ACanvas.Line(i1, i2); + c := PChartCoord(FCoordList[i])^.Color; + if Depth = 0 then begin + ACanvas.Pen.Color := c; + ACanvas.Line(i1, i2); + end + else begin + ACanvas.Brush.Style := bsSolid; + ACanvas.Pen.Color := clBlack; + ACanvas.Brush.Color := c; + DrawLineDepth(ACanvas, i1, i2, Depth); + end; end; DrawPoint(i); end;