FMXInno - Windows Fluent Design Installer UI for Inno

[audiofeel]

Originally Posted by Tihiy_Don

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

If it comes to that, then you can do the same with the number of processor cores and with its frequency (where necessary).
Can also implement a comparison of free disk space and, based on the results, place a temporary folder there for unpacking.

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

[Tihiy_Don]

Originally Posted by audiofeel

If it comes to that, then you can do the same with the number of processor cores and with its frequency (where necessary).
Can also implement a comparison of free disk space and, based on the results, place a temporary folder there for unpacking.

I know what can be done with kernels in mind, but it doesn't make sense for my repack.

[BLACKFIRE69]

FMXInno - documentation

* A documentation for FMXInno may arrive someday, but not in the near future. what are your thoughts on this?

.

[Ponasss]

Why does it show so many Trojans?

(че столько троянов показывает?)

[Joe Forster/STA]

Originally Posted by Ponasss

Why does it show so many Trojans?

(This is an English-only forum.) Your virus scanner may be overreacting. I suggest that you upload suspicious files to https://www.virustotal.com, an online multi-engine virus scanner.

[BLACKFIRE69]

* FMXInno - Updates [2024-Feb-24]

1. Integrated all updates up to this point.
2. Removed FMXInno's memory (RAM) truncation.
3. Fixed issues with invalid handles and owners.
4. Resolved some memory leaks.
5. Addressed previously encountered issues.
6. Implemented various improvements.
7. Updated all examples to Inno Setup 6.2.2.
8. Compiled with RadStudio 12 Athens + Patch 01.
9. This build is free from false positive trojans.

The first post has been updated; check it out.



.

[BLACKFIRE69]

FMXInno - Final Release: Hotfix_01


* The FMXInno final build includes three main types of FMXInno libs. (yes, i should have mentioned these facts earlier; i really forgot, sorry.)

1. FMXInno Standard:
   - Contains all FMXInno features.
   - Path1: .\Files\FMXInno.dll
   - Path2: .\FMXInno+FXPacker\Files\FMXInno.dll

2. FMXInno Standard + SKIA:
   - Includes all Standard features and SKIA features.
   - Path: .\SKIA\FMXInno.dll
   - Requires 'sk4d.dll' to be next to 'FMXInno.dll'.

3. FMXInno Standard + Blend2D:
   - Combines Standard features with Blend2D features.
   - Path: .\_Blend2D\Files\FMXInno.dll
   - Requires 'blend2d_win32.dll' to be next to 'FMXInno.dll'.

================================================== =========

* in the latest final release (FMXInno + SKIA + Blend2D - Final Release [2024-Feb-24]), i also forgot the following:

1. For SKIA:
   a. To replace Firemonkey canvas with SKIA canvas.
   b. To enable GPU Acceleration.

   >> Resulting in the lowest FPS rate and the experience of slow animations and lags.

2. For XBass_F:
   a. To adjust to be compatible with new changes.

   >> Resulting in unexpected behavior and crashes when closing the 'setup.exe'.

3. Additionally, i slightly sped up the Dark-Light mode transition.

thanks to @audiofeel for reporting these bugs.



================================================== =========

* to apply Hotfix_01:

1. Just replace the old files with the new ones.

.

[BLACKFIRE69]

FMXInno - News

1. just uploaded the FMXInno project to GitHub, but it's not published yet. it'll be available for everyone someday (, or perhaps never).

.

[hitman797]

HI, @BLACKFIRE69, can you add Radiant Shapes to the FMXInno.

• Radiant Parallelogram.
• Radiant Hexagon.

[Fak Eid]

Code for Edit Box

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

Logic for procedure

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;

Logic for Directory Update Procedure:

procedure DirUpdateProc(Sender: TObject);
begin
  DiskUsage.SetDir(WizardForm.DirEdit.Text);
  SelectDirLabel[3].Text('Total Space - ' + MbOrTb(DiskUsage.TotalSpace, 1) + #13 +
                         'Available Space - '+ MbOrTb(DiskUsage.FreeSpace, 1) + #13 +
                         'Repack Size - ' + MbOrTb({#RepackSize}, 1));
  if Round(DiskUsage.FreeSpace) > StrToInt('{#RequiredSpace}') then
  begin
    WizardBtn[4].Enabled(True);  //Install Button enabled if there is space
  end else
  begin
    WizardBtn[4].Enabled(False); //Install Button disabled if no space
    ShowMessage('Not Enough Space', 'Selected Directory does not have required space. Please select a different directory location.');
  end;
end;

[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

[audiofeel]

Originally Posted by 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

1080p is not the main thing here. The main thing here is the recommended scale -100%. Do you use the theme files that are in the example (OrageStyle-Dark.style)? or are you adding your own?