TScrollBox и его невидимая область. Как с этим бороться? Смотрим внутри...

[Vova777]

На форме лежит компонент TScrollBox, в нем TImage. Размеры ScrollBox 500х500, размеры Image 1500х1500.
В цикле выполняется следующее:

...
begin
  Image1.Canvas.Pen.Color:= $000009;  //граница маски
  Image1.Canvas.Brush.Color:= $000009;  //заливка маски
  Image1.Canvas.Polygon([Point(ig, ir + 30), Point(ig + 60, ir + 60), Point(ig + 120, ir + 30), Point(ig + 60, ir)]);  //рисуем маску (это просто ромб)
end;
...

Переменные ig, ir - меняют свои значения с каждым проходом цикла.

Дело в том, что рисование выполняется только в видимой области TImage. Почему? Ведь для этой цели я и положил внутрь ScrollBoxa Image. Я всегда так делал, все было нормально, а сейчас что-то не пойму в чем дело.

Ведь если выполнять рисование не в Image, а в ScrollBox, то как раз и получится, что рисунок будет только в видимой области.

[Пепел Феникса]

может быть надо менять сам битмап картинки?
а не её канву(которая по сути канва родителя)

[Vova777]

Сообщение от Пепел Феникса

может быть надо менять сам битмап картинки?
а не её канву(которая по сути канва родителя)

Что вы имеете ввиду?

[Vova777]

Все, вопрос решен. Я увеличил размеры:

...
  Image1.Height:= 5000;
  Image1.Width:= 5000;
...

Странно, вообще-то необходимые размеры у TImage задаются перед началом цикла. Все равно эти размеры (5000х5000) вернутся к необходимым (1500х1000). Зачем же указывать заведомо больше, чем мне необходимо?