mit dem folgenden quelltext wird ein trapez gezeichnet.
warum wird diese nicht ausgemalt?
with form1.image1.canvas do
begin
pen.color:=clblack;
brush.color:=clred;
brush.style:=bssolid;
moveto(Punkt1x,Punkt1y);
lineto(Punkt2x,Punkt2y);
lineto(punkt21x,punkt21y);
lineto(punkt11x,punkt11y);
lineto(punkt1x,punkt1y);
end;
das hier funktioniert ja
brush.color:=clwhite;
rectangle(-1,-1,image1.width+1,image1.height+1);