Сообщение от P_e_t_e_r
Не вдаваясь в подробности можно сразу заметить, что Repaint можно сделать один раз после всех преобразований, как рекомендуется в мануале.
Ну и одинаковые вычисления типа (ycursor-6)/2+1 лучше делать перед циклом, чтобы они в цикле много раз не повторялись.
А на каком сайте вы нашли пример, любопытно бы на него взглянуть 
ps. Тоже недавно делал Сапера. |
На сайте
http://midletpascal.at.ua/index/0-17. Ну и я могу предположить, что создатель сайта зарегистрирован на этом форуме)