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:
.png)
Czy macie może pomysł czego mi jeszcze brakuje?
- 6bbf805b_o.png (16 KB) - ściągnięć: 160
Delphi 
Pen.Color?ExceptAddri na podstawie pliku z danymi debuggera (które na pewno Delphi jest w stanie wygenerować do osobnego pliku) można wyjąć nazwę procedury (dowolnej), ew.może istnieje jakaś wbudowana funkcja, tego nie wiem - FPC przykładowo posiadaSysBacktraceStr, która automatycznie na podstawie adresu zwraca nazwę funkcji | alzo, nie ma nic gorszego od mieszania polskich i angielskich słów w jednym identyfikatorze.ObsluzBladmoże jest tylko do "debugowania", choć jak już coś to widziałbym tam coś poroju{$IFDEF DEBUG};) Co do drugiego (identyfikatory) - święta racja, choć nie dla tych, co nie znają wystarczająco angielskiego; Ale też polecam pozbycia się manii spolszczania języka;