FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
I have no words, great job. It remains only to find an idea to implement it all (and the ideas have run out). Of course, the low feedback is depressing, each post is downloaded at least 50 times and there is no feedback.

yes, one of the reasons why i gave up on this whole project. it leads to lack of motivation.


and @audiofeel,
you always appreciate my works. so thank you very much.

[BLACKFIRE69]

Originally Posted by audiofeel

I found one oddity, if you click on the tile not with the left mouse button, as it should be, but with the right, and not just once, but a lot, then the tile shifts down to the lower right corner.
here is an example in the screenshot

Fixed!

.

[BLACKFIRE69]

Hi,

anyone interesting in creating custom components for FMXInno (like FUWPTiles, FToggleCheckBox, FNotification, etc.) is welcome,
and you'll get proper credit for doing so...

On FMXInno i called blueprints for custom components like the unreal engine(except the visual scripting part).


,

[BLACKFIRE69]

Update Available!

* The latest update is in the first post.
* Those who don't have the latest final release go and download it!

[BLACKFIRE69]

Originally Posted by BLACKFIRE69

Update Available!

* The latest update is in the first post.
* Those who don't have the latest final release go and download it!

One More Thing

* Added rating stars.

,

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69.
I found a small bug. If the user chose "solid color" instead of wallpaper, there will be an error. Culprit = "GetDesktopImgColorFMX", "FUserInfo" - "function Wallpaper: WideString"

this could be more helpful.

* Added new functions.
  - GetDesktopSolidColorVCL
  - GetDesktopSolidColorFMX
  - DesktopImgExist

Example:

if DesktopImgExist then
   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopImgColorVCL, False, 0.4, 0)
else
   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopSolidColorVCL, False, 0.4, 0);

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
Hi. In all your demo examples, etc., the size of the game being installed does not change when additional options are selected, such as additional language packs and optional packages. And he probably has to change. In the standard version, everything is easier with this, just added the desired size to the component and it automatically added itself. Don't you think to automate it somehow? as in the installer from "GOG"

search for the word Updated23320 to find the changes.


.

[Behnam2018]

New Seutp

[Masquerade]

Originally Posted by audiofeel

Wow! Cool installer. Who made it? And is it possible to repeat it? that's the question

Yes, an incredible job

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69: Mr... Is it possible to change the volume with the mouse wheel? (you point the pointer at the button, turn the wheel and the volume changes) As in the latest Win11 builds. A non-interfering SetHint appears at the top with numbers showing the level.
Sorry for my english, you all already felt a slight Welsh accent
Here , as if it is possible

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


.

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

.

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