Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.



Bug 1820 - Side by Side Bars overlap
Summary: Side by Side Bars overlap
Status: CONFIRMED
Alias: None
Product: FireMonkey TeeChart
Classification: Unclassified
Component: Series (show other bugs)
Version: unspecified
Hardware: PC Windows
: Normal major
Target Milestone: ---
Assignee: Steema Issue Manager
URL: http://www.teechart.net/support/viewt...
Keywords:
Depends on:
Blocks:
 
Reported: 2017-03-16 10:18 EDT by yeray alonso
Modified: 2021-04-21 05:29 EDT (History)
2 users (show)

See Also:
Chart Series: Bar
Delphi / C++ Builder RAD IDE Version: RAD 10.1 Berlin

Attachments
test project (1.47 KB, application/x-zip-compressed)
2017-03-16 10:18 EDT, yeray alonso 		Details
View All Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
Description yeray alonso 2017-03-16 10:18:28 EDT 
Created attachment 735 [details]
test project

As the customer shows in a screenshot, some of the bars overlap when side by side.
See the attached project.

It looks as if the bars were drawn in the wrong order.

Works fine in VCL.
Comment 1 sandra pazos 2017-06-07 06:55:46 EDT 
Update. 
The problem occurs when is set the Xvalues property Order to Descending.   E.g:
Chart1[0].XValues.Order := loNone;
Chart1[1].XValues.Order := loDescening;
Comment 2 yeray alonso 2017-06-08 03:28:11 EDT 
The problem appears when you set a Descending order to the XValues on the second bar series. Also happens in VCL:

uses Series;

var Series1, Series2: TBarSeries;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1:=Chart1.AddSeries(TBarSeries) as TBarSeries;
  Series1.FillSampleValues;

  Series2:=Chart1.AddSeries(TBarSeries) as TBarSeries;
  Series2.XValues.Order := loDescending;
  Series2.FillSampleValues;
end;

The workaround is to set the order back to Ascending:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Series2.XValues.Order:=loAscending;
  Series2.XValues.Sort;

  Chart1.Repaint;
end;