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 2334

Summary: PolarContourSeries values
Product: VCL TeeChart Reporter: Roman <roman.batrak>
Component: SeriesAssignee: Steema Issue Manager <issuemanager>
Status: CONFIRMED ---    
Severity: enhancement CC: marc, yeray
Priority: ---    
Version: unspecified   
Target Milestone: ---   
Hardware: PC   
OS: Windows   
Chart Series: Polar Delphi / C++ Builder RAD IDE Version:
Attachments: line values on the normal series, how to draw them on the polar?

Description Roman 2020-05-28 05:41:16 EDT 
Created attachment 938 [details]
line values on the normal series, how to draw them on the polar?

Dear TeeChart team,

Is there a way how to get the same feature as shows in the attachment but for the polar series? Thanks.
Comment 1 marc meumann 2020-09-29 11:40:37 EDT 
We don't plan to add this feature just yet, a way of arriving at line locations and values could be with this type of code:

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var x1, y1, idx1, x2, y2, idx2, midx, midy : Integer;
begin
  idx1 := 3;

  x1:=Series1.CalcXPos(idx1);
  y1:=Series1.CalcYPos(idx1);

  idx2 := 4;

  x2:=Series1.CalcXPos(idx2);
  y2:=Series1.CalcYPos(idx2);

  Chart1.Canvas.Font.Color := clWhite;

  //info
  //Chart1.Canvas.TextOut(x1,y1,'first point ' + IntToStr(idx1));
  //Chart1.Canvas.TextOut(x2,y2,'next point ' + IntToStr(idx2));

  midx := x1 + (x2 - x1) div 2;
  midy := y1 + (y2 - y1) div 2;

  Chart1.Canvas.Pen.Color := clWhite;
  Chart1.Canvas.Ellipse(Rect(midx-1,midy-1,midx+1,midy+1));
  Chart1.Canvas.TextOut(midx,midy,'mid val');
  //or RotateLabel .. need to calculate angle.
end;