TFrameStand Question

[stacker_liew 5]

Anyone familiar with TFrameStand? I created an app with TFrameStand, but it doesn't work as expected.

TFrameStandDemo.7z

Edited January 1, 2023 by stacker_liew

[programmerdelphi2k 237]

here:

•  if (Key = vkHardwareBack) or (Key = vkEscape) then
  • MSWindows10 - working   
  • Android 11 64bit - working
•   ShowMessage(ActiveControl.Name);
•  if not((FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyboardState)) then
          begin
            Key := 0;
            Memo1.Lines.Add('TVirtualKeyboardState.Visible in FService.VirtualKeyboardState');
            //...
• TStandFrame downloaded from github : https://github.com/andrea-magni/TFrameStand

 

NOTE: when none Frame is showed and you try "drag to left" again.... (on main screen)... I receive a exception:  External Exception E8. Maybe you need verify if you are in main screen in your KeyPress event..

Edited January 1, 2023 by programmerdelphi2k

[stacker_liew 5]

But the animations doesn't working as expected.

[stacker_liew 5]

TFrameStand

FMXUI

[stacker_liew 5]

Why when none frame is shown, I tried to click back key or (press the escape) I'll get av but not with the Windows's close button?

[stacker_liew 5]

On 1/2/2023 at 2:32 AM, programmerdelphi2k said:

here:

•  if (Key = vkHardwareBack) or (Key = vkEscape) then
  • MSWindows10 - working   
  • Android 11 64bit - working
•   ShowMessage(ActiveControl.Name);
•  if not((FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyboardState)) then
          begin
            Key := 0;
            Memo1.Lines.Add('TVirtualKeyboardState.Visible in FService.VirtualKeyboardState');
            //...
• TStandFrame downloaded from github : https://github.com/andrea-magni/TFrameStand

 

NOTE: when none Frame is showed and you try "drag to left" again.... (on main screen)... I receive a exception:  External Exception E8. Maybe you need verify if you are in main screen in your KeyPress event..

        if TFrameStandDemoFrameStand.FrameInfos.Count > 0 then
        begin
          if TFrameStandDemoFrame.IsVisible then
          begin
            TFrameStandDemoFrameStand.HideAndCloseAll([TTFrameStandDemoFrame]);
            Exit;
          end;
        end;

Change the source to this will fix the av.

[stacker_liew 5]

But the animations still not working as expected.