FMXInno - Windows Fluent Design Installer UI for Inno

[Fak Eid]

Declare a global variable DiskSkip in the top

var
DiskSkip: Boolean;

Updated changes here:

procedure CurStepChanged(CurStep: TSetupStep);
var
  i: Integer;
begin
  DiskSkip:= False;
  if CurStep = ssInstall then begin
    ISArcExCancel := 0;
    ISArcExDiskCount := 0;
    ISArcDiskAddingSuccess := False;
    ISArcExError := True;

    #include "Game/UnpackTools_Init.iss"
    { - ADDING DISKS: BEGIN -}
    repeat
      {< Main Archives >}
      #ifdef Data1
        VerifyFileExist('Data-01.bin');
        if DiskSkip then break;
      #endif
      #ifdef Data2
        VerifyFileExist('Data-02.bin');
        if DiskSkip then break;
      #endif

      {< Components >}
      #ifdef Component1
        if Checkbox[8].ISChecked then
        VerifyFileExist('selective-english.bin');
      #endif
      #ifdef Component2
        if Checkbox[9].ISChecked then
        VerifyFileExist('selective-bonus.bin');
      #endif
      until true;
    { - ADDING DISKS: END -}

      ISArcExStop;
      if ISArcExError then
        ShowMessage('Installation was interrupted', 'Either the installation has been cancelled by the user,' +#13+ 'or the files are corrupted.');
      end else if not (ISArcDiskAddingSuccess) and (DiskSkip) then
        ShowMessage('Installation is corrupted', 'Required disks could not be located.');

Common procedure to handle all Data files

procedure VerifyFileExist(FilePath: WideString);
var
  sPath, sFile: WideString;
  sExt: String;
begin
  sPAth := AddBackslash(ExpandConstant('{src}'));
  if FileExists(sPAth + FilePath) then begin
    ISArcDiskAddingSuccess:= ISArcExAddDisks(sPAth + FilePath, '{#DiskPassword}', ExpandConstant('{app}'));
    if not ISArcDiskAddingSuccess then begin
      DiskSkip:= True;
      Exit;
    end;
    ISArcExDiskCount := ISArcExDiskCount + 1;
  end else
    begin
    ShowMessage('Setup Needs the Next Disk', 'Please browse Disk: [ ' + FilePath +  ' ] after closing this prompt'#13#10'If this disk can be found in another folder, browse to the correct path.');
    sExt:= ExtractFileExt(FilePath); StringChange(sExt, '.', '');
    if OpenFileModern(FMXForm.HandleHWND, sExt, FilePath,  sPAth, 'Please specify the location of the next disk', sFile) then
    begin
      sPAth := ExtractFilePath(sFile);
      ISArcDiskAddingSuccess:= ISArcExAddDisks(sPAth + FilePath, '{#DiskPassword}', ExpandConstant('{app}'));
      if not ISArcDiskAddingSuccess then begin
        DiskSkip:= True;
        Exit;
      end;
      ISArcExDiskCount := ISArcExDiskCount + 1;
    end else begin
      ISArcDiskAddingSuccess := False;
      DiskSkip:= True;
      Exit;
    end;
  end;
end;

[Fak Eid]

Hi @BlackFire,

I have identified that in 1080p the Form doesn't pop-up at the center of the screen, it is slightly to the left. This is not happening with everyone.

Another issue with FCustomFluentWindow is if once triggered it keeps on popping-up repeatedly and cannot be closed.

MessageForm.FCreate(FMXForm.HandleHWND, True, False, 0.56, 0);

Temporary fix where it doesn't happen

MessageForm.FCreateBlankForm(FMXForm.HandleHWND, ALBlack, '');

This is also happening for few people. I'm using a gaming mouse but macro is not enabled. Can you please take a look or let me know the reason or fix?

I've created two videos associated to this. Copy-paste the link after 'youtube.com/' as I'm unable to post the link because they get automatically parsed.

watch?v=lKhINB7hyBY&ab_channel=FaKEid

Issue notified at 00:40 - 1:30

watch?v=xopBfI90T-g&ab_channel=FaKEid

Edit : Added GIF to display the issue

[Fak Eid]

Yes the issue is the resolution scale. In 100%, it comes completely in the center of the screen, but in 125%, it is slightly to the left.

I'm not using any custom theme file here. No code changes here, just the default template shared by @Blackfire for WPI Corepack and the issue is happening for FCustomFluentWindow for me.

[BLACKFIRE69]

Hola everyone,

This is the FMXInno official development library, encompassing all features. my intention with this update is to address known issues so far. therefore, i need your assistance in testing it, especially in this development build. i intend to ensure the correct behavior of forms, including proper scaling and positioning.

1. Note: This is in the development stage and not recommended for use in production.

2. Don't forget to share your feedback and feel free to report any bugs you discover.

* Information:

1. Rewrote some core/fundamental code, including forms, etc.:

-- Ensures correct scaling and positioning of forms and FMX objects.
-- All forms will now be centered on the screen.

-- Disabled file size reduction tricks and temporary memory management.
-- Replaced all animations with TAnimator for better performance.

-- Some features (e.g., MinimizeWindowCustomAnimated) have been deprecated due to issues; they can still be called but will have no effect.
-- NewScaller is no longer part of FMXInno, so make sure to remove all related functions (NS, NSS, etc.) from your scripts.

-- The new FForm will be slightly shorter in width/height as the extra frame width is not added to it.
-- When testing with higher DPI values and using .style files, ensure the .style file is HigherDPI-Aware.

-- Some features may not function properly on older systems like Windows 7. Since many developers, including Microsoft, have ceased support for outdated systems, my priority is to ensure compatibility with currently active systems such as Windows 10 and Windows 11.

-- Additionally, there's no guarantee that any issues encountered through virtual machines (VMware, etc.) will be resolved.

-- For 'FCustomPage', use 'Page#.Visible(False)' in 'FMXDesigning' to avoid visibility of all pages at setup startup.

Example:

procedure FMXDesigning;
begin
  {...}
  Page1.FCreate(FMXForm.Handle);
  Page1.Visible(False);
  
  {...}
  
  Page2.FCreate(FMXForm.Handle);
  Page2.Visible(False);
  {...}
end;

2. Rewrote some fluent effects code:

-- Ensures FluentForms react only to system color mode (light/dark) changes.
-- 'SetActiveThemeModeAwareness' will be ignored if the form is minimized.


3. Download the attachment below and perform tests under the following conditions:

OS:

- Windows 11
- Windows 10
- Windows 8 / 8.1 ( Optional )
- Windows 7 ( Optional )

DPI:

- 100%
- 125%
- 150%, etc.



4. Also, test with your own scripts:
-- Replace your current 'FMXInno.dll' and 'FMXInnoHandle.iss' with the provided ones.


5. Some users have reported that it takes a bit of time to compile their scripts. this is because it takes time to read the default 'FMXInnoHandle.iss', which contains declarations of all features. if you have enough experience to deal with it, you can remove unused code from it for your specific script, which may help.

* FMXInno Form Types:

1. Normal Form:
   -- This is just an FMX layer; you can create any FMX object over it.
   -- You can still see through and access every InnoSetup object as this is a layer.

2. Blank Form:
   -- A standard FMX form filled with a solid color or an image by default.

3. Fluent Form / Fluent Color Form / Fluent Null (no-color) Form:
   -- FMX forms that have enabled Windows Fluent (or Acrylic/Aero) effects by default.

4. Gradient Form:
   -- A standard FMX form filled with a gradient color by default.

5. Image Form:
   -- An FMX form based on an image (form has the same shape as the image).

6. Background image scrolling Form:
   -- An FMX form that has a scrolling image background according to mouse movements.

* Scaling:

1. Note that there's no guarantee for any custom scaling value for correct scaling (see first screenshot).
2. Make sure to use only the values supported by your display (see second screenshot).

.

[Fak Eid]

Can someone help me in animating this section down on the click of 'i' (info button) ? Check the gif:
Page[1]: FCustomPage;
PageContent[1]: FRectangle;

  Page[1].FCreate(ShadowImg.Handle);
  Page[1].Visible(False);

  PageContent[1].FCreate(Page[1].Handle);
  PageContent[1].FillColor(HTMLColorStrToFMXColor('#1f2227'));
  PageContent[1].SetBounds(20, 70, 780, 150);
  PageContent[1].Opacity(0.85);
  PageContent[1].CornerStyle(2, 2, [tcTopLeft, tcTopRight, tcBottomLeft, tcBottomRight], ctRound);

[Fak Eid]

Hi @Blackfire

The earlier issue with FCreateBlankForm, where it loads with a blank image before load, has resurfaced. When running for the first time it is for more time, it subsequently gets faster (depending upon SSD/HDD, I suppose). Can you please look into it?

I'm not sure if there is already a fix for it, as I lost track of some recent changes in FMXInno. If there is a fix, let me know.

Image and gif added for review.

[hitman797]

Originally Posted by Fak Eid

Hi @Blackfire

The earlier issue with FCreateBlankForm, where it loads with a blank image before load, has resurfaced. When running for the first time it is for more time, it subsequently gets faster (depending upon SSD/HDD, I suppose). Can you please look into it?

I'm not sure if there is already a fix for it, as I lost track of some recent changes in FMXInno. If there is a fix, let me know.

Image and gif added for review.

add this to the code.

procedure InitializeWizard();
begin
  FMXForm.Show;
end;

[BLACKFIRE69]

FMXInno: Cumulative Update - [2024-Mar-15]


What's New:

* Merged FMXInno Dev into this.
* Updated ISArcEx to the latest version.
* Made some improvements and bug fixes.
* This update addresses most of the previous issues.
* Added Radiant Shapes.
* Introduced new properties to classes.
* WinTitleBar will now display the application icon by default.
* Not compressed by default.
  - No Exe compressor or file reduction tricks were used.
* Implemented new functions.

- function MbOrTbEx(Float: Extended; Decimal: Integer; sMb, sGb, sTb: WideString): WideString;
- function MHzOrGHzEx(Float: Extended; Decimal: Integer; sMz, sGz, sTz: WideString): WideString;

etc.

.

[BLACKFIRE69]

Originally Posted by BLACKFIRE69

FMXInno: Cumulative Update - [2024-Mar-15]


What's New:

* Merged FMXInno Dev into this.
* Updated ISArcEx to the latest version.
* Made some improvements and bug fixes.
* This update addresses most of the previous issues.
* Added Radiant Shapes.
* Introduced new properties to classes.
* WinTitleBar will now display the application icon by default.
* Not compressed by default.
  - No Exe compressor or file reduction tricks were used.
* Implemented new functions.

FMXInno - Final Release [2024-Mar-20]


What's new:

* This update will extend from FMXInno Dev [2023-Mar-15].

- Make sure to refer to the last previous changelog to check out the new changes.

* Added a new Fluent Form (FluentBlendedColor).

- This is also a standard Fluent Form, but this new form will blend with the Windows colors (Accent or Desktop Image) along with standard Fluent colors.
- The reason for this new form is for Fluent forms to have a more realistic and modern look.
- Supports both Dark/Light modes and custom color mode.
- Also supports some possible customizations.
- Check out the screenshots to see the differences between standard Fluent forms at standard opacity level (Opacity = 0.56).

* Added built-in SVG image support.

- Rendering engine: Image32

* Windows title bar is now more customizable.

- Custom Application Icon instead of the default one.
- Titlebar Color.
- Button Colors.
- Titlebar Background Effects, and so on.

* SKIA and Blend2D are now optional.

- SKIA and Blend2D are optional from now on because they require external dependencies (sk4d.dll, blend2d_win32.dll).
- You can still have them, but you have to download them manually.

* Added Image32 - 2D Graphic Library.

- Image32 will take the place of SKIA and Blend2d from now on, especially because it does not require external dependencies and has average performance compared to SKIA and Direct2D.
- Image32 is not enabled by default for public use; for now, it's for my personal use only (because i'm pretty sure no one will use it directly in their projects. )
- More info about Image32: Image32 is a 2D graphics library

* Added new properties for classes.

* More bug fixes and improvements.

* Plugin folder has been cleaned up.

- Removed unwanted plugins from the directory.
- Re-compiled all the plugins to make sure everything is up to date.

* All the examples have been revised.

- Now the default compression will be 'lzma2/ultra64'.

* Also, added new examples.

* Extended support for Windows 11 24H2.

function FCreateFluentBlendedColor(WParent: HWND; DarkTheme, NoBorder: Boolean;
  Opacity: Single; BrightnessPct: Byte; BlendColorMode: TBlendColorMode): HWND;

function FCreateFluentBlendedColorEx(WParent: HWND; DarkTheme, NoBorder: Boolean;
  Opacity: Single; BrightnessPct: Byte; BlendColorMode: TBlendColorMode;
  BlendColorLvl: Integer): HWND;

function FCreateFluentBlendedColorEx2(WParent: HWND; VCLColor: TColor;
  DarkTheme, NoBorder: Boolean; Opacity: Single; BrightnessPct: Byte;
  BlendColorLvl: Integer): HWND;

Note: The first post has been updated; check it out.



.

[BLACKFIRE69]

FMXInno: Minor Update for [Mar-20]

* Added two methods to the UWP class that select a specific UWP tile.

* Now supports FluentBlendedColor option in other forms as well (CustomForm, Dir/Start Form).

* Added missing method 'SetApplicationIconFromFXStream' to the 'FWinTitleBar' class.

UWP Tile Selection:

procedure TileSelect(ATile: LongInt);
procedure TileSelectEx(ATile: LongInt; MouseOverColor: TAlphaColor);

Example:

UWPTiles.TileSelect(Tile[5]);
UWPTiles.TileSelectEx(Tile[5], ALRed);

How to update:

1. Download the latest update from the first post.
2. Replace the 'FMXInno.dll' and 'FMXInnoHandle.iss' with the provided ones.

.

[BLACKFIRE69]

FMXInno: Minor Update - [2024-Mar-27]

* Added the FColorComboBox class.
* Prevented forms from being resized.
* Added the following new functions:

function IsValidVCLColor(const AColor: TColor): Boolean;
function IsValidFMXColor(const AColor: TAlphaColor): Boolean;

function IsLightFMXColor(const AColor: TAlphaColor): Boolean;
function IsLightVCLColor(const AColor: TColor): Boolean;

IsLightFMXColor:

> in some cases, 'IsLightFMXColor' is useful for determining the font colors based on the background color or background image color. here's how it can be used:

procedure ClrBxOnChange(Sender: TObject);
var
  CtrlClr: TAlphaColor;
begin
  CtrlClr := AClrBx.GetColor;

  if IsLightFMXColor(CtrlClr) then
    AText.Color(ALBlack)
  else
    AText.Color(ALWhite);

  ARect.FillColor(CtrlClr);
end;

Extra:

function DesktopImgExist: Boolean;

function GetDesktopImgColorFMX: TAlphaColor;
function GetDesktopSolidColorFMX: TAlphaColor;

function GetImgColorFMX(const Image: UnicodeString): TAlphaColor;
function GetImgPartColorFMX(const Image: UnicodeString; 
  const PixelX, PixelY, PixelW, PixelH: Single): TAlphaColor;

How to update:

1. Download the latest update from the first post.
2. Replace the 'FMXInno.dll' and 'FMXInnoHandle.iss' with the provided ones.

.

[BLACKFIRE69]

FMXInno - Windows 8

even though i'm not a fan of Windows 8 like many others, i do like the background color transition during its installation. what are your thoughts?

.

[Jahan1373]

Originally Posted by Fak Eid

Hi audiofeel,

Well, please refer the files. To reproduce the issue:
1. The required files in the Output are obviously missing. So, start the installer normally and navigate to Installation tab. It will show you some error like: Required Files Missing.

2. Try to close it and quit the installer. It doesn't happen. Hard close using Task Manager.

3. Now, open the installer again and try to quit at any point of time. It doesn't close.

Let me know if you're able to refer this link:
https://www.mediafire.com/file/ohrzl...dated.zip/file

I know there can be some issue with my code. But, if you can help me, I'll learn from you

Link dwnlad

[BLACKFIRE69]

FMXInno - Final Release [2024-Apr-29]


* What's New:

* This update focuses on quality improvements, stability enhancements, and minimizing memory leaks.

-- Features like FMXInno Copilot, Widgets, and certain modern features have been postponed to avoid adding bloatware to FMXInno.
-- However, you can test them out on FMXInno-Dev, and I'll provide updates on their availability in the future.

* Introduced a new Error Handling Mechanism.

-- Previous versions of FMXInno lacked proper error handling because I prioritized adding new features and improvements over it.
-- With this update, I've enhanced the stability of FMXInno,
-- Ensuring that the new error handling significantly benefits you by preventing installer crashes and access violation errors.

* Compiled with the latest version of RadStudio (RadStudio Athens 12.1 - 04/Apr/2024).

-- This ensures that everything is up-to-date.
-- Providing high-quality performance and rendering.
-- High-DPI support.
-- Complete compatibility with Windows 11.
-- Increased Windows API availability.
-- And improved coding efficiency.

* Fixed HTMLText and added support for opacity.

-- Previously, HTMLText had issues with opacity, which have now been resolved.

* Fixed WebView2 to ensure proper setup closure.

-- Updated WebView2 to the latest version and made necessary improvements.

Example: 

procedure DeinitializeSetup();
begin
  AWebView.Stop;
  AWebView.Shutdown;
  FMXInnoShutDown;
end;

* Improved SKIA for high performance.

-- SKIA relies on the GPU and minimally affects the CPU, making it suitable for use in your installer.

* Although SKIA and Blend2D are kept separate from the standard FMXInno for now, both versions are provided in the attachment.

-- In the future, they will need to be downloaded separately.

* The Image32 Engine remains unavailable for public use.

-- As many FMXInno users may not be familiar with it.

* Various improvements and bug fixes.

-- No software is without issues, so we continue to address them with each update.

* Updated the '_InstallerGenerator' app.

-- Now includes a built-in Inno Script Editor + Compiler.

* Ready to use with the upcoming InnoSetup v6.3.0.

* Added a new example for setup language selection.

Note: The first post has been updated; check it out.



.

[Tihiy_Don]

Good afternoon! Some users, on any systems, have a problem when the installer process hangs in the processes and the form does not open. It occurs extremely rarely, in about 5-10 percent of users. I hope this issue has been fixed in this version. I tried to change different types of forms, the result is the same.