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 836 - StartLine and EndLine TColorLines in TColorBandTool are disabled by default
Summary: StartLine and EndLine TColorLines in TColorBandTool are disabled by default
Status: RESOLVED FIXED
Alias: None
Product: VCL TeeChart
Classification: Unclassified
Component: Tools (show other bugs)
Version: 140512
Hardware: PC Windows
: --- enhancement
Target Milestone: ---
Assignee: Steema Issue Manager
URL: http://www.teechart.net/support/viewt...
Keywords:
Depends on:
Blocks:
 
Reported: 2014-07-10 07:57 EDT by yeray alonso
Modified: 2015-03-25 06:06 EDT (History)
0 users

See Also:
Chart Series: ---
Delphi / C++ Builder RAD IDE Version:

Attachments
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 2014-07-10 07:57:34 EDT 
StartLine and EndLine TColorLines in TColorBandTool are disabled by default.
This makes the Annotations on them not to be visible even if you set a text for them:

uses Series, TeeTools;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D := False;

  Chart1.AddSeries(TLineSeries).FillSampleValues;

  with Chart1.Tools.Add(TColorBandTool) as TColorBandTool do
  begin
    Axis := Chart1.Axes.Bottom;
    StartValue := 5;
    EndValue := 10;
    StartLine.Annotation.Text := 'Start';
    EndLine.Annotation.Text := 'End';
  end;
end;

You can manually make the TColorLines Active:

    StartLine.Active:=true;
    EndLine.Active:=true;

But these properties aren't available for TeeChart ActiveX yet (I'll open a new ticket asking for it). So we could activate them by default.
Comment 1 yeray alonso 2015-03-25 06:06:34 EDT 
At TeeTools.pas,

Function TColorBandTool.NewColorLine:TColorLineTool;
begin
  result:=TColorLineTool.Create(nil);
//  result.Active:=True;
  result.DragRepaint:=True;
  InitColorLine(result);
end;