Позиционируется правильно, а вот цвет рамки и цвет фона - мимо кассы. Да ещё какая-то картинка...
Код: Выделить всё
sq.Pen.Color := $000000;
sq.name := 'shpSQ'+IntToStr(i)+IntToStr(j);
if ((j + i) mod 2 = 0) or (i = 9) or (j=9) then
// sq.Brush.Color := RGBToColor(225,225,225)
sq.Brush.Color := $DADADA
else
// sq.Brush.Color := RGBToColor(125,125,25);
sq.Brush.Color := $8F8F1F;