FMXInno - Windows Fluent Design Installer UI for Inno

[Tihiy_Don]

I'm really looking forward to the functionality of playing videos in the background of the installer window. This means the installer window, similar to the background image of the form to make a background video of the form. So that the elements can be placed on top of the video background.

[Ning]

Hello, I am new to repackaging and inno setup, how should I use your plug-in? I downloaded it and tried to run the script, but the following error always popped up. It is an error in the [code] section of the FMXInnoHandle.iss script. Excuse me. How to solve it? In addition, I am using Windows7, does this have something to do with the system?

https://postimg.cc/5j6K7BSg

[ravikant]

Originally Posted by Ning

Hello, I am new to repackaging and inno setup, how should I use your plug-in? I downloaded it and tried to run the script, but the following error always popped up. It is an error in the [code] section of the FMXInnoHandle.iss script. Excuse me. How to solve it? In addition, I am using Windows7, does this have something to do with the system?

https://postimg.cc/5j6K7BSg

Use a custom script based on fmxinno

[hitman797]

FMXInno SlideShow Example using:

• FMXForm: FForm;
• FMXTAB: FTabControl;
• FMXTIMER: FTimer;
• FMXITEM: array [1..20] of FTabItem;
• FMXRECT: array [1..20] of FRectangle;

[hitman797]

Originally Posted by audiofeel

@hitman797
Let's make the code a little smaller. It does not affect anything in my opinion except for the size of the script file. O = Optimization

var
  SSImg: String;
  i: Integer;
begin
  for i:= 1 to 20 do
  begin
    FMXITEM[i].FCreateEx(FMXTAB.Handle);
    FMXRECT[i].FCreate(FMXITEM[i].Handle);
    FMXRECT[i].Align(Client);
    SSImg:= 'Background' + IntToStr(i) + '.jpg';
    FMXRECT[i].FillPicture(ExtractAndLoad(SSImg), wmTileStretch);
  end;

Is it possible to place various other objects on top of the slide show? Won't they float with the picture?

Other component can be added by adding TabControl2
and Handle TabControl2 in FMXForm.
and add objects to TabControl2.

[hitman797]

FMXInno Viewport 3D Example using:

• FMXForm: FForm;
• FMXTAB: array [1..4] of FTabControl;
• FMXEDIT: FEdit;
• FMXViewport3D: FViewport3D;
• FMXLayer3D: array [1..2] of FLayer3D;
• FMXFloatAnimation: array [1..4] of FFloatAnimation;
• FMXButton: array [1..4] of FButton;

@BLACKFIRE69
HI, BLACKFIRE69
Thank you for the update.
Can you add BringToFront to "FLayer3D".

[hitman797]

    Form1: TForm;
    Viewport3D1: TViewport3D;
    Layer3D1: TLayer3D;
    FloatAnimation1: TFloatAnimation;
    Layer3D2: TLayer3D;
    FloatAnimation2: TFloatAnimation;

      object FloatAnimation1: TFloatAnimation
        Enabled = True
        Duration = 1
        Loop = True
        PropertyName = 'RotationAngle.X'
        StartValue = 0
        StopValue = 180
        OnProcess = FloatAnimation1Process
      end
      object FloatAnimation2: TFloatAnimation
        Enabled = True
        Duration = 1
        Loop = True
        PropertyName = 'RotationAngle.X'
        StartValue = 180
        StopValue = 360
        OnProcess = FloatAnimation2Process
      end

procedure TForm3.FloatAnimation1Process(Sender: TObject);
begin
  Layer3D2.BringToFront;
end;

procedure TForm3.FloatAnimation2Process(Sender: TObject);
begin
  Layer3D1.BringToFront;
end;

[hitman797]

Example-DiskList.iss

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  if wGetDriveMediaType('D') = 1 then
  begin
   FMXLabel.Text('UNKNOWN');
  end;
  if wGetDriveMediaType('D') = 2 then
  begin
   FMXLabel.Text('HDD');
  end;
  if wGetDriveMediaType('D') = 3 then
  begin
   FMXLabel.Text('SSD');
  end;
  if wGetDriveMediaType('D') = 4 then
  begin
   FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

[crachlow]

You didn't look at the constants.
const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;
[IMG]
https://i.ibb.co/HC1cpzn/2023-08-24-202555.png
[/IMG]

[hitman797]

Originally Posted by crachlow

You didn't look at the constants.
const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;
[IMG]
https://i.ibb.co/HC1cpzn/2023-08-24-202555.png
[/IMG]

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  if wGetDriveMediaType('D') = 0 then
  begin
   FMXLabel.Text('UNKNOWN');
  end;
  if wGetDriveMediaType('D') = 3 then
  begin
   FMXLabel.Text('HDD');
  end;
  if wGetDriveMediaType('D') = 4 then
  begin
   FMXLabel.Text('SSD');
  end;
  if wGetDriveMediaType('D') = 5 then
  begin
   FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  case wGetDriveMediaType('D') of
  0: FMXLabel.Text('UNKNOWN');
  3: FMXLabel.Text('HDD');
  4: FMXLabel.Text('SSD');
  5: FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

[crachlow]

Originally Posted by audiofeel

and if like this? even better...

procedure DiskListOnChange(Sender: TObject);
var
  S: String;
begin
  S := DirEdt.GetText;
  StringChange(S, ExtractFileDrive(S), DiskList.GetSelectedDisk);
  DirEdt.Text(S);
   case wGetDriveMediaType(S) of
   0: FMXLabel.Text('Unknown');
   3: FMXLabel.Text('HDD');
   4: FMXLabel.Text('SSD');
   5: FMXLabel.Text('SCM');
   end;
end;

Well, what did you do?

[crachlow]

Originally Posted by audiofeel

Something went wrong. does not correctly determine the type of disk

And in general, you are not going to manually register the disks that may be in the system?

[crachlow]

It's bad that usb does not recognize.

[BLACKFIRE69]

Update available!

Originally Posted by audiofeel

@BLACKFIRE69
I understand that the scale function is in the process of being finalized and tested ... but could you at least temporarily fix this bug. When the user changes the desktop scale from the recommended system (i.e. 100%) then "FFolderTreeView" floats away and is not visible. This appeared on the latest dll.
--
But the good old "FDirBrowse" feels much better. And it scales correctly. Somehow it even became a shame for "FFluentDirBrowse".

the FluentApi v2.0 update was responsible for this problem, however, it has been successfully addressed and fixed.

Originally Posted by hitman797

FMXInno Viewport 3D Example using:
@BLACKFIRE69
HI, BLACKFIRE69
Thank you for the update.
Can you add BringToFront to "FLayer3D".

this update brings more properties to classes, and that includes this one too.

NOTE:
This update involves modifications to certain functions/procedures, which might require adjustments to current scripts.

Originally Posted by crachlow

const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;



It's bad that usb does not recognize.

Ok, let's update the wGetDriveMediaType function.

function wGetDriveMediaType(const DriveLetter: WideString): Integer;

function wGetDriveMediaTypeEx(const DriveLetter: WideString; 
  out HealthStatus, Usage: Integer): Integer;

{ Drive Media Type }
const
  HDD_MEDIA_TYPE_UNKNOWN        = $0000;
  HDD_MEDIA_TYPE_USB            = $0001;
  HDD_MEDIA_TYPE_SD             = $0002;
  HDD_MEDIA_TYPE_HDD            = $0003;
  HDD_MEDIA_TYPE_SSD            = $0004;
  HDD_MEDIA_TYPE_SCM            = $0005;
  HDD_MEDIA_TYPE_NVMe           = $0006;

{ Drive Health }
const
  HDD_HEALTH_STATUS_HEALTHY     = $0000;
  HDD_HEALTH_STATUS_WARNING     = $0001;
  HDD_HEALTH_STATUS_UNHEALTHY   = $0002;
  HDD_HEALTH_STATUS_UNKNOWN     = $0005;

{ Drive Usage }
const
  HDD_USAGE_UNKWOWN             = $0000;
  HDD_USAGE_AUTO_SELECT         = $0001; // used for data storage.
  HDD_USAGE_MANUAL_SELECT       = $0002; // used if manually selected by an administrator at the time of virtual disk creation.
  HDD_USAGE_RETIRED             = $0004; // retired from use
  HDD_USAGE_CACHE               = $0005; // used as a cache for other devices.

the first post has been updated.


.

[macut18]

#Script1.iss
when i already installed the first game The next game will be on the same drive as the first game installed.