Ребята! с большей частью задачи справилась, уже рисуется куб по заданным параметрам. Я сама вижу что в коде много "мусора", не могли бы вы мне помочь, как то оптимизировать.
На данный момент, я не разобралась и не получается исправить следующие проблемы:
1) рисуется фигура, потом если задаем новые координаты и размеры, фигура перерисовывается, но не стирает прошлые линии
Первую проблему решила вот так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
PatBlt(Form1.Canvas.Handle,
0,
0,
Form1.ClientWidth,
Form1.ClientHeight - Shape1.ClientHeight - 6,
WHITENESS);
end;
2) и то что я задавала серый цвет заливки, он не заливает фигуру
3 и наверное самое сложное, я не могу доделать перерисовку фигуры в зависимости заданного градуса
Буду рада,если подскажите решение хоть одной проблемки
