TunimScrollBox scroll problem

[FMirande]

Hi

 

I'm using a TUnimPanel included in a TUnimScrollBox.

When I scroll down, it automatically scrolls up !!!

 

Did someone can explain me what's wrong ?
Was it a configuration problem ?

 

Thanks

 

Fred

[Sherzod]

Hi,

 

Can you make a small test case for this ?!

 

Best regards.

[FMirande]

Hi

I have done a little test case.

How can I send it to the forum ?

Thanks

[FMirande]

Hi

 

I actually work as freelance developer. My UNIGUI licence as been registered by boss company I was working for.

So I can't upload my test case directly to the forum !

 

For developers who want and can help me, you can find a simply test case that show my problem following the link http://www.atout-logiciel.com/TestCase_UniMScrollPb.zip

 

Thanks

[Sherzod]

For developers who want and can help me, you can find a simply test case that show my problem following the link http://www.atout-logiciel.com/TestCase_UniMScrollPb.zip

 

Hi,

 

For now can you try this? (quick and dirty workaround):

 

1.

  public
    { Public declarations }
    scrlHeight: integer;  // <-------
    procedure _setHeight(AScrollBox: TUnimScrollBox; AHeight: Integer);
  end;

2.

...
  if scrlHeight < scrlPanier.Height then
    begin
        pnlDetailCommande.Height := scrlPanier.Height - 10;
    end
    else
    begin
        //scrlPanier.SetBounds(0, 0, scrlPanier.Width, scrlHeight);
        scrlPanier.Height := scrlHeight;
        pnlDetailCommande.Height := scrlHeight;
    end;

  _setHeight(scrlPanier, scrlHeight); // <-------
...

3.

procedure TMainmForm._setHeight(AScrollBox: TUnimScrollBox; AHeight: Integer);
begin
  UniSession.AddJS('setTimeout(function(){' + AScrollBox.JSName
                   + '.scrollableBehavior.scrollView.getScroller().maxPosition.y = '
                   + IntToStr(AHeight)
                   + '}, 500)'
  );
end;

4.

procedure TMainmForm.UnimFormResize(Sender: TObject);
begin
  _setHeight(scrlPanier, scrlHeight);
end;

Best regards.

[FMirande]

As we said at home, champion !!!

It works fine.

 

An other question, I'm using a TunimTabPanel and I want to change active page swiping left and right. Did have I to do something like you have done ?

 

An other question bis ... Where can I find any help topic about JS programming in uni gui ?

 

Thanks a lot !!!

[Sherzod]

An other question, I'm using a TunimTabPanel and I want to change active page swiping left and right. Did have I to do something like you have done ?

 

Hi,

 

For now try:

 

1. UnimTabPanel1->ClientEvents->UniEvents->... afterCreate fn:

function afterCreate(sender)
{
    sender.element.on("swipe",
        function(e) {
            if (e.direction) {
                ajaxRequest(MainmForm.form, "swipe", ["direction="+e.direction]);
            }
        }
    )
}

2. MainmForm->onAjaxEvent:

procedure TMainmForm.UnimFormAjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = 'swipe' then
  begin
    if Params.Values['direction'] = 'left' then
    begin
      if UnimTabPanel1.ActivePageIndex > 0 then
        UnimTabPanel1.ActivePageIndex := UnimTabPanel1.ActivePageIndex - 1
    end
    else if Params.Values['direction'] = 'right' then
      UnimTabPanel1.ActivePageIndex := UnimTabPanel1.ActivePageIndex + 1
  end;
end;

Best regards.

[FMirande]

Hi

 

Code tried and validated !

 

One more time, it works fine !!!

 

I would like to do another developments like this. Is there any help topic about JS programming in uni gui ?

[natanael]

 

 

Hi,

 

For now can you try this? (quick and dirty workaround):

 

1.

  public
    { Public declarations }
    scrlHeight: integer;  // <-------
    procedure _setHeight(AScrollBox: TUnimScrollBox; AHeight: Integer);
  end;

2.

...
  if scrlHeight < scrlPanier.Height then
    begin
        pnlDetailCommande.Height := scrlPanier.Height - 10;
    end
    else
    begin
        //scrlPanier.SetBounds(0, 0, scrlPanier.Width, scrlHeight);
        scrlPanier.Height := scrlHeight;
        pnlDetailCommande.Height := scrlHeight;
    end;

  _setHeight(scrlPanier, scrlHeight); // <-------
...

3.

procedure TMainmForm._setHeight(AScrollBox: TUnimScrollBox; AHeight: Integer);
begin
  UniSession.AddJS('setTimeout(function(){' + AScrollBox.JSName
                   + '.scrollableBehavior.scrollView.getScroller().maxPosition.y = '
                   + IntToStr(AHeight)
                   + '}, 500)'
  );
end;

4.

procedure TMainmForm.UnimFormResize(Sender: TObject);
begin
  _setHeight(scrlPanier, scrlHeight);
end;

Best regards.

 

Is there another solution? This leaves a space of exesivo height and is very little controllable.

[natanael]

hello

 

Is there another solution?

 This leaves a space of exesivo height and is very little controllable.

[Sherzod]

Hi,

 

hello

 

Is there another solution?

 This leaves a space of exesivo height and is very little controllable.

 

Which edition and build are you using ?!

 

Can you give more information, screenshots, make a testcase?!

 

Best regards,

[natanael]

Hi,

 

 

Which edition and build are you using ?!

 

Can you give more information, screenshots, make a testcase?!

 

Best regards,

 

 

hello,  my firend

 

I'm using version 1.0.0.1383.

I have the same problem as Newbie. You can take the same project.

look . When you solved it. Leaves an unusable height.

Take the project http://www.atout-logiciel.com/TestCase_UniMScrollPb.zip

 

At the bottom of the page there is an ana height of 400px not used

 

I can adjust the height. But from server side to client. I would like this to be done automatically.

 

thanks !