Как нарисовать куб?

[audetore]

Как сделать, чтобы в моей программе, процедуру, которая рисовала куб. Например, нажимаю на кнопку и рисуется куб, после чего там можно будет что-то дорисовать.
Мой исходник тут.

[Streletz]

Судя по характеру программы, речь идёт о представлении куба в 2D.
К сожалению, вид куба в 2D зависит от плоскости проекции в которой Вы его будете рисовать. Если эта плоскость параллельна одной из граней куба, то вся задача сводится к простому рисованию квадрата. Если нет, то есть Вы хотите сохранить некоторое подобие трёхмерности, например, как показано на рисунке, то в этом случае задача значительно усложняется.
Это связано с тем, что для правильного изображения куба необходимо выполнить расчёт координат точек вершин на плоскости рисования в зависимости от ракурса и после этого соединить их линиями.
Увы, но задачи изображения 3-мерных фигур даже на плоскости, с ходу не решаются. Начинать здесь лучше не с программирования, им следует закончить. Начать нужно с аналитической геометрии, с разработки математического аппарата, который будет выполнять необходимые вычисления. Когда математический аппарат будет готов, можно будет приступить непосредственно к реализации процедуры рисования куба.

[phomm]

Автор, это не ваша программа, а стандартный пример пейнто-образной программы из дельфи, дополненный кнопочкой, являющей миру ваше чсв. И уберите комментарий, что это сделано вами, не позорьтесь.
Для написания в этой программе возможности рисовать кубы можно использовать обычный подход в лоб, благо иного вам вряд ли светит.
Итак подход в лоб: скопипастить функциональность инструмента для отрисовки квадрата, и к рисуемому оригинальному квадрату добавить рисование второго квадрата, хотя бы с фиксированным смещением а лучше со смещением зависящим от размеров самого квадрата, смещение на произвольный градус кроме 0 90 45 и кратных им, например + ширина_квадрата * 0.5 и - высота_квадрата * 0.3 , получится 30 градусов.
Потом рассчитать точки, по которым рисуются квадраты (они по сути и так известны, как аргументы команды ректангл) и соединить их через Canvas.MoveTo и LineTo
Вопрос, как дорисовать что-то - некорректен, рисуйте хоть чёрта, без знания конкретики - разговор немых и глухих.
Также (не "так же") отвечу и на кибере, немного по-другому.
Если нужно срочно и вам не нужны слова а только выполненная "заморочка" для зачета, обращайтесь, за вознаграждение сделаем.