FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Radiant Shapes:
RadiantShapes.exe

[BLACKFIRE69]

CorePack Installer: Simple - [Demo]


.

[Behnam2018]

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

[hitman797]

Originally Posted by Behnam2018

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

Edit the Setup.ini

[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

[audiofeel]

Another example. A simple installer. All colors change.

#define OpacueColor  "$FFFFFFFF"
#define Opacue         "0.5"
#define ColorButton   "$FFFF753A"
#define ColorText      "$FF282828"
#define Shadow        "$FF000000"

[BLACKFIRE69]

FMXInno Updates - [2023-Nov-13]

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

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

[ADMIRAL]

Originally Posted by audiofeel

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

[Masquerade]

@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?

[audiofeel]

Originally Posted by ADMIRAL

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

Oops. something went wrong. I think I answered the wrong message. I understand what you meant by the METRO script? That script is not ready and is unlikely to be ready as intended. Most likely, make the usual folder selection there as in the standard and everything is ready. That's all I can do. My kung fu is useless here.

[ADMIRAL]

Originally Posted by audiofeel

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

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

[audiofeel]

Originally Posted by ADMIRAL

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

Well, I'm not the only one sometimes doing it all. My friends from this forum and from ours help me. I didn't do this part of the code. As far as I remember, we requested some kind of function from the author of the dll. nothing comes out without it. But I could be wrong.

[BLACKFIRE69]

Originally Posted by Masquerade

@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?

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

[BLACKFIRE69]

Originally Posted by Behnam2018

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

everything is working fine.

.

[BLACKFIRE69]

Originally Posted by ADMIRAL

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.

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;

Edit2: 

* Comment out the following line in the code.

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

Edit3: 

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

FMXListBox[3].OnChange(@ListBx3OnChange);

.

[audiofeel]

Originally Posted by BLACKFIRE69

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

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;

Edit2: 
* Comment out the following line in the code.
//FMXEdit[1].OnChange(@ListBoxOnChange);

Edit3: 
* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].
FMXListBox[3].OnChange(@ListBx3OnChange);

.

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.