FMXInno - Windows Fluent Design Installer UI for Inno

[Fak Eid]

When user lands on Directory Page, currently there was no option to change the Game Name.

Consider for example, The game name is 'The Last of Us: Remake Part 1' and user wants to change it to 'The Last of Us' and install there, it was restricted on FEdit.

Attaching code snippet where the user will now have ability to do that:

  Page2Edit.FCreate(Page2.Handle);
  Page2Edit.SetBounds(NSSX(100), NSSY(190), NSSX(520), NSSY(35));
  Page2Edit.FontSetting('{#FontName}', VCLFontSizeToFMX2(13), ALGainsBoro);
  Page2Edit.CanFocus(True);
  Page2Edit.Enabled(True);
  Page2Edit.Text(MinimizePathName(WizardForm.DirEdit.Text, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
  Page2Edit.OnTyping(@BrowseEditOnChange);

procedure BrowseEditOnChange(Sender: TObject);
var
  PrevDrive, CurrentDrive: String;
begin
  PrevDrive := ExtractFileDrive(WizardForm.DirEdit.Text);
  CurrentDrive := ExtractFileDrive(Page2Edit.GetText);

  // Set the installation path to the edited text value
  WizardForm.DirEdit.Text := Page2Edit.GetText;

  if PrevDrive <> CurrentDrive then
    DirUpdateProc(nil);
end;

Let me know if any of you face issues.

[Fak Eid]

@Blackfire69

1. Please acknowledge this issue when trying to use Edit on Directory section:
https://fileforums.com/showpost.php?...&postcount=471

2. Installation speed is still not smooth. When transitioning from, say suppose Data-01 to Data-02, it still drops after a certain point of time. For eg: At Data-01 if it was 64mb/s, when extracting Data-02 it refreshes (resets) and becomes 12mb/s after some time.
Not sure if it helps, but save the previous/average installation speed and when the disk transition happens, do (prev installation speed+ current callback speed)/2 (like take average)

[BLACKFIRE69]

Originally Posted by audiofeel

@blackfire69 Will you be able to add a line equalizer (which really reacts to music playback, and not a dummy?) How about in the Foobar2000 player.
Using vis_classic.dll or something else?

updated the 'XBass' plugin, and it now includes a new function named 'xbassAddSpectrum'. you can utilize this function to meet your expectations.
additionally, please use the 'XBass' external plugin (.dll) since using the internal 'XBass' can lead to conflicts with 'FireMonkey'.

Originally Posted by audiofeel

@blackfire69
1.-About the window collapse animation...(MinimizeWindowCustomAnimated). Some users claim that on weak and not very powerful PCs, this option is performed with a delay and jerks. There may even be a collapse of the form. I couldn't repeat it. And to be honest, I don't care about this option (everyone can turn it on or off by themselves). But still review my script, maybe I did something wrong?

2.-It was also noticed that if the type of form is selected (FCreateImageForm), then the form does not return to its normal state after folding, but turns into a small rectangle (I attach a screenshot). Maybe it's my jamb (look through my script and maybe you'll find an error).

'MinimizeWindowCustomAnimated' now uses a different effect, meaning the old one has been replaced.
additionally, remember the following:
1. since this is just an effect, you need to call 'pMinimizeWindow' to do the actual minimization.
2. it does not support 'FCreateImageForm'. some of the features in the 'FMXInno' plugin shouldn't be there officially, so i had to use some tricks to integrate them. this may cause compatibility issues.

type
  TMinimizeAnimPos    = (mapTop, mapBottom, mapLeft, mapRight);

function MinimizeWindowCustomAnimated(MinimizeAnimPos: TMinimizeAnimPos): Boolean;

.

[Fak Eid]

@BlackFire69
FProgressBar will always require a custom theme file to set up color and look. I was trying this with FThinProgressBar and the only thing I need is Orientation. Is it possible to add it to FThinProgressBar?
The reason to choose it over ProgressBar is to be able to custom code based on Color and be independent of styling. Like make it even Color Gradient.

Originally Posted by BLACKFIRE69

updated the 'XBass' plugin, and it now includes a new function named 'xbassAddSpectrum'. you can utilize this function to meet your expectations.
additionally, please use the 'XBass' external plugin (.dll) since using the internal 'XBass' can lead to conflicts with 'FireMonkey'.
.

[BLACKFIRE69]

Originally Posted by Fak Eid

@BlackFire69
FProgressBar will always require a custom theme file to set up color and look. I was trying this with FThinProgressBar and the only thing I need is Orientation. Is it possible to add it to FThinProgressBar?
The reason to choose it over ProgressBar is to be able to custom code based on Color and be independent of styling. Like make it even Color Gradient.

replaced 'FProgressBar' with 'FThinProgressBar'


.

[Fak Eid]

@BlackFire69 Thank you FThinprogressBar update. I have one little question though.
Is there a way where we can show pop-up box over a FVideoPlayer. If not, is it possible for you to make it (as I have some amazing idea). If yes, can you show me a test code with it.

Attaching a photo as an example for what I want it look like.
A Video playing in the background instead of photo, and a pop-up display to show some information on top of it.

[crachlow]

There the video is displayed on the panel, and only then there are inscriptions.

[Fak Eid]

@audiofeel
I'm playing a video using FVideoPlayer in the background of a FCustomPage. I want to display a FPopupBox over this FCustomPage. I want to know if it can be made possible.

Originally Posted by audiofeel

Perhaps you need to play video through a third-party dll. This script at least has text over the video.

[BLACKFIRE69]

FMXInno Update - [2023-Sep-12]

* Added new functions.
* Disabled runtime integrity checks.
* Fixed DirBrowse Edit.
* Updated FCreate* functions.
* Updated 'MinimizeWindowCustomAnimated' for ImageForms.
* Updated 'XBass' (internal/external).
* Updated 'ISArcEx' (internal/external).
* Removed lzma2 algorithm and used the lowest compression level.
  - FinalSize(old): 2.86 MB
  - FinalSize(new): 3.41 MB

{ PowerPlan ID }
const
  USER_PP_POWER_SAVER          = $0002;
  USER_PP_BALANCED             = $0004;
  USER_PP_HIGH_PERFORMANCE     = $0006;
  USER_PP_ULTIMATE_PERFORMANCE = $0008;
  USER_PP_UNKNOWN              = $0001;
 
function wPowerPlanGetActivePlan: Byte;
function wPowerPlanExist(const PowerPlanID: Byte): Boolean;
function wPowerPlanSetOrCreate(const PowerPlanID: Byte): Boolean;

var
   CurActivePowerPlanID: Byte;

function InitializeSetup(): Boolean;
begin
  CurActivePowerPlanID := wPowerPlanGetActivePlan;

  if (CurActivePowerPlanID = USER_PP_POWER_SAVER) or // Power saver
     (CurActivePowerPlanID = USER_PP_BALANCED) or // Balanced
     (CurActivePowerPlanID = USER_PP_UNKNOWN) then // Unknown (optional)
  begin
    if (not wPowerPlanSetOrCreate(USER_PP_HIGH_PERFORMANCE)) then // High performance
      MsgBox('High performance powerplan error.', mbError, MB_OK);
  end;

  FMXInnoInit;
  Result := True;
end;

procedure DeinitializeSetup();
begin
  wPowerPlanSetOrCreate(CurActivePowerPlanID);

  FMXInnoShutDown;
end;

-----------------------------------------------------------------------------------------------------------------------

Originally Posted by audiofeel

@blackfire69
MinimizeWindowCustomAnimated).

It was also noticed that if the type of form is selected (FCreateImageForm), then the form does not return to its normal state after folding, but turns into a small rectangle (I attach a screenshot). Maybe it's my jamb (look through my script and maybe you'll find an error).

'MinimizeWindowCustomAnimated' has been fixed for 'ImageForms'.


-----------------------------------------------------------------------------------------------------------------------

Originally Posted by Fak Eid

@Blackfire69

1. Please acknowledge this issue when trying to use Edit on Directory section:
https://fileforums.com/showpost.php?...&postcount=471

fixed.


-----------------------------------------------------------------------------------------------------------------------

Originally Posted by Fak Eid

2. Installation speed is still not smooth. When transitioning from, say suppose Data-01 to Data-02, it still drops after a certain point of time. For eg: At Data-01 if it was 64mb/s, when extracting Data-02 it refreshes (resets) and becomes 12mb/s after some time.
Not sure if it helps, but save the previous/average installation speed and when the disk transition happens, do (prev installation speed+ current callback speed)/2 (like take average)

1. 'ISArcEx' only calculates the current extraction speed for the current archive.
2. 'ISArcExReduceCalcAccuracy' has been updated.
- procedure ISArcExReduceCalcAccuracy(Factor: Byte);
- Factor: 1-5 (default = 1).


.

[Tihiy_Don]

I ask you to observe backward compatibility or write what types of variables you changed in the libraries. Since I am now trying to update the script for a new library and get a lot of errors.

In some functions, you have changed the type from integer to single. I ask you to indicate this, since it is problematic to observe compatibility when updating the library.

[BLACKFIRE69]

Originally Posted by Tihiy_Don

I ask you to observe backward compatibility or write what types of variables you changed in the libraries. Since I am now trying to update the script for a new library and get a lot of errors.

In some functions, you have changed the type from integer to single. I ask you to indicate this, since it is problematic to observe compatibility when updating the library.

adding backward compatibility can be a drawback in many cases. so, we should embrace the latest.

Originally Posted by BLACKFIRE69

NOTE:
This update involves modifications to certain functions/procedures, which might require adjustments to current scripts.

[XH75819116]

win10 21h1 FMXForm:= InitFormHandle unresponsive

[BLACKFIRE69]

Originally Posted by XH75819116

win10 21h1 FMXForm:= InitFormHandle unresponsive

i don't have Windows 10 21H1 at the moment, but it's working fine on Windows 10 22H2 (even on a virtual machine).


screenshot:

.

[BYRedex]

Hi! What about rounding out the shape?
I want to use "FMXForm.FCreateNormal(WizardForm.Handle);" so that I can put any image on top of the form and it will be rounded.

On the screenshots you can see it perfectly well, everything turns out using this:

function SetWindowRgn(hWnd: HWND; hRgn: LongWord; bRedraw: BOOL): Integer;
external '[email protected] stdcall';

SetWindowRgn(FMXForm.Handle, FormRegion, True);

But then the form and FMX live separately, i.e. the FMX layer moves on the WizardForm form.

SetWindowRgn works only with "FMXForm.FCreateNormal", I want to have the same view for all systems (from Win7 to 11) and have the ability to set parameters of form rounding.

[Fak Eid]

@Blackfire69

If you have some time, can you please work on enabling some component over FVideoPlayer (like even FPopUpBox) will also be fine.

You can check this post for the requirement I'm asking for.
https://fileforums.com/showpost.php?...&postcount=493