Ok. In this specific application I'm using the Standard version included in Delphi 5.0. I'm already using OnAfterDraw to draw the marks position, but in this case it's necessary the marks appear in front of the bar, else the layout of the chart will be terrible, with marks 'lost' in the chart. This ...

Hi Narcis I didn't get acess the newsgroup. Below is the code (.pas and .dfm) : .pas unit Graficos; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series; type TForm1 = class(TForm) Chart1: TChart; Series1: TBarSeries; Se...

Hi

I'm having the problem : marks behind the series when I use Bar Series and 2D ( in 3D it's OK ). I'm using the TChart that comes with Delphi 5.0. I calculate the marks points manually, but it isn't the cause. Is there a patch for this problem ?

Regards,

Marcelo

I'm having the same problem ( marks behind the series ) when I use Bar Series and 2D ( in 3D it's OK ). I'm using the TChart that comes with Delphi 5.0. I calculate the marks points manually, but it isn't the cause. Is there a patch for this problem ? Regards. Marcelo Hi, Jim. I've tried to replicat...

Hi Marcelo, yes, you can hide them using : Series.Marks.Arrow.Hide; or set the ArrowFrom and ArrowTo values. Hi Pep It's worked. Thanks. One more question : In code below, I have to call the Chart.refresh method to new marks positions work. Only using the Repaint didn't work. But when I use the Ref...

Thanks Pep, your code solve my problem :) , but I didn't get move the arrows. What I need to do ? It's possible to hide those arrows ? tks. Marcelo Hi Marcelo, you can use similar code to the following : procedure TForm1.Chart1AfterDraw(Sender: TObject); begin DoAlignMarks(Series1); end; procedure T...

Hi, I'm tryng to define manually the marks position in my chart ( TBarSeries ). I'm having troubles when I do a horizontal scrolling in the chart. The marks don't 'scroll' with the bars. This is the code : procedure TfSGEIS_SHOW.ChartAfterDraw(Sender: TObject); Var i,j:Integer; lAlterna : Boolean; b...