Drodzy koledzy,
mam na formularzu min. Chart1 do rysowania wykresów. Co godzinę ma przybywać kolejny Series, a żeby ułatwić sobie sprawę i wszystkie generować identyczne (pozmieniałem kolory, dodałem parę efektów 3d) zrobiłem tak:
function TfmMain.GenerujSeries(Title: string): TChartSeries;
var
tempSeries: TChartSeries;
begin
result := nil;
try
tempSeries := TChartSeries.Create(nil);
tempSeries.ParentChart := Chart1;
tempSeries.Title := Title;
tempSeries.Visible := True;
tempseries.Pen.Width := 4;
tempseries.Pen.Style := psDot;
tempseries.Name := 'd';
tempseries.Marks.Visible := true;
tempseries.Marks.Clip := false;
except
on e: Exception do
ObsluzBlad(e, 'TfmMain.GenerujSeries');
end;
end;
Jak widzicie użyłem już sporo właściwości z TChartSeries, ale żadna mi nie pokazuje linii na wykresie. Tak jak na przykładowym screnie:
Czy macie może pomysł czego mi jeszcze brakuje?