Sinuskurve auf PlotGrid ausgeben

[fristo23]

Hallo liebe Gemeinde,

ich versuche derzeit eine plattformübergreifende Anwendung mit Delphi zu schreiben. (RAD Studio)
Diese soll eine Kurve darstellen, dazu nun 3 Fragen.

1. Wieso wird bei mir nach dem Zeichnen der Kurve noch eine Linie vom letzten zum ersten Punkt gezeichnet.
2. Weiß jemand ob es (speziell Andorid) möglich ist, in einer gezeichneten Funktion auf einem PlotGrid die Zoomfunktion zu nutzen? Habe eine GestureManger hinzugefügt und Zoomen aktiviert, Zoomt aber nix :/
3. Ich habe versucht über den Timer die Kurve "punktweise" zeichnen zu lassen, also so, dass ein Graph wächst quasi (schlecht zu umschreiben).

Kann mir vielleicht jemand helfen :)

Ich hänge mal den von Rad Studio (aus einem Tutorial) vorgefertigten Code mit an.
Vielen Dank schon einmal für eure Mühe.

Code:

procedure TForm1.SetParams;
begin
  Resolution := 200;                    // Set resolution to 200 points
  Radian := -2.0 * Pi;                  // Start angle at -2Pi
  xPixels := PlotGrid1.Width / 4;        // Contain graph width within a quarter of the grid width (actually half because of neg values)
  yPixels := PlotGrid1.Height / 4;       // Contain graph height within a quarter of the grid height (actually half because of neg values)
  Origin := PointF(PlotGrid1.Width / 2,  // Calculate the center point of the plot grid
    PlotGrid1.Height / 2);
  Interval := 4.0 * Pi / Resolution;    // Set interval between two points in which function values are calculated
end;

procedure TForm1.CalculateSin;
var
  I: Integer;
 begin

  SetLength(FPoints, Resolution);                         // Alloc space for number of points to be calculated
  SetParams;

  for I := 0 to High(FPoints) do
  begin
    FPoints[I].X := Origin.x + Radian * xPixels / Pi;     // Calculate X value with scaling
    FPoints[I].Y := Origin.y - sin(Radian) * yPixels;     // Calculate Y value (f(X)) with scaling
    Radian := Radian + Interval;                          // Set next point
  end;

end;

procedure TForm1.PlotGridPaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);

begin
       plotgrid1.Frequency:=1000;


  PlotGrid1.Canvas.StrokeThickness := 1;              // Set stroke thickness

  CalculateSin;                                          // Calculate and scale X and sin(X) values and save them in FPoints
  PlotGrid1.Canvas.Stroke.Color := TAlphaColorRec.Red;   // Set color for sin to red
  PlotGrid1.Canvas.DrawPolygon(FPoints, 1);               // Draw sin graph

end;

[Sir Rufo]

Zu 1.:

Das ist so dokumentiert
FMX.Graphics.TCanvas.DrawPolygon (Seattle)

Zitat:

Hinweis: Wenn der erste und der letzte Punkt im

Delphi-Quellcode:

Points

-Array nicht übereinstimmen, verbindet

Delphi-Quellcode:

DrawPolygon

den ersten und den letzten Punkt automatisch miteinander und schließt das Polygon.

Es gab da allerdings eine geändertes Verhalten zu XE8
FMX.Graphics.TCanvas.DrawPolygon (XE8)

Zitat:

Wenn der erste und der letzte Punkt des Arrays

Delphi-Quellcode:

Points

nicht übereinstimmen, wird die letzte Seite des Polygons nicht gezeichnet.

Korrekterweise müsste man hier einen Pfad (

Delphi-Quellcode:

TPathData

) erzeugen und mit FMX.Graphics.TCanvas.DrawPath arbeiten.

[fristo23]

Vielen Dank für die schnelle Antwort.
Ich guck mir das gleich mal an :)
BTW ich arbeite mit XE8.

[Sir Rufo]

Zitat:

Zitat von fristo23 (Beitrag 1330412)

BTW ich arbeite mit XE8.

Dann gab/gibt es da wohl einen Fehler in der XE8 Dokumentation :stupid:

[fristo23]

Mich verwirrt dabei nur, dass in der Doku die Sinusfunktion normal dargestellt wird. Ich les mich jetzt mal in das TPathData ein und hoffe das ich das umsetzen kann. :D

[Sir Rufo]

Zitat:

Zitat von fristo23 (Beitrag 1330416)

Mich verwirrt dabei nur, dass in der Doku die Sinusfunktion normal dargestellt wird. Ich les mich jetzt mal in das TPathData ein und hoffe das ich das umsetzen kann. :D

Du brauchst doch nur in den Source schauen und abschreiben. Das Polygon wird mit einem Pfad gezeichnet. Lediglich am Ende wird der Pfad noch geschlossen. :stupid:

Use the force of the source, Luke! :mrgreen:

[fristo23]

Das sagst du so leicht ;)
Für mich ist das eine Herausforderung, hab auch erstmal 5 Tage nur gedrosseltes mobiles Internet, von daher ist auch alles ordentlich langsam.

[fristo23]

Ich hab dabei folgendes Problem, ich hab mir ein TPathData angelegt und würde das jetzt in der gleichen Weise befüllen wollen. Bei FPoints, einem einfachen Array konnte ich ja schreiben FPoints[i].X:=.... die Möglichkeit hab ich aber bei dem TPathData nicht. Kann ich das einfach mit TPathData.point:= ... machen?
Ich weiss schon das ist jetzt nicht die beste Frage, aber mir fehlt hier grad der Einstieg.

Danke schon mal

[Sir Rufo]

1. Schreibst du
   
   Delphi-Quellcode:

   PlotGrid1.Canvas.DrawPolygon(FPoints, 1);

2. Klickst du mit gedrückter STRG-Taste auf
   Delphi-Quellcode:

   DrawPolygon

3. Kommst du
   
   Delphi-Quellcode:

   procedure TCanvas.DrawPolygon(const Points: TPolygon; const AOpacity: Single);
   begin
     ...
   end;

4. Schreibst du ab und kommentierst alle
   Delphi-Quellcode:

   Path.ClosePath;

   aus
5. Bist du fertig :stupid:

[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;