На форму бросаем Image
В ObjectInspector свойство Aling ставим в alTop
Рисуем линию
Код:
Image1.Canvas.PenPos:=(Point(0,0));
Image1.Canvas.LineTo(Image1.Width,Image1.Height);
Далее разворачиваем форму на полный экран и снова пробуем нарисовать линию. Линия прорисовывается не по всей длине Image.
Если развернуть форму на полный экран перед прорисовкой первой линии, то далее все работает нормально.
Как побороть это я нашел способ, а как бы сделали Вы ?
В файле проект демонстрирующий вышеописанное.
TImage.rar