(Gast)
n/a Beiträge
|
AW: Mathematische Funktionen - Graph anzeigen
26. Mai 2018, 03: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 16:51 Uhr)
|
|
Zitat
|