delphi画图中出现多变形 画不出来polygon 感觉程序都没有错误呀
AssignFile(F,'e:\地图数据/绿地.MIF');
Reset(F); //只读打开
Readln(F,penwidth,pentype,pencolor);
Readln(F,siBrushPattern,lForeColor,lBackColor);
R:=round(pencolor/65536);
G:=round((pencolor-R*65536)/256);
B:=pencolor-R*65536-G*256;

R1:=round(lForeColor/65536);
G1:=round((lForeColor-R1*65536)/256);
B1:=lForeColor-R1*65536-G1*256;




while not Eof(F) do
begin
readln(F);
readln(F,points);
readln(F,xArray[0],yArray[0]);
x:=round((xArray[0]-mapleftx)*1000000*setcshx);
y:=round((yArray[0]-maprighty)*1000000*setcshy);

image1.Canvas.MoveTo(x,y);
{ readln(F,xArray[0],yArray[0]);
x:=round((xArray[0]-mapleftx)*1000000*setcshx);
y:=round((yArray[0]-maprighty)*1000000*setcshy);


xArray[0]:=116.88365;
yArray[0]:=36.64903;


x:=round((xArray[0]-mapleftx)*1000000*setcshx);
y:=round((yArray[0]-maprighty)*1000000*setcshy);
image1.Canvas.Ellipse((x-100),(y-100),(x+100),(y+100));
}


for i:=1 to points-1 do
begin
readln(F,xArray[i],yArray[i]);
x:=round((xArray[i]-mapleftx)*1000000*setcshx);
y:=round((yArray[i]-maprighty)*1000000*setcshy);

pointone[i].X:=x;
pointone[i].Y:=y;
// MyPoints[0]:=Point(200,100);


// image1.Canvas.LineTo(x,y);


end;
// pointone[0]:=pointone[points-1];
image1.Canvas.Pen.Color:=RGB(R,G,B);
image1.Canvas.Pen.Width:=penwidth;
image1.Canvas.Brush.Color:= RGB(R1,G1,B1);
image1.Canvas.Polygon(pointone);
readln(F);
readln(F);
readln(F);
{ for i:=0 to points-1 do
begin
// pointone[i]:=point(x,y);
pointone[i].X:=0;
pointone[i].Y:=0;
end; }
end;

CloseFile(F);


[解决办法]
既然能够看到线那就说明是你的代码有问题,这样看一下你的image加载的是bmp么？如果是jpg的，换个bmp
另外用这个代码试一下，能不能画出填充多边形
const
pts: array[0..3] of TPoint = (
(x:10; y:40),
(x:46; y:120),
(x:82; y:40),
(x:46; y:10)
);
//----------------------------
procedure TForm1.Button1Click(Sender: TObject);
const
pts: array[0..3] of TPoint = (
(x:10; y:40),
(x:46; y:120),
(x:82; y:40),
(x:46; y:10)
);
begin
Canvas.Polygon(pts);
end;