[useronforum]

Здравствуйте.

Нужно реализовать рисование на форме простой трёхмерной диаграммы,
такой как (http://www.intuit.ru/department/offi...l/3/3_14sm.jpg)
без использования TChart.

Проект разрабатывается в бесплатной версии Delphi - Turbo Delphi,
поэтому использовать TChart или другие компоненты не получится.

Не могли бы вы подсказать
исходники какого-нибудь примера,
в котором рисуется что-либо подобное
без использования каких-либо компонентов?

===
То есть, например, чтобы можно было вызвать функцию
из модуля, которая бы построила трёхмерную диаграмму
на указанной форме на основе двухмерного массива данных.

[Страдалецъ]

Когда-то такое делал на Turbo pascal. Там ничего особо сложного, в Дельфи даже полегче будет, т.к. примитивов поболее.

[:S.p.a.m.]

Ну можно попробовать, самый простой способ, ведь тут не будет очень динамично изменяться и скорость отрисовки не так важна. Хотя и не будет сильно долгой. Просто рисовать на канве (canvas) того же BitMap и отрисовывать его уже на Image.

Код:

B:TBitMap
...
B:=TBitMap.create;
B.width:=;
B.Height:=;

// Рисуем простыми Rectangle, правда насчет правых граней я не знаю как. Нужно подумать. Можно просто линиями, но тогда не будет заливки. Рисовать начинай с самых дальних, и постепенно двигаясь к ближним кубикам (точнее паралелограммам :).