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 456 - BlackIsBlack theme breaks, the legend text of some themes
Summary: BlackIsBlack theme breaks, the legend text of some themes
Status: RESOLVED FIXED
Alias: None
Product: VCL TeeChart
Classification: Unclassified
Component: Other Components (show other bugs)
Version: 131119
Hardware: PC Windows
: --- enhancement
Target Milestone: ---
Assignee: Steema Issue Manager
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2013-11-21 07:56 EST by sandra pazos
Modified: 2013-11-22 05:09 EST (History)
1 user (show)

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


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description sandra pazos 2013-11-21 07:56:08 EST
If you work with application that use a determinate theme, for example, opera and you run this, when you go to Editor\Themes tab, you change the Theme for BlackIsBlack theme and then you  select , for example Classic or Grayscale, the legend text becomes white. 
To reproduce the problem you can use a similar code as next: 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeeGDIPlus, TeEngine, TeeTools, Series, ExtCtrls, TeeProcs,
  Chart, TeeComma, StdCtrls, TeeEdit;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    ChartEditor1: TChartEditor;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Series1: TBarSeries;
begin
Series1 := TBarSeries.Create(self);
Chart1.AddSeries(Series1);
Series1.FillSampleValues(10);
Series1.ColorEachPoint := True;
ChartEditor1.Chart:= Chart1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ChartEditor1.Execute;
end;

And open the editor\Theme and change first the Theme to BlackIsBlack and then select Classic or Grayscale or Opera, or Web or TeeChartDefault. The Legend texts are white.
Comment 1 david berneda 2013-11-22 05:09:48 EST
Fixed.
Now Legend.Font.Color is reset to black before applying any theme.

However, there are still some themes (BlackIsBlack etc) that have yet pending to be converted to the new theming system, using resourced charts instead of doing everything by code. 

When all themes will be converted to resources these problems will be fixed.
There might be currently many other properties that aren't correctly reset when switching from one theme to another.