[CodeNameHawk]

На форму бросаем Image
В ObjectInspector свойство Aling ставим в alTop

Рисуем линию

Код:

  Image1.Canvas.PenPos:=(Point(0,0));
  Image1.Canvas.LineTo(Image1.Width,Image1.Height);

Далее разворачиваем форму на полный экран и снова пробуем нарисовать линию. Линия прорисовывается не по всей длине Image.

Если развернуть форму на полный экран перед прорисовкой первой линии, то далее все работает нормально.

Как побороть это я нашел способ, а как бы сделали Вы ?

В файле проект демонстрирующий вышеописанное.
TImage.rar

[lmikle]

Align = alClient

[CodeNameHawk]

Сообщение от lmikle

Align = alClient

Это ничего не меняет. Сам Image нормально растягивается по длине формы, но происходит отсечка части рисунка.

[urahara]

незабываем увеличить само изображение:

Код:

Image1.Picture.Bitmap.SetSize(ClientWidth,ClientHeight);

[CodeNameHawk]

Сообщение от urahara

незабываем увеличить само изображение:

Код:

Image1.Picture.Bitmap.SetSize(ClientWidth,ClientHeight);

Спасибо. Как раз то что искал.

Я делал так В ObjectInspector для Image1 свойство Visible ставил в false, а при создании формы создавал рисунок максимального размера.

Код:

  Image1.Width :=Screen.Width;
  Image1.Canvas.Brush.Color:=Form1.Canvas.Brush.Color;
  Image1.Canvas.FillRect(Rect(0,0,Image1.Width ,Image1.Height));
  Image1.Visible:=true;