Спасибо огромное! Выручили! Естественно у меня появились вопросы по коду:
1) Вот здесь:
Код:
RectCooOrg[0].X := - 150;
RectCooOrg[0].Y := - 75;
RectCooOrg[1].X := 150;
RectCooOrg[1].Y := - 75;
RectCooOrg[2].X := 150;
RectCooOrg[2].Y := 75;
RectCooOrg[3].X := - 150;
RectCooOrg[3].Y := 75;
RectCooOrg[4].X := - 150;
RectCooOrg[4].Y := - 75;
Это так и должно быть, что повторяются первые две и последние две строчки?
2) Изменяя эти координаты, я могу смело строить свой паралелограм? (Уже боюсь что-либо менять без подсказки)
3) Какое вообще предназначение у этих массивов: RectCooOrg и RectCooLast, почему координаты у них дублируются?
4) Предполагаю, что для того чтобы можно было крутить мою фигуру:
a) не на 10 , а на 360 градусов;
b) не через свой центр, а вокруг центра осей координат,
я должна вот здесь:
Код:
RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0);
RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0);
кое-что добавить ? Как в предыдущем варианте?