Всем привет!!!
имею такой скрипт:
var
ChartLine: TChart;
procedure Form1_OnShow (Sender: string; Action: string);
begin
ChartLine := TChart.Create(Form1);
ChartLine.Parent := Form1.Panel1;
ChartLine.Align := alClient;
ChartLine.AddSeries(TLineSeries.Create(ChartLine));
ChartLine.Series[0].XValues.DateTime := True;
ChartLine.View3D := False; // отключить 3д
end;
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
Results: TDataSet;
DateValue: Double;
ProfitValue: string;
i,c: integer;
begin
ChartLine.Series[0].Clear;
c := Form1.TableGrid1.RowCount-1;
for i := 0 to c do
begin
if ValidDate(Form1.TableGrid1.Cells[1, i]) then DateValue := StrToDate(Form1.TableGrid1.Cells[1, i]);
ProfitValue := Form1.TableGrid1.Cells[2, i];
if ValidFloat(ProfitValue) then ChartLine.Series[0].AddXY(DateValue, StrToFloat(ProfitValue) );
end;
end;
т.е. данные для графика берутся из TableGrid1...
это РАБОТАЕТ ОК!!!
ПРОБЛЕМА в том, что если дата от предыдущей даты с большим разрывом, то график теряет "красоту"...
Вопрос: есть способ откорректировать скрипт, чтоб по оси где "дата"...
дата распределялась равномерно, не смотря большой разрыв между датами???
Заранее СПАСИБО!!!