UniScrollBox -> scrolling with buttons

[erich.wanker]

Hi .. has anyone a sample-code how to scroll a uniscrollbox left or right by clicking Unibuttons

unibutton1.onclick -> should scroll actual position +100px  (if higher whan maximum then maximum)

unibutton2.onclick -> should scroll actual position -100px (if less 0 then 0)

 

ThanX for Help 🙂

Erich

[Sherzod]

Hello Erich,

Try this approach:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniScrollBox1.JSInterface.JSCall('scrollBy', [100, 100, True]);
end;

procedure TMainForm.UniButton2Click(Sender: TObject);
begin
  UniScrollBox1.JSInterface.JSCall('scrollBy', [-100, -100, True]);
end;