UnimList scroll

[epos4u]

Hi,

 

how can i scroll UnimList by code, need to have a button, once clicked it will scroll to bottom or top

 

Many Thanks,

 

[Sherzod]

Hi,

 

Try:

procedure TMainmForm.UnimButton1Click(Sender: TObject);
var
  ListJSName: string;
begin
  //scrollToTop
  ListJSName := UnimList1.JSName;
  UniSession.AddJS(ListJSName + '.select(0);' + ListJSName + '.getScrollable().getScroller().scrollToTop(true);');
end;

procedure TMainmForm.UnimButton2Click(Sender: TObject);
var
  ListJSName: string;
begin
  //scrollToEnd
  ListJSName := UnimList1.JSName;
  UniSession.AddJS(ListJSName + '.select(' + ListJSName + '.store.getCount() - 1);' + ListJSName + '.getScrollable().getScroller().scrollToEnd(true);');
end;

Best regards.

[epos4u]

Delphi Developer,

 

A Big Thank you, it works,

 

i will have to try and learn some scripting

 

 

Hi,

 

Try:

procedure TMainmForm.UnimButton1Click(Sender: TObject);
var
  ListJSName: string;
begin
  //scrollToTop
  ListJSName := UnimList1.JSName;
  UniSession.AddJS(ListJSName + '.select(0);' + ListJSName + '.getScrollable().getScroller().scrollToTop(true);');
end;

procedure TMainmForm.UnimButton2Click(Sender: TObject);
var
  ListJSName: string;
begin
  //scrollToEnd
  ListJSName := UnimList1.JSName;
  UniSession.AddJS(ListJSName + '.select(' + ListJSName + '.store.getCount() - 1);' + ListJSName + '.getScrollable().getScroller().scrollToEnd(true);');
end;

Best regards.

[SISBLU Software]

not work!

getScrollable().getScroller() is not a function

Version: 1.90.0.1504

[Sherzod]

1 hour ago, Daha Software said:

not work!

getScrollable().getScroller() is not a function

Version: 1.90.0.1504

We will check. 

[epos4u]

Hi Brother Sherzod,

Have you got a solution for UniListBox , how can i scroll Listbox by code, need to have a button, once clicked it will scroll to bottom thank you

, the initial works for moble listbox not standard UniListBox

[Sherzod]

Hi!

I will try to check. 

[Sherzod]

On 6/6/2024 at 7:24 PM, epos4u said:

Have you got a solution for UniListBox

Hi!

Try this approach, the third parameter is the animation parameter:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  with UniListBox1.JSInterface do
    JSCall('boundList.getScrollable().scrollBy', [JSStatement('0, Infinity, true')]);
end;

 

[epos4u]

5 hours ago, Sherzod said:

Hi!

Try this approach, the third parameter is the animation parameter:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  with UniListBox1.JSInterface do
    JSCall('boundList.getScrollable().scrollBy', [JSStatement('0, Infinity, true')]);
end;

 

Thank you brother, it works perfect