[BLACKFIRE69]

Originally Posted by audiofeel

A lightweight version of the "METRO" script. Without Autorun and tiles in the form of tiles.
FMXInno + IsArcEx
This is a demo version (demonstration of the capabilities of the dynamic library FMXInno) do not use it for its intended purpose. Only for Windows 10-11
-----------------------
Minor update. Changed the animation effect (I spied UWPTiles here).

added some functions to ExitForm, now it's 100% customizable.

procedure YesBtnVisible(FVisible: Boolean); 
procedure NoBtnVisible(FVisible: Boolean);
procedure Msg1Visible(FVisible: Boolean);
procedure Msg2Visible(FVisible: Boolean);

Example:  New Buttons

  ExitForm.YesBtnVisible(False);
  ExitForm.NoBtnVisible(False);

  NewExitBtn[1].FCreate(ExitForm.Handle, ExitForm.GetWidth - NSX(310), ExitForm.GetHeight - NSY(70), 'Yes', False);
  NewExitBtn[1].BackColor(ALPaleturquoise);
  NewExitBtn[1].OnClick(@CommonOnClick);

  NewExitBtn[2].FCreate(ExitForm.Handle, ExitForm.GetWidth - NSX(200), ExitForm.GetHeight - NSY(70), 'No', False);
  NewExitBtn[2].BackColor(ALPaleturquoise);
  NewExitBtn[2].OnClick(@CommonOnClick);

.