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;