Показать сообщение отдельно
  #3  
Старый 16.04.2013, 02:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А не проще аналитически решить? Там, вроде, все просто.
Ну а на сам вопрос (напоминаю: помогите с Canvas) ответ простой.
можно просто устанавливать через свойство Pixels[X,Y]. просто указываешь нужный цвет. отрисовать прямоугольник - MoveTo, потом LineTo нужное кол-во раз. Установить каким цветом рисовать прямоугольник - через Canvas.Pen.Color.
Ответить с цитированием