Как переместить позицию 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)

0 ответов

Другие вопросы по тегам