В графике закрасить определенными цветами несколько вложенных друг в друга полигонов (Delphi)

[hunter03]

Здравствуйте, стоит задача закрасить определенными цветами несколько вложенных друг в друга полигона...пытался использовать

Form1.Canvas.Brush.Color:= RGB (Random(100), random(100), Random(100));
 Polygon (AP);

но после закраски 3 полигона, остальные не видно вообще...может есть какой то другой способ их сакрасить?


______________
Господин hunter03, Вы до сих пор не знаете, что название темы по правилам форума
должно АДЕКВАТНО отражать суть решаемой задачи/проблемы.
я сейчас исправил.
Попрошу впредь быть внимательней!

Модератор.

[Stilet]

остальные не видно вообще

Так может они просто перекрывают друг друга?
Тогда нужно отрисовывать в другом порядке - сначала самый большой полигон, потом меньше, потом самый маленький

[hunter03]

я так и отрисовую...сначала наибольший потом меньше...
я так понял цвета смешиваются и в результате после 3 полигона цвет вообще черный

[Stilet]

Смешиваться они не должны. Хотя... может ты в свойствах brush что-то указал интересное. Нужно весь код, относящейся к отрисовке, смотреть.

[hunter03]

уже нашел проблему)) написал Form1.Canvas.Pen.Mode :=pmMergePenNot; теперь все как нада)