iCL Slide-out Sidebar Menu

[Darlo]

So läuft mein Sidemenu:

Delphi-Quellcode:

  if frmSideMenu.svSideMenu.Position.X < 0 then
    begin
      frmSideMenu.svSideMenu.Parent := frmMain;
      frmSideMenu.svSideMenu.Initialize;
      TUIView.OCClass.beginAnimations(nil, nil);
      TUIView.OCClass.setAnimationDuration(0.4);
      frmSideMenu.svSideMenu.SetBounds(0, 138, 320, 602);
      TUIView.OCClass.commitAnimations;
    end
  else
    begin
      TUIView.OCClass.beginAnimations(nil, nil);
      TUIView.OCClass.setAnimationDuration(0.4);
      frmSideMenu.svSideMenu.SetBounds(-320, 138, 320, 602);
      TUIView.OCClass.commitAnimations;
    end;

Zur Info: svSideMenu ist eine iCL Scrollview