Quantcast
Channel: Embarcadero Community - Embarcadero Community
Viewing all articles
Browse latest Browse all 2504

FireMonkey TPathData flatten : M0,0

$
0
0

What is this extra M0,0

Just one is enough.

procedure TForm1.Button1Click(Sender: TObject);
var
  PathD : TPathData;
  po1 : TPolygon;
begin
  PathD := TPathData.Create;
  PathD.Data := 'M0,0 L0,100 L100,100 L100,0 L0,0 Z';
  Memo1.Lines.Add(PathD.Data);
PathD.Flatten(); Memo1.Lines.Add(PathD.Data);
PathD.Flatten(); Memo1.Lines.Add(PathD.Data);
PathD.Flatten(); Memo1.Lines.Add(PathD.Data); end;

Extra M0,0 available here. Only one M0,0 should be. M0,0 = Move(0,0);

Out Memo1:

M0,0 L0,100 L100,100 L100,0 L0,0 Z 

M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 L0,100 L100,100 L100,0 L0,0 Z 

M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0
M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 L0,100 L100,100 L100,0 L0,0 Z 

M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0
M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0
M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0 M0,0
M0,0 M0,0 M0,0 M0,0 L0,100 L100,100 L100,0 L0,0 Z

How can I solve this?

(Yes this shape flatted. But same other circle, arc)


Viewing all articles
Browse latest Browse all 2504

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>