FMXInno - Windows Fluent Design Installer UI for Inno

[audiofeel]

Originally Posted by BLACKFIRE69

Added OnMouseWheel event for FMXForm and Trackbar. let me know if you need OnMouseWheel event for other components as well.
.

This is great and understandable. What do users usually make a music (volume) button out of? Most likely from "FEqualizer" "FText" and "FColorButton". I just assumed.

[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/

[Behnam2018]

made BY KaOs Repack

[Masquerade]

Originally Posted by Behnam2018

made BY KaOs Repack

No, made by audiofeel, as written in credits, and thanks to BLACKFIRE69 for the IsArcEx and FMXInno libraries!

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

* Now almost all components are ready to work with FXPacker and FXStream.

.

[audiofeel]

Hi BLACKFIRE69, could you add an analog of the checklistbox
Perhaps the calculation of the size of components will also be implemented there

Originally Posted by hitman797

hi, BLACKFIRE69.
can you include this in FMXInno v1.0.0.3.

Comp1Name=Game voices>English                                               
Comp1Size=2000
Comp1Group=1
                                                  
Comp2Name=Game voices>Russian                                               
Comp2Size=2100
Comp2Group=1

Comp6Name=Offline MP                                              
Comp6Size=4000
Comp6Group=0

procedure SetupUI_Init(Handle1, Handle2, Handle3: HWND);
  external 'func01@files:ISFMXUI.dll cdecl';
procedure SetupUI_Deinit;
  external 'func02@files:ISFMXUI.dll stdcall';
procedure SetupUI_Show;                                          
  external 'func03@files:ISFMXUI.dll stdcall';
procedure SetupUI_SetDir(Dir: PAnsiChar);
  external 'func04@files:ISFMXUI.dll stdcall';
procedure SetupUI_Install;
  external 'func05@files:ISFMXUI.dll stdcall';
procedure SetupUI_Progress(Status, Filename: PAnsiChar; Curr, Max: Integer);
  external 'func06@files:ISFMXUI.dll stdcall';
procedure SetupUI_Finished(Success: Boolean);
  external 'func07@files:ISFMXUI.dll cdecl';
procedure SetupUI_Info(Info1, Info2: String);
  external 'func08@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddComponent(Component: String; Size, Group: Integer; Redist: Boolean);
  external 'func09@files:ISFMXUI.dll cdecl';
function SetupUI_Component(Component: String): Boolean;
  external 'func10@files:ISFMXUI.dll cdecl';
function SetupUI_Shortcuts(Desktop: Boolean): Boolean;
  external 'func11@files:ISFMXUI.dll stdcall';
procedure SetupUI_AddBkgImg1(Buff: PAnsiChar; Size: Integer);
  external 'func12@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddBkgImg2(Filename: String);                                                           
  external 'func13@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddAppInfo(Info: String);
  external 'func14@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddInstInfo(Info: String);
  external 'func15@files:ISFMXUI.dll cdecl';

[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;

[audiofeel]

Originally Posted by BLACKFIRE69

could you test this?

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

[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.

[audiofeel]

Originally Posted by BLACKFIRE69

DeleteFMXFont function is not needed, you can remove it.

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

[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...

[Razor12911]

Win 7, works fine on win 10 though.

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

[BLACKFIRE69]

Originally Posted by Razor12911

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

does it happen even after executing DeleteFMXFont??

[audiofeel]

Originally Posted by BLACKFIRE69

does it happen even after executing DeleteFMXFont??

after executing DeleteFMXFont everything is clean

[audiofeel]

@BLACKFIRE69
I found another oddity or feature. On FMXForm.FCreateImageForm does
not display VideoPlayer. Is it possible to implement it?