Sinuskurve auf PlotGrid ausgeben

[fristo23]

Meinst du einfach so? DIe komplette Prozedur einfügen?
Wieso hab ich das mit Strg drücken nicht gewusst ;D ich hab mir die Doku durchgelesen, du meintest mit Source aber wirklich Source

Code:

 procedure TCanvas.DrawPolygon(const Points: TPolygon; const AOpacity: Single);
var
  I: Integer;
  Path: TPathData;
  PathBreakFound: Boolean;
begin
  if not DoDrawPolygon(Points, AOpacity, FStroke) then
  begin
    Path := TPathData.Create;
    try
      PathBreakFound := False;
      for I := 0 to High(Points) do
      begin
        if I = 0 then
          Path.MoveTo(Points[I])
        else
        if (Points[I].X = PolygonPointBreak.X) and (Points[I].Y = PolygonPointBreak.Y) then
        begin
         // Path.ClosePath;
          PathBreakFound := True;
        end
        else
          Path.LineTo(Points[I]);
      end;
      if not PathBreakFound then
       // Path.ClosePath;
      DrawPath(Path, AOpacity);
    finally
      Path.Free;
    end;
  end;
end;