FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by Jahan1373

Hello friends, does anyone have a solution to extract these types of files in the installation

@Jahan1373,

it would be more suitable to address your questions through private messages or relevant threads. additionally, try to limit multiple messages on a single topic for the benefit of others searching through the content. thank you.

[statics]

Is there any way to include DSG compatibility in LizzardInstaller?
The changelog states that Cesar includes this module, but I can't find the scripts to use as a base

[BLACKFIRE69]

FMXInno Final Release: [2023-Dec-29] - Update 02

@everyone who contributed to FMXInno,

As we wrap up the year, and with this being the last update for this year, i want to express my gratitude for your invaluable contributions—bug reports, feature requests, and creative ideas. Your involvement has played a key role in refining FMXInno throughout all the years since the start. Thanks for being part of the FMXInno journey. Wishing you all the best in the coming year!

Cheers!

- BLACKFIRE

New update uploaded to first post, check it out.


What's new:

1. Added:
   - function wSystemReboot(EWX_Flags: UINT): Boolean;
   - function WinElevenTime(const IsClock24: Boolean): WideString;
   - function WinElevenDate: WideString;
   - procedure WinElevenChangeTimeAbbrev(const sAM, sPM: WideString);
   - procedure WinElevenChangeTimeFormat(const sTimeFormat: WideString);
   - procedure WinElevenChangeDayStr(const DayIdx: Integer; DayStr: WideString);
   - procedure WinElevenChangeMonthStr(const MonthIdx: Integer; MonthStr: WideString);
   - procedure WinElevenChangeDateFormat(const sDateFormat: WideString);
   - New FTrackBarCustom class.

2. Updated:
   - function wGetShortCut(Key: Word; Shift: TShiftState): TShortCut;
   - FCmdOut class.
   - FVirtualAction class.
   - FInstNewProc class.
   - DrawFrame for FForm, FCustomFluentWindow, FFluentDirBrowse and FFluentStartBrowse classes. 

3. Fixed:
   - function InstallFMXFont(FontFileName: WideString): Boolean;
   - function DeleteFMXFont(FontFileName: WideString): Boolean;
   - procedure InvalidateFMXFont;
   - IsChecked for FToggleCheckBox.

4. FFluentDirBrowse, FFluentStartBrowse are now more customizable.
  - Added DisableDefaultAppName.
  - Button settings
  - and more.

5. Some improvements and minor bug fixes.

[Tihiy_Don]

Originally Posted by BLACKFIRE69

FTrackBarCustom:



1. FTrackBar - this depends on the Style file, so you need the ability to create or modify a new Style file.

2. FPictureTrackBar - a botva2-like trackbar requires skill in Photoshop.

3. for users like me who aren't design experts, we need an easy but fully customizable trackbar for general use. so, FTrackBarCustom may be suitable for that purpose.

4. i'm quite busy right now, so the given example is a bit ugly (no color matching). i'm sure you can design a better one on your own.

    function FCreate(FHandle, FFormHandle: TFmxObject; const FLeft, FTop, FWidth, FHeight, FBtnTop, FBtnWidth, FBtnHeight: Single; IsRoundSlide: Boolean): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Width(FWidth: Single);
    procedure Height(FHeight: Single);
    procedure Visible(FVisible: Boolean);
    procedure Enabled(FEnabled: Boolean);
    procedure FillColor(AlColor: Integer);
    procedure FillPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngle(FAngle: Single);
    procedure FillGradientRadialAngle(FAngle: Single);
    procedure CusGradientPosition(X1, Y1, X2, Y2: Single);
    procedure StrokeColor(AlColor: Integer);
    procedure StrokeSetting(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePicture(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngle(FAngle: Single);
    procedure StrokeGradientRadialAngle(FAngle: Single);
    procedure FillColorSlide(AlColor: Integer);
    procedure FillPictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngleSlide(FAngle: Single);
    procedure FillGradientRadialAngleSlide(FAngle: Single);
    procedure CusGradientPositionSlide(X1, Y1, X2, Y2: Single);
    procedure StrokeColorSlide(AlColor: Integer);
    procedure StrokeSettingSlide(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngleSlide(FAngle: Single);
    procedure StrokeGradientRadialAngleSlide(FAngle: Single);
    procedure Opacity(FOpacity: Single);
    procedure OpacitySlide(FOpacity: Single);
    procedure OpacityTotal(FOpacity: Single);
    procedure RotationAngleSlide(FRotationAngle: Single);
    procedure RotationCenterSlide(X, Y: Single);
    procedure CornerStyle(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure Sides(Sides: TSides);
    procedure Scale(X, Y: Single);
    procedure CornerStyleSlide(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure SidesSlide(Sides: TSides);
    procedure ScaleSlide(X, Y: Single);
    procedure SetValue(const FValue: Single);
    procedure SetMin(const FValue: Single);
    procedure SetMax(const FValue: Single);
    procedure OnChange(Event: TNotifyEvent);
    procedure AddProgress(AlColor: Integer);
    procedure AddProgressPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure AddProgressGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure ProgressVisible(FVisible: Boolean);
    procedure ProgressOpacity(FOpacity: single);
    procedure SetTag(Tag: Integer);
    procedure BringToFront;
    procedure BringToFrontSlide;
    procedure SendToBack;
    function GetTag: Integer;
    function GetValue: Single;
    function GetMax: Single;
    function GetMin: Single;
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObjectSlide: LongInt;
    function GetObjectBkg: LongInt;
    function GetObject: LongInt;
    function HandleSlide: TFmxObject;
    function HandleBkg: TFmxObject;
    function Handle: TFmxObject;

Thank you very much! This is what I've been waiting for! I just don't have the skills of a designer in graphic editors!

[Tihiy_Don]

When changing the visible property of the FTrackBarCustom component to false for the first time, part of the Progress element does not disappear. It disappears when switching again. even if you register these properties together, the problem is similar:

VolTrackbar.Visible(false);
VolTrackbar.ProgressVisible(false);

Example:

[Jahan1373]

Originally Posted by audiofeel

Adaptation - localization of Jiva newstone script
(Translation into Russian. Changing the size of some objects, etc.).
Everything has been transferred to the FMXInno library by Blackfire69 dated November 06, 2023.
Unboxing via IsArcEx by Blackfire69.
All functionality is in place.
Comparison of systems requirements, Site verification. Animation. Gaussian Blur.
About the game page.
Splash screensaver.
Music.
Pause while unpacking
Restarting (itself) the installation after an unsuccessful installation.
Removing the game (if there is a key in the registry) before installation
Requires Inno Setup 5.6.1 and higher.
Thanks to Blackfire69

Please use the English language in the installation, as I do not know Russian

[BLACKFIRE69]

>>> i've noticed that some of the useful features in the FMXInno developer edition(dev) are missing in the final release. therefore, i plan to include them in future updates.

What's new:

* Added missing FTypedText class.
* Added missing FTypedLine class.

.

[audiofeel]

Originally Posted by Jahan1373

Please use the English language in the installation, as I do not know Russian

All the scripts that I post here in the public are just examples of the excellent work of the dll library. We have more than 170 languages in our country. And what am I supposed to do? Translate it all into 170 languages? My scripts are not the final solution. I do not have megalomania and I do not require anyone to specify me as the author, if I am a healthy person, then I should not care what you do next with my scripts. Use Google Translator

[Jahan1373]

://www.mediafire.com/file/gh4um1dsm92xbeg/Help.zip/file
Hello
Can someone help me, I have a problem with this installation
CPU will be 100% after installation
Second, after the installation is finished, the installation icons are opened, the problem is that they are white on the desktop, the game icon is not visible.
Friends, how to solve this problem?

[BLACKFIRE69]

Originally Posted by Jahan1373

://www.mediafire.com/file/gh4um1dsm92xbeg/Help.zip/file
Hello
Can someone help me, I have a problem with this installation
CPU will be 100% after installation

1. the following functions have been updated:

1. DeleteFMXFont.
2. FMXInnoShutDown.

2. the updated version has been tested on both Windows 10 and 11. replace the old files with the attached files below and

3. ensure the following order in your script file:

procedure DeinitializeSetup();
begin
  { Font }
  DeleteFMXFont(ExpandConstant('{tmp}\Your_Font_File_Here.ttf'));

  { ISArcEx }
  ISArcExCleanUp;

  { FMXInno }
  FMXInnoShutDown;
end;

4. if you are unsure how to modify your script, feel free to send it to us.

.

[Tihiy_Don]

An error started to occur deleting the font after I replaced the library with a new one. Do the others have this problem or am I the only one?

procedure DeinitializeSetup();
begin
DeleteFMXFont(ExpandConstant('{tmp}\segmdl2.ttf')) ;
ISArcExCleanUp;
FMXInnoShutDown;
end;

Moreover, I noticed an interesting feature, if you leave the order that I had earlier, then everything works fine.

ISArcExCleanUp;
DeleteFMXFont(ExpandConstant('{tmp}\segmdl2.ttf')) ;
FMXInnoShutDown;

[audiofeel]

Originally Posted by Tihiy_Don

An error started to occur deleting the font after I replaced the library with a new one. Do the others have this problem or am I the only one?
Moreover, I noticed an interesting feature, if you leave the order that I had earlier, then everything works fine.

First we delete the font, and only then we kill the IsArcEx and FMXInnoShutDown.

DeleteFMXFont(ExpandConstant('{tmp}\segmdl2.ttf')) ;
ISArcExCleanUp;
FMXInnoShutDown;

And also, if your repack will not be deployed on Windows 7, then you do not need to install this font (Segoe MDL2 Assets), it is available in both Windows 10 and Windows 11

[Tihiy_Don]

Originally Posted by audiofeel

First we delete the font, and only then we kill the IsArcEx and FMXInnoShutDown.

DeleteFMXFont(ExpandConstant('{tmp}\segmdl2.ttf')) ;
ISArcExCleanUp;
FMXInnoShutDown;

And also, if your repack will not be deployed on Windows 7, then you do not need to install this font (Segoe MDL2 Assets), it is available in both Windows 10 and Windows 11

this is exactly the error that occurs if the font is deleted in the first place. As recommended by the author of the library.

DeleteFMXFont(ExpandConstant('{tmp}\segmdl2.ttf')) ;
ISArcExCleanUp;
FMXInnoShutDown;

[audiofeel]

Originally Posted by Tihiy_Don

this is exactly the error that occurs if the font is deleted in the first place. As recommended by the author of the library.

To remove a font from the system, how to understand that it is installed?, find it along this path (C:\Users \????\AppData\Local\Microsoft\Windows\Fonts ). Restart the machine, rename the font file and try again.

[Tihiy_Don]

Originally Posted by audiofeel

To remove a font from the system, how to understand that it is installed?, find it along this path (C:\Users \????\AppData\Local\Microsoft\Windows\Fonts ). Restart the machine, rename the font file and try again.

For now, I want to deal with this problem at the file level in the folder that is being created in the temporary folder. I checked, the file "segmdl2.ttf" is there. I don't quite understand yet, and there should be a Windows font directory here.