TUnimSegmentedButton does not allow change in code

[neo4a]

It is not possible to reflect carousel page  to an specific TUnimSegmentedButton by setting .pressed property at runtime, e.g.:

procedure TMainmForm.CarouselChange(Sender: TObject);
begin
  AdjustButtons;
end;

procedure TMainmForm.AdjustButtons;
begin
  segButtons.Items[0].Pressed := Carousel.ActivePage = pageStart;
  segButtons.Items[1].Pressed := Carousel.ActivePage = pageBlinds;
  segButtons.Items[2].Pressed := Carousel.ActivePage = pageOpens;
end;

Do I have to put some js script somewhere?

[Sherzod]

9 minutes ago, neo4a said:

It is not possible to reflect carousel page  to an specific TUnimSegmentedButton by setting .pressed property at runtime, e.g.:

http://forums.unigui.com/index.php?/topic/12506-unimsegmentedbutton-set-button-pressed-programmatically/&do=findComment&comment=66556

[neo4a]

Thanks.