Как нарисовать линию до края Images
Уважаемые спецы по дельфи. Проясните пожалуйста следующий вопрос с графикой.
На форме есть обьект Image. Причем Image.Height равно 100, Image.Width равно 100 пикселей.
Рисую линию:
Image.Canvas.MoveTo(0, 15);
Image.Canvas.LineTo(100, 15);
Все путем.
Я создаю обьект BMP1:TBitmap и загружаю в него картинку размерами 200 на 200 пикселей.
Image.Picture.Bitmap := BMP1;
Появляется изображение. Но если теперь я нарисую линию
Image.Canvas.MoveTo(0, 15);
Image.Canvas.LineTo(100, 15);
То линия будет только до половины объекта Image.
Почему? И как надо делать правильно, чтоб линия рисовалась до конца?
|