Как переместить позицию ScrollBox с помощью FireMonkey
Я использую Delphi 10.2.3 и FireMonkey. У меня есть большое изображение внутри TScrollBox (ContainerNetwork), это я пытаюсь переместить положение столбцов, чтобы сделать различные области (от 1 до 9) зелеными. увидеть проблему
Я получаю количество движений, которые я должен сделать в X и Y.
NumImgX := 1 + (Round(Image1.Width) div Round(ContenitoreRete.Width));
NumImgY := 1 + (Round(Image1.Height) div Round(ContenitoreRete.Height));
но когда я перемещаю позиции прокрутки, я получаю странные движения, не соответствующие написанному коду.
for y := 1 to NumImgY do
begin
for x := 1 to NumImgX do
begin
//sposta lo scroll
ContenitoreRete.ScrollBy(1000000000, 1000000000);
ContenitoreRete.ScrollBy(-Altezza * (y - 1), -Base * (x - 1));
end;
end;
Зачем? Также, если я правильно использую ScrollBy(dx, dy), я получаю обратное смещение, поэтому мне пришлось использовать ScrollBy(dy, dx)