тестируем график... (Page 1 of 2)

{== LINE CHART ===========================================================================================}
procedure Form1_bLineUpdate_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    DateValue: Double;
    ProfitValue: string;
    i,c: integer;
begin
    ChartLine.Series[0].Clear;

    c := Form1.GridLine.RowCount-1;
    for i := 0 to c do
    begin
        if ValidDate(Form1.GridLine.Cells[0, i]) then DateValue := StrToDate(Form1.GridLine.Cells[0, i]);
        ProfitValue := Form1.GridLine.Cells[1, i];

        if ValidFloat(ProfitValue) then ChartLine.Series[0].AddXY(DateValue, StrToFloat(ProfitValue) );
    end;


end;
{== LINE CHART ===========================================================================================}

  ChartLine.View3D := False;
  TLineSeries(ChartLine.Series[0]).Pointer.Visible := True;
  TLineSeries(ChartLine.Series[0]).Pointer.Style  := psCircle;
  TLineSeries(ChartLine.Series[0]).Pointer.Size   := 10;

{== LINE CHART ===========================================================================================}
procedure Form1_bLineUpdate_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    DateValue: Double;
    ProfitValue: string;
    col: TColor;
begin
    ChartLine.Series[0].Clear;

    SQLQuery('SELECT date, profit FROM line_data ORDER BY date DESC', Results);

    while not Results.Eof do
    begin
        DateValue := SQLDateTimeToDateTime( Results.FieldByName('date').asString );
        ProfitValue := Results.FieldByName('profit').asString;

        if ValidFloat(ProfitValue) then
        begin
            if StrToFloat(ProfitValue) < 0 then col := clRed else col := clGreen;
            ChartLine.Series[0].AddXY(DateValue, StrToFloat(ProfitValue), '', col );
        end;
        Results.Next;
    end;

end;
{== LINE CHART ===========================================================================================}

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;
    x: integer;
begin
    ChartLine.Series[0].Clear;
    x := 0;
    
    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(x, StrToFloat(ProfitValue), DateToStr(DateValue) );
        Inc(x);
    end;
end;

if ValidFloat(ProfitValue) then ChartLine.Series[0].AddXY(x, StrToFloat(ProfitValue), DateToStr(DateValue) );

        if ValidFloat(ProfitValue) then
        begin
            if StrToFloat(ProfitValue) > 0 then
                ChartLine.Series[0].AddXY(x, StrToFloat(ProfitValue), DateToStr(DateValue), clBlue)
            else ChartLine.Series[0].AddXY(x, StrToFloat(ProfitValue), DateToStr(DateValue), clRed);
        end;