FMXInno - Windows Fluent Design Installer UI for Inno

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

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

[BLACKFIRE69]

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.

well,

* first of all, this isn't an error message; it's a warning message indicating that the font cannot be removed completely but only partially.

* as @audiofeel mentioned, the font (segmdl2.ttf) you're using is a system font that is already installed in the system, hence this warning will be displayed.



to avoid this issue:

1. 'InstallFMXFont' is intended for custom fonts, not system fonts. in a future update, i'll modify the DLL to prevent the installation of system fonts accidentally.

2. For the current situation, what you need to do is install your font file as a copy of the current system file. this simply means renaming your font file (segmdl2.ttf) to something else, such as 'segmdl2_New.ttf' or 'segmdl2_Copy.ttf', or any other name you prefer. this'll prevent the warning message from appearing.

Rename:  segmdl2.ttf   >>>   segmdl2_BF69.ttf


[Files]
...
Source: ".\Files\segmdl2_BF69.ttf"; DestDir: "{tmp}"; Flags: dontcopy;

{Code]
function InitializeSetup(): Boolean;
begin
  InstallFMXFont(ExtractAndLoad('segmdl2_BF69.ttf'));

  FMXInnoInit;
  ...
end;

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

  ISArcExCleanUp;
  FMXInnoShutDown;
end;

* ISArcExCleanUp:

regarding 'ISArcExCleanUp,' when you call the function 'ISArcExCleanUp,' it performs internal memory clean-up for the current process. this may include cleaning up the font memory cache, which could be why the warning message isn't displayed. however, it isn't recommended to call 'ISArcExCleanUp' before 'DeleteFMXFont'.

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

[Jahan1373]

https://www.mediafire.com/file/58adn...dicam.rar/file

Hello friends, does anyone know a solution to this problem?
There is a problem with the colors of this installation
More than 20 colors have this problem
The symbols and texts of this installation are not readable
The creator of this script says go learn design
Do you all know how to design on this forum?
The designer of this script does not accept that there is a problem with the installation and says go learn design. I have uploaded the list of problematic colors. Please help to permanently solve this problem so that the colors of this script are correct.
And read the texts of this installation in different colors
Thanks to those who help

[BLACKFIRE69]

Originally Posted by Jahan1373

https://www.mediafire.com/file/58adn...dicam.rar/file

Hello friends, does anyone know a solution to this problem?
There is a problem with the colors of this installation
More than 20 colors have this problem
The symbols and texts of this installation are not readable
The creator of this script says go learn design
Do you all know how to design on this forum?
The designer of this script does not accept that there is a problem with the installation and says go learn design. I have uploaded the list of problematic colors. Please help to permanently solve this problem so that the colors of this script are correct.
And read the texts of this installation in different colors
Thanks to those who help

oh boy, are you serious? sorry to say this but you need to have common sense. yes, indeed, texts with a font color close to white is difficult to see on a white background or vice versa. so what's the magic here?

[hitman797]

@BLACKFIRE69, can you add these two events to the form object.
FForm:

    procedure OnActivate(Event: TNotifyEvent);
    procedure OnDeactivate(Event: TNotifyEvent);

[BLACKFIRE69]

Originally Posted by hitman797

@BLACKFIRE69, can you add these two events to the form object.
FForm:

    procedure OnActivate(Event: TNotifyEvent);
    procedure OnDeactivate(Event: TNotifyEvent);

these two events don't get triggered for 'FForm', so nothing will change with these two events, and they'll never get triggered.

[BLACKFIRE69]

Modern FitGirl Installer for Windows 11+

How would it look if FitGirl's installer is created in 2024 and specifically targeted Windows 11+?

Let's give a modern look to a classic interface and compare it with modern styles.

What's new:

* Nothing new; i just gave a retouch to the classic interface.

Notes:

* This is just a concept, not for general use. if you need the complete script with all the features, let me know.
* Remember to change 'Opacity' as you prefer in your case.

; Setup: Theme
#define Opacity "0.0" /* Opacity Level: <0.0> to <1.0> */

.

[BLACKFIRE69]

FMXInno Final Release: [2024-Jan-31]




New update uploaded to first post, check it out.

What's new:

1. Added FMXInno WebView2 custom class.
2. Updated HTML text (updated _HTML-Syntax.txt).
3. Updated ISArcExCleanUp.
4. Added a simple tool (Installer Template Generator).
5. Addressed known issues.
6. Quality fixes and improvements.

1. FMXInno WebView2:

1. Support for the latest Windows 10 and Windows 11 only.

   -- This requires the WebView2 Runtime package.
   -- Alternatively, download it manually:  Microsoft Edge WebView2

2. Support for HTML 5.

3. FWebview is always on top of all other controls, just like the FVideoPlayer.
   Therefore, it's better to create this on an FCustomFluentWindow in real use.

2. Installer Template Generator:

1. A simple tool to generate installer templates.

   - The script will include all the fundamental functions that the installer requires.

.

[Gummy Bear]

Originally Posted by BLACKFIRE69

Modern FitGirl Installer for Windows 11+

.

Looks very cool, is there a script with working functionality?

[Tihiy_Don]

Maybe it will be useful to someone.
Automatically set the unpacking parameters depending on the amount of RAM:

function GetRamMemory: Integer;
var i: Integer;
s: String;
begin
s:=MbOrTb(RamInfo.TotalRam, 0);
for i:=length(s) downto 1 do
if not (s[i] in ['0','1','2','3','4','5','6','7','8','9']) then delete(s,i,1);

Result:=StrToInt(s);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
XValue, LRamValue, LCpuValue, SValue: String;
begin
case GetRamMemory of
0..2:
begin
XValue:= 't4';
SValue:= '512mb';
LRamValue:= '512mb';
LCpuValue:= '4';
end;
3..4:
begin
XValue:= 't4';
SValue:= '768mb';
LRamValue:= '768mb';
LCpuValue:= '4';
end;
5..6:
begin
XValue:= 't45p';
SValue:= '1024mb';
LRamValue:= '1024mb';
LCpuValue:= '4';
end;
7..8:
begin
XValue:= 't65p';
SValue:= '1536mb';
LRamValue:= '1536mb';
LCpuValue:= '4';
end;
9..12:
begin
XValue:= 't75p';
SValue:= '2064mb';
LRamValue:= '2064mb';
LCpuValue:= '4';
end;
13..16:
begin
XValue:= 't85p';
SValue:= '20%';
LRamValue:= '50%';
LCpuValue:= '6';
end;
17..32:
begin
XValue:= 't85p';
SValue:= '40%';
LRamValue:= '40%';
LCpuValue:= '6';
end;
33..150:
begin
XValue:= 't85p';
SValue:= '40%';
LRamValue:= '40%';
LCpuValue:= '6';
end;
end;

if CurStep = ssInstall then
begin
ISArcExCancel:= 0;
ISArcExDiskCount:= 0;
ISArcDiskAddingSuccess:= False;
ISArcExError:= True;

ExtractTemporaryFile('Russian.ini');
ExtractTemporaryFile('unarc.dll');
ExtractTemporaryFile('arc.ini');
ExtractTemporaryFile('cls.ini');
ExtractTemporaryFile('Facompress.dll');

#ifdef xtool_zlib
ExtractTemporaryFile('zlibwapi.dll');
ExtractTemporaryFile('xtool.exe');
if IsWin64 then
begin
SetIniString('External compressor:xtool', 'unpackcmd', ' "xtool" drecomp:' + XValue + ' - - <stdin> <stdout>', ExpandConstant('{tmp}\arc.ini'));
end else
begin
SetIniString('External compressor:xtool', 'unpackcmd', ' "xtool" drecomp:' + XValue + ' - - <stdin> <stdout>', ExpandConstant('{tmp}\arc.ini'));
end;
#endif

#ifdef srep
ExtractTemporaryFile('cls-srep.dll');
if IsWin64 then
begin
ExtractTemporaryFile('cls-srep_x64.exe');
SetIniString('Srep', 'Memory', SValue, ExpandConstant('{tmp}\cls.ini'));
end else
begin
ExtractTemporaryFile('cls-srep_x86.exe');
SetIniString('Srep', 'Memory', SValue, ExpandConstant('{tmp}\cls.ini'));
end;
#endif

#ifdef lolz
ExtractTemporaryFile('cls-lolz.dll');
if IsWin64 then
begin
ExtractTemporaryFile('cls-lolz_x64.exe');
SetIniString('lolz', 'MaxThreadsUsage', '4', ExpandConstant('{tmp}\cls.ini'));
SetIniString('lolz', 'MaxMemoryUsage', LRamValue, ExpandConstant('{tmp}\cls.ini'));
end else
begin
ExtractTemporaryFile('cls-lolz_x86.exe');
SetIniString('lolz', 'MaxThreadsUsage', '4', ExpandConstant('{tmp}\cls.ini'));
SetIniString('lolz', 'MaxMemoryUsage', LRamValue, ExpandConstant('{tmp}\cls.ini'));
end;
#endif
....

[BLACKFIRE69]

Originally Posted by Tihiy_Don

Maybe it will be useful to someone.
Automatically set the unpacking parameters depending on the amount of RAM:

function GetRamMemory: Integer;
var i: Integer;
s: String;
begin
s:=MbOrTb(RamInfo.TotalRam, 0);
for i:=length(s) downto 1 do
if not (s[i] in ['0','1','2','3','4','5','6','7','8','9']) then delete(s,i,1);

Result:=StrToInt(s);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
XValue, LRamValue, LCpuValue, SValue: String;
begin
case GetRamMemory of
0..2:
begin
XValue:= 't4';
SValue:= '512mb';
LRamValue:= '512mb';
LCpuValue:= '4';
end;
3..4:
begin
XValue:= 't4';
SValue:= '768mb';
LRamValue:= '768mb';
LCpuValue:= '4';
end;

// ....
end;

how about this way? i think it's more convenient.

procedure _GetMeRAMInGB;
var
  MyRamInGB: Integer;
begin
  // Note:  ARamUsage.TotalRam --> Total RAM in MB.

  MyRamInGB := Round(ARamUsage.TotalRam / 1024);  // 0, 1, 2, 3, ....

  case MyRamInGB of
    0..2:
    begin
      MsgBox('RAM: 0..2 GB', mbInformation, MB_OK);
    end;

    3..4:
    begin
      MsgBox('RAM: 3..4 GB', mbInformation, MB_OK);
    end;

    // ....

    else
    begin
      MsgBox('Are you sure you really have RAM installed?  ;)', mbError, MB_OK);
    end;
  end;
end;

[Tihiy_Don]

Originally Posted by BLACKFIRE69

how about this way? i think it's more convenient.

procedure _GetMeRAMInGB;
var
  MyRamInGB: Integer;
begin
  // Note:  ARamUsage.TotalRam --> Total RAM in MB.

  MyRamInGB := Round(ARamUsage.TotalRam / 1024);  // 0, 1, 2, 3, ....

  case MyRamInGB of
    0..2:
    begin
      MsgBox('RAM: 0..2 GB', mbInformation, MB_OK);
    end;

    3..4:
    begin
      MsgBox('RAM: 3..4 GB', mbInformation, MB_OK);
    end;

    // ....

    else
    begin
      MsgBox('Are you sure you really have RAM installed?  ;)', mbError, MB_OK);
    end;
  end;
end;

It's more convenient, yes. I did this because I thought that it could only be done through the MbOrTb function and asked about it in the FMX Q&A topic, but I never got an answer, so I did and already released a repack on the torrent tracker, the main thing is that it works.

I was not afraid to make it on FMX and release it, I even worked on supporting 32-bit machines.