I noticed an issue with polyline points in recent versions of ImageEn.
Here is some sample code to illustrate the problem:
procedure TForm23.FormCreate(Sender: TObject);
var
plLayer: TIEPolylineLayer;
begin
ImageEnView1.IEBitmap.Fill(clWhite);
ImageEnView1.LayersAdd(ielkPolyline, 0, 0, ImageEnView1.Layers[0].Width, ImageEnView1.Layers[0].Height);
plLayer := TIEPolylineLayer(ImageEnView1.CurrentLayer);
with plLayer do
begin
ClearAllPoints;
AddPoint( 0, 0 );
AddPoint( 600, 0 );
AddPoint( 400, 1000 );
AddPoint( 0, 1000 );
FillColor := clBlack;
PolylineClosed := True;
end;
end;
Using version 8.6.0 the result is as expected:
This is what I get with version 9.0.0:
Something seems to be off with the scaling of points?
Phil
Search
