FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - FMXInno - Windows Fluent Design Installer UI for Inno (https://fileforums.com/showthread.php?t=104852)

Radiant Shapes:
RadiantShapes.exe

CorePack Installer: Simple

CorePack Installer: Simple - [Demo]

.

Hello, thanks, but the shortcut does not work on the desktop

Quote:

Originally Posted by Behnam2018 (Post 502884)

Hello, thanks, but the shortcut does not work on the desktop

Edit the Setup.ini

Code:

[Execs]

; AppExe<1>=Tile Caption|Exec Directory|Exec File|Shortcut Name/Action Name|IconFilename|IconIndex

; ex:

;  AppExe1=Red Dead Redemption 2||Launcher.exe|Red Dead Redemption 2 v1.0.1436|{app}\Launcher.exe|0

AppExe1=Red Dead Redemption 2||Launcher.exe|Red Dead Redemption 2 v1.0.1436|{app}\RDR2_icon.ico|0

FMXInno - Updates

FMXInno Updates - [2023-Nov-13]

Code:

* Added new functions:

  -- function wGetRecycleBinInfo(ARootPath: WideString; var TotalSizeMB: Extended; var FileCount: Integer): Boolean;

  -- function wCopyToClipboard(const AStr: WideString): Boolean;

  -- function wPasteFromClipboard: WideString;

  

* Updated FForm class.



* Updated FluentApi (Internal + External).

  -- Make sure to update your current scripts as follows:

  

    function EnableFluent(const WinHandle: HWND; DarkTheme, NoBorders, NoTitleBar: Boolean; Opacity: Single; BrightnessPct: Byte): Integer;

    external 'EnableFluent@{tmp}\FluentApi.dll stdcall uninstallonly delayload';

  

    to

  

    function EnableFluent(const WinHandle: HWND; DarkTheme, NoBorders, NoTitleBar: Boolean; Opacity: Single; BrightnessPct: Byte): Integer;

    external 'faC1222296@{tmp}\FluentApi.dll stdcall uninstallonly delayload';



* Updated ISArcEx (Internal + External).

  -- Added a new method:

    > ISArcExIsSuspended.

        

  -- The following methods have been renamed and updated:

    > Suspend/Resume Proc, ChangeLanguage.

        

* Updated Botva2-like classes:

  -- FPictureButton2, FPictureVisiblePart, FPictureProgressBar, and FPictureTrackBar.



* Some improvements and bug fixes.

Code:

* Compiled in RadStudio 12 Athens.

  -- Embarcadero claims that the performance has been improved for FMX.



  -- FMXInno already comes with built-in support for SKIA, but since RadStudio 12 

     and onward, Delphi has native support for SKIA.

     If you need me to update SKIA in FMXInno, I'll do that on request.

         

  Note: This update doesn't use the RadStudio 12 native SKIA (v6.0.0); instead, 

        this update uses the previous version (v5.0.0).

The first post has been updated.

Quote:

Originally Posted by audiofeel (Post 502741)

Thanks for the hotfix. It seems that everything you need is working properly.

Hi dear friend
The installation path selection section in windows 10 pro new Updates. it has a problem and does not work
I tried to change the codes but it doesn't work

@BLACKFIRE69
I'd like to continue my discussion from Krinkels.org about my font issue, I downloaded and ran your test project and the font does display correctly but the setup will not close - it just hangs once close button is pressed.

Is it possible that there's a bug in my Windows?

Quote:

Originally Posted by audiofeel (Post 502902)

the "overview" (Обзор) button

thanks for answer but it's was about metro0 script that you posted

Quote:

Originally Posted by Masquerade (Post 502905)

@Masquerade, can you tell me which of the following tests works for you?
.

Quote:

Originally Posted by Behnam2018 (Post 502884)

Hello, thanks, but the shortcut does not work on the desktop

everything is working fine.

.

Quote:

Originally Posted by ADMIRAL (Post 502908)

thanks for answer but it's was about metro0 script that you posted

@ADMIRAL,

after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script. ;)

Code:

Edit1: 



* Replace the current 'ListBoxOnChange' code with this.



procedure ListBoxOnChange(Sender: TObject);

var

  ADir: String;

begin

  if (FMXListBox[2].GetItemIndex > -1) then

  begin

    ADir := FMXEdit[1].GetText;

    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));

    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    WizardForm.DirEdit.Text:= ADir;



    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);

    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));

    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');

    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);

  end;

end;



procedure ListBx3OnChange(Sender: TObject);

var

  ADir: WideString;

begin

  if FMXListBox[3].GetItemIndex > -1 then

  begin

    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';

    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    WizardForm.DirEdit.Text:= ADir;



    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);

    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));

    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');

    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);

  end;

end;

Code:

Edit2: 



* Comment out the following line in the code.



//FMXEdit[1].OnChange(@ListBoxOnChange);

Code:

Edit3: 



* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].



FMXListBox[3].OnChange(@ListBx3OnChange);

Quote:

Originally Posted by BLACKFIRE69 (Post 502912)

@Masquerade, can you tell me which of the following tests works for you?
.

Test 1: Font works, hangs on closing
Test 1A: Font works, hangs on closing
Test 2: Font works, window closes but hangs in taskbar.
Test 2A: Font works, window closes but hangs in taskbar.

Quote:

Originally Posted by Masquerade (Post 502916)

Test 1: Font works, hangs on closing
Test 1A: Font works, hangs on closing
Test 2: Font works, window closes but hangs in taskbar.
Test 2A: Font works, window closes but hangs in taskbar.

ok mate. maybe try it on a different PC. here, everything works fine, even on virtual machines. also, try disabling the antivirus.

Quote:

Originally Posted by BLACKFIRE69 (Post 502914)

Code:

Edit1: 



* Replace the current 'ListBoxOnChange' code with this.



procedure ListBoxOnChange(Sender: TObject);

var

  ADir: String;

begin

  if (FMXListBox[2].GetItemIndex > -1) then

  begin

    ADir := FMXEdit[1].GetText;

    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));

    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    WizardForm.DirEdit.Text:= ADir;



    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);

    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));

    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');

    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);

  end;

end;



procedure ListBx3OnChange(Sender: TObject);

var

  ADir: WideString;

begin

  if FMXListBox[3].GetItemIndex > -1 then

  begin

    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';

    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

    WizardForm.DirEdit.Text:= ADir;



    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);

    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));

    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');

    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);

  end;

end;

Code:

Edit2: 



* Comment out the following line in the code.



//FMXEdit[1].OnChange(@ListBoxOnChange);

Code:

Edit3: 



* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].



FMXListBox[3].OnChange(@ListBx3OnChange);

Thank you for your quick reply, but even with the edit's codes, I am still facing the same problem. Are there any problems for you with these codes in the script?

Quote:

Originally Posted by audiofeel (Post 502915)

This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.:)
==Here is the latest "clean version" for the changes==

In the first test, my partitions and folders were not displayed at all, and by adding codes, I only encountered errors.