Hi René,
Zitat von
renekr:
Es ist immer wieder eine Freude Tips von dir zu bekommen.
vielen Dank für die Blumen.
Zitat von
renekr:
Gibt es eigentlich ne möglichkeit,das ich zb. alle Eigenschaften von einem Cahrt auf Form1 zu Chart 1 auf Form 2 zb. übernehmen ohne alle manuell zu setzen.
Eigenschaften von Chart1 auf Chart2 übertragen geht so:
Chart2.Assign(Chart1);
Zitat von
renekr:
Kannst du mir noch sagen wie ich die "ExplodeBiggest = 30" Eigenschaft setzen kann?
Das ist eine Eigenschaft von TPieSeries:
Delphi-Quellcode:
procedure TDemoForm.AddButtonClick(Sender: TObject);
var
ps: TPieSeries;
begin
{
while Chart1.SeriesCount > 0 do
Chart1.Series[0].Free;
}
ps := TPieSeries.Create(self);
with ps do
begin
ps.ParentChart := Chart1;
ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clRed);
ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clBlue);
ps.AddPie(50 + Random(10), Chr(Ord('A') + ps.Count), clGreen);
ps.ExplodeBiggest := 30;
end;
end;
Freundliche Grüße vom marabu