Hello eduardo ..
ice_video_20190527-142351.webm
This is a demo User-Interface
Works on Desktop, Tablet, mobile...
The basic is the Mainform ... and in this form i show a lot of different TuniFrames..
Call a Frame:
procedure TMainForm.InsertFrame1(Name: string); // NAVIGATION
begin
if FFrameName1 <> '' then
FreeAndNil(FCurrentFrame1);
FFrameName1 := Name;
FCurrentFrame1 := TUniFrameClass(FindClass(Name)).Create(self);
FCurrentFrame1.Align := alClient;
FCurrentFrame1.Parent := display;
end;
in the TuniFrame i use a TuniSrollbox as parent for all controls.. if i resize the Browser - i start:
procedure TMainForm.starte_animation;
begin
if FFrameName1 = 'Tf_start' then
begin
(MainForm.FCurrentFrame1 as Tf_start).mein_display.height := 0;
UniSession.AddJS((MainForm.FCurrentFrame1 as Tf_start).groundscroller.JSName+'.getTargetEl().scrollTo(''Top'', 0, true);');
end;
...
and the animation of the used Panels (Array of Panels) i made with:
unisession.AddJS(meine_panels[x].JSName + '.animate({ duration: ' + inttostr(speed) + ', to: { x: ' + inttostr(tx) + ', y: ' + inttostr(ty) + '}});');
Thats all :-)
HTH
Erich