TScrollBar

[GASCHE]

При выполнении этой процедуры на XE7 

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
   IF ScrollBar1.Value = 0 THEN BEGIN
      //Trend := True;
      ScrollBar1.Value := 1;
   END ELSE BEGIN
      IF ScrollBar1.Value >= ScrollBar1.Max THEN BEGIN
         ScrollBar1.Value :=  ScrollBar1.Max - 1;
         //Trend := False;
      END;
   END;
end;

кнопочками на TScrollBar или из программы меняя ScrollBar1.Value все нормально, но если кликнуть мышкой в крайние значения, то положение ползунка не изменяется хотя значение ScrollBar1.Value принимает требуемое значение. Как в этом случае синхронизировать положение ползунка со значением ScrollBar1.Value? 

[GASCHE]

C этим разобрался в отличии от VCL здесь в процедуре, вызываемой по OnChange нельзя менять значение Value   

 

И еще. Если установить, например, SmallChange = 2 то ползунок кнопочками перемещается с дискретностью 2, а вот при перемещении или клике мышкой значение SmallChange не учитывается отсюда Value может принять любое значение не кратное SmallChange.

Если это так задумано, то зачем нужно значение SmallChange и лишняя перерисовка TScrollBar? 

Изменено 7 июля, 2015 пользователем GASCHE

[GASCHE]

При нажатии на кнопку перемещения TScrollBar на XE10 ползунок перемещается на две позиции, это у меня так, или очередной глюк. ScrollBarTest.7z

[Rusland]

При нажатии на кнопку перемещения TScrollBar на XE10 ползунок перемещается на две позиции

Проверил FMX. Действительно в Windows изменяется на 2 значения. Даже при ScrollBar1.SmallChange:=1; 

Для Win наверное лучше использовать VCL-ный scrollbar, там  меняется на 1 по умолчанию

Изменено 21 декабря, 2015 пользователем Rusland

[antigrav]

Вижу, что посты от 15-го года. Мне понадобился целочисленный TScrollBar сейчас и именно в FMX. Похоже, ничего не изменилось. Ползунок меняет значение не на целую величину, а на дробную. Нужно писать своего потомка для компонента или кто-нибудь знает более простое решение?