[RayOfLight]

Не могу увеличить размер ТImage.

Дело в том, что я сначала в Canvas'e рисую клеточное поле, а потом при нажатии кнопки мне надо этот ТImage увеличить в размерах, и нарисовать новое поле с новым размером ячейки.

Но если прописать

Код:

Image1.Width := <длина>

То ничего не происходит. А вот если с уменьшением длины - то без проблем.

[Rat]

Repaint После этого вызвать нужно.

[RayOfLight]

Field - поле ТImage.
n1,n2 - кол-во клеток по гориз. и вертикали.
size - размер клетки.

Код:

  Field.Width := (n1-2)*size;
  Field.Height := (n2-2)*size;
  Field.Repaint;

Не получается

[Страдалецъ]

А у вас свойство Stretch активно?

[RayOfLight]

Если активировать stretch, то поле увеличивается, но недостаточно: изначально в поле было по 15 клеток размером 20 пикс., а теперь - около 12-13.

[Страдалецъ]

Не понял, что значит недостаточно, при включеном свойстве stretch картинка вписывается в область TImage не принимая внимание исходные пропорции. При дополнительно включеном свойстве Proportional картинка будет вписана в TImage но уже без искажений. Выложите скриншот до и скриншот после - может так понятнее будет.