Полигон

[Alex7wrt]

Здравствуйте.

Есть проблема с закрашиванием полигона каким-либо цветом. Скриншот прилагается:

 

 

Не пойму, в чем причина появления лучей от начальной точки. Цвет заливки определяется кодом:

with canvas do begin
    beginscene; 
    fill.Kind:=tbrushkind.Solid; stroke.Kind:=tbrushkind.None;
    fill.Color:=MakeColor(0,0,200,180); 
    FillPolygon(pol,1);
    endscene;
end;

Где в pol (TPolygon) заданы координаты точек, начиная с той, от которой на рисунке идут лучи, далее по рисунку вправо, и заканчивая двумя точками - нижним правым и нижним левым углами рисунка.

Изменено 31 августа, 2015 пользователем Alex7wrt

[AngryOwl]

Попробуйте задать

fill.Kind:=tbrushkind.Solid; stroke.Kind:=tbrushkind.None;
fill.Color:=MakeColor(0,0,200,180); 

до

beginscene;

[Alex7wrt]

Не помогает, но спасибо за совет!

 

UPD. Возникла идея - зачем указывать прозрачность в FillColor, если можно указать ее в FillPolygon. Так вот,
если не указывать прозрачность цвета в Fill.Color (то есть она равна 255), а в FillPolygon она равна 1, то рисует нормально, в остальных случаях - так, как на рисунке. То есть не получается задать прозрачность при отрисовке полигона без артефактов.

Изменено 1 сентября, 2015 пользователем Alex7wrt