Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#2

AW: Mathematische Funktionen - Graph anzeigen

  Alt 26. Mai 2018, 02:10
Willkommen in der DP.

Du könntest Polyline verwenden.
Ausschnitt aus meiner Library..

Delphi-Quellcode:
        OBJECT_CURVE:
          begin
            if HiWord(Obj.objtype) = DRAW_OPEN then
              GdipDrawCurve2I(Graphics, pen, @pt[0], Obj.metacount, Tension)
            else
            begin
              if HiWord(Obj.objtype) = DRAW_OUTLINE then
                nStatus := GdipDrawClosedCurve2I(Graphics, pen, @pt[0], Obj.metacount, Tension)
              else
              begin
                GdipCreateSolidFill(GD_ARGB(128, 0, 0, 0), brush);
                nStatus := GdipFillClosedCurve2I(Graphics, brush, @pt[0], Obj.metacount, Tension,
                  0);//FillModeAlternate
                // Cleanup
                GdipDeleteBrush(brush);
              end;
            end;
          end;

        OBJECT_POLYLINE:
          begin
            if HiWord(Obj.objtype) = DRAW_OPEN then
              nStatus := GdipDrawLinesI(Graphics, pen, @pt[0], Obj.metacount)
            else
            begin
              if HiWord(Obj.objtype) = DRAW_OUTLINE then
                nStatus := GdipDrawPolygonI(Graphics, pen, @pt[0], Obj.metacount)
              else
              begin
                GdipCreateSolidFill(GD_ARGB(128, 0, 0, 0), brush);
                nStatus := GdipFillPolygon2I(Graphics, brush, @pt[0], Obj.metacount);
                // Cleanup
                GdipDeleteBrush(brush);
              end;
            end;
          end;
unter Verwendung von GDI+
Sieht dann so aus.
Man legt die Positionen fest und übergibt sie an die jeweiligen Funktionen groß selbst berechnen muss man da nichts.

gruss

Geändert von EWeiss (11. Jul 2019 um 15:51 Uhr)
  Mit Zitat antworten Zitat