Ich meinte einfach den Programmstart mit Quelltexthaltepunkten (F9). Ja, das wirds dann wohl sein, ok. Entschuldigt dann bitte die dumme Frage, ich hab mein XE7 ganz neu und war mir dessen nicht bewusst.
Also aber zurück zum eigentlichen Thema: Ja, es gibt ein Problem. Ich schicke euch mal den Quelltext meines Testprogramms:
Delphi-Quellcode:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, VclTee.TeeGDIPlus, VCLTee.TeEngine,
VCLTee.Series,
Vcl.StdCtrls,
Vcl.ExtCtrls, VCLTee.TeeProcs, VCLTee.Chart;
type
TForm1 =
class(TForm)
Chart1: TChart;
Button1: TButton;
Series1: THorizBarSeries;
Series2: THorizBarSeries;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
With Series1
do
begin
Add (5, '
Pears', clRed);
Add (4, '
Apples', clRed);
Add (4, '
Oranges', clRed);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
With Series2
do
begin
Add (5, '
Pears', clBlue);
Add (6, '
Apples', clBlue);
Add (16, '
Oranges', clBlue);
end;
end;
end.
Was ich erwartet hätte/möchte:
Programmstart - leerer Chart (funktioniert)
Button1Click - Drei rote Balken, alle über die volle Länge, da es ja noch keine anderen Daten gibt, die Werte also jeweils 100% entsprechen (funktioniert)
Button2Click - Die drei Balken sollen jetzt 50/50,40/60,20/80 Verhältnisse anzeigen (stattdessen überlagern sich die Balken scheinbar, nur die Achsenskalierung ändert sich, aber der Balken bleibt 100% rot).
Wo liegt der Fehler?
Es scheint jedenfalls immer so zu sein, dass die Rote Serie die Blaue überlagert, anstatt sich zu ergänzen...
Danke!
