FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

Here, a little higher, a user under the nickname Behnam2018 posted a screenshot with the installer. An experienced eye will notice that the fonts that should be displayed are not displayed there. Most likely, Behnam2018 is installed "Windows7". On it, with the "temporary" installation of fonts, small problems sometimes arise. As a temporary solution, I propose this.

function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
begin
  if not FontExists('My Font') then
  begin
    ExtractTemporaryFile('MyFont.ttf');
    ExtractTemporaryFile('FontReg.exe');
    Exec(ExpandConstant('{tmp}\FontReg.exe'), '/copy', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
  end;


  Result:= True;
end;

https://code.kliu.org/misc/fontreg/

could you test this?

function InitializeSetup(): Boolean;
begin
{ Font }
  ExtractTemporaryFile('{#MyFont1}');
  ExtractTemporaryFile('{#MyFont2}');

  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));
  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));
{ Font }

  FMXInnoInit;

  Result := True;
end;

procedure DeinitializeSetup();
begin
{ Font }
  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));
  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));
{ Font }

  FMXInnoShutDown;
end;


procedure FMXDesigning;
begin
  { FMX Blank Form }
  FMXForm.FCreateBlankForm(WizardForm.Handle, ALCrimson, '');
  FMXForm.SetCursor(ExtractAndLoad('Dark2.ani'));
    // Font
  InvalidateFMXFont;

  ....

end;

[BLACKFIRE69]

Originally Posted by audiofeel

I have no way to test this on Windows 7. On Windows 11, everything is fine.

DeleteFMXFont function is not needed, you can remove it.

[BLACKFIRE69]

Originally Posted by audiofeel

If you run and cancel the installation several times, this happens (I realized this by increasing the speed of the cooler). I can make a mistake, but nothing was launched except the installation

oops...