Steema Central

Code: Select all

       if (not View3D) and FDrawLine then
       begin
          // ???
          if LinePen.Color <> clBlack then
          begin
            if LinePen.Color <> SeriesColor then
            begin
              tmpColor:=LinePen.Color;
              SeriesColor:=LinePen.Color;
            end;
          end
          else
             LinePen.Color:=SeriesColor;

          CheckMaxPixelXY;
          DrawLine2D;
       end;

Code: Select all

       if (not View3D) and FDrawLine then
       begin
          if ColorEachLine then
            tmpColor:=ValueColor[ValueIndex]
          else
            if LinePen.Color <> clBlack then
            begin
              if LinePen.Color <> SeriesColor then
              begin
                tmpColor:=LinePen.Color;
                SeriesColor:=tmpColor;
              end;
            end
            else
               tmpColor:=SeriesColor;

          CheckMaxPixelXY;
          DrawLine2D;
       end;