FMXInno - Windows Fluent Design Installer UI for Inno

[ScOOt3r]

Thank you Blackfire69 this update works great..
thanks for everything

ScOOt3r

[BLACKFIRE69]

FMXInno Updates

-- Added Botva2-like buttons, checkboxes, and progress bars.

// Picture Button 2 AND CheckBoxes
type
  FPictureButton2 = interface(IUnknown)
    '{FA2FD0DA-5D2B-487D-A130-F23C4861AA7F}'
    function FCreate(FHandle: TFmxObject; FBtnPic: String; FLeft, FTop, FWidth, FHeight: Single): TFmxObject;
    function FCreateEightBtn(FHandle: TFmxObject; FBtnPic: String; FLeft, FTop, FWidth, FHeight: Single): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Opacity(FOpacity: Single);
    procedure Enabled(FEnabled: Boolean);
    procedure SetCheckedEightBtn(FChecked: Boolean);
    procedure Text(FTitle: String);
    procedure FontColor(FontColor: Integer);
    procedure FontSize(FSize: Single);
    procedure FontName(FontName: String);
    procedure FontSetting(FontName: String; FontSize: Single; FontColor: Integer);
    procedure FontStyle(Style: TFontStyles);
    procedure Visible(FVisible: Boolean);
    function IsChecked: Boolean;
    function IsEnabled: Boolean;
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    procedure OnClick(Event: TNotifyEvent);
    procedure ButtonSounds(EnterWav, LeaveWav, ClickWav: String);
    function Handle: TFmxObject;
  end;

  // Picture Visible Part
type
  FPictureVisiblePart = interface(IUnknown)
    '{503EBEA8-C3F1-4F67-92E5-58ECF0D9BDD2}'
    function FCreate(FHandle: TFmxObject; FPic: String; FLeft, FTop, wx, wy, ww, wh: Single): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Height(FHeight: Single);
    procedure Width(FWidth: Single);
    procedure Opacity(FOpacity: Single);
    procedure Enabled(FEnabled: Boolean);
    procedure Visible(FVisible: Boolean);
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    procedure OnClick(Event: TNotifyEvent);
    procedure OnMouseDown(Event: TMouseEvent);
    procedure OnMouseEnter(Event: TNotifyEvent);
    procedure OnMouseLeave(Event: TNotifyEvent);
    procedure OnMouseUp(Event: TMouseEvent);
    function Handle: TFmxObject;
  end;

  // Picture ProgressBar
type
  FPictureProgressBar = interface(IUnknown)
    '{7AA24D07-73E8-453F-9468-04CF27166365}'
    function FCreate(FHandle: TFmxObject; FPBPic, FBackPBPic: String; FLeft, FTop, FWidth, FHeight: Single; PbPicSentToBack: Boolean): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Value(const Current, Max: Integer);
    procedure Visible(FVisible: Boolean);
    procedure Enabled(FEnabled: Boolean);
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    function Handle: TFmxObject;
  end;

(graphics are taken from Botva2 and CIU examples. credit goes to their creators.)



.

[ScOOt3r]

@Blackfire69 I think there is an error in both scripts with the latest update.. when it tries to unpack the .bin files on the last screen where it installs, it asks do you want to uninstall it, instead of installing it.. not sure if that's just me but i went back to 1 version before the update and it works just fine..
also when i change the .bf extension to .bin it doesnt recognice .bin file while extracting.. this is script1 file im talking about.. also i have the redist disabled completly and it still shows up with 2 boxes checked.


ScOOt3r

[BLACKFIRE69]

Originally Posted by ScOOt3r

@Blackfire69 I think there is an error in both scripts with the latest update.. when it tries to unpack the .bin files on the last screen where it installs, it asks do you want to uninstall it, instead of installing it.. not sure if that's just me but i went back to 1 version before the update and it works just fine..
also when i change the .bf extension to .bin it doesnt recognice .bin file while extracting.. this is script1 file im talking about.. also i have the redist disabled completly and it still shows up with 2 boxes checked.

ScOOt3r

yes, you're right. i've copied some codes directly from Script2.iss to Script1.iss.
so then Script1.iss reads the config from Script2.iss and not from Script1.iss.
that's the mistake. all you've to do is,

1. open the Script1.iss and press CRTL + H.
2. then REPLACE the word "Script2.iss" with "Script1.iss".
3. save it.

thanks for reporting this. and sorry for the inconvenience.

.

[ScOOt3r]

thank you @Blackfire69 it works now.. i was messing with it all night and im glad it was a quick fix...

cheers
ScOOt3r

[BLACKFIRE69]

FMXInno - Updates


If you want to protect your data especially things like graphics, it's now easy to do so with features built into the FMXInno. What happens here is that the FMXInno accesses those file in memory, which means that no file is created in the hard disk.


Let's see how to do it.

1. First, make changes to your script as per the given example and compile it. (don't run the Setup.exe)
2. After that run the FXPcker.exe and add the files you want to hide. Also browse the Setup.exe compiled in the first step and generate a data file. (let's say Setup.dat)
3. We're almost done. Now just run the Setup.exe. That's all.

* Be sure to create a new data file (Setup.dat) whenever you make changes to the script and recompile it. Because that file (Setup.dat) is unique. Otherwise, accessing the data file (Setup.dat) will be treated as unauthorized access.

The attached example includes more details.

function InitializeSetup(): Boolean;
begin
  // FXStream
  FXOk := FXUnPckrInit(ExpandConstant('{src}\Setup.dat'), '@#123_Test');

  if not FXOk then
  begin
    MsgBox('Failed to initialize the setup. The installation process cannot continue.', mbError, MB_OK);
    Result := False;
  end
  else
  begin
    FMXInnoInit;
    Result := True;
  end;
end;

// ...

procedure FMXDesigning;
begin
  { FMX Form }
  FMXForm.FCreateImageFormFromFXStream(WizardForm.Handle, 'PicForm.png', 1.00); 
  FMXForm.SetCursor(ExtractAndLoad('Dark2.ani'));

  { Music Equ }
  MusicEqu.FCreate(FMXForm.Handle, NSX(620), NSY(100), NSX(110), NSY(42), 1.5, 8, '');
  MusicEqu.SetPictureFromFXStream('EqualizerLight.png');
  MusicEqu.OnClick(@MusicEquOnClick);

  { PicBtn[1] }
  PicBtn[1].FCreateFromFXStream(FMXForm.Handle, 'Button.png', NSX(600), NSY(455), NSX(125), NSY(45));
  PicBtn[1].Text('&Cancel');
  PicBtn[1].OnClick(@CommonOnClick);

  // ...

  { PicPart }
  PicPart.FCreateFromFXStream(FMXForm.Handle, 'mspaint.png', MusicEqu.GetLeft, MusicEqu.GetTop + NSY(100), 100, 100, 50, 50, 100, 100);

  // ...

  { PicPB[1] }
  PicPB[1].FCreateFromFXStream(FMXForm.Handle, 'pb.png', 'pbbkg.png', PctLabel.GetLeft + NSX(20), PctLabel.GetTop + NSY(50), 380, 25, True);
  PicPB[1].Value(69, 100);

  // ...
end;

.

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

-- Added Auto DarkMode.
-- Added auto-scroll form background image depending on mouse position.
   1. function FCreateScrollableImgForm(WParent: HWND; AddImage: String): HWND;
   2. function FCreateScrollableImgFormFromFXStream(WParent: HWND; AddImage: String): HWND;

-- Added blend on moving effect.
-- Prevented the resizing of the fmx form.
-- Removed old color functions (which were buggy) and added new functions instead.

{ VCL COLORS }
function VCLColorToFMXColor(const VColor: TColor): TAlphaColor;
function VCLColorToFMXColor2(const VColor: TColor; const Opacity: Single): TAlphaColor;
{ FMX COLORS }
function FMXColorToVCLColor(const FColor: TAlphaColor): TColor;
function FMXColorSetOpacity(const FColor: TAlphaColor; const Opacity: Single): TAlphaColor;
{ IMAGE COLORS }
function GetImgColorFMX(const Image: UnicodeString): TAlphaColor;
function GetImgPartColorFMX(const Image: UnicodeString; const PixelX, PixelY, PixelW, PixelH: Single): TAlphaColor;
function GetImgColorVCL(const Image: UnicodeString): TColor;
function GetImgPartColorVCL(const Image: UnicodeString; const PixelX, PixelY, PixelW, PixelH: Single): TColor;
{ HTML COLORS }
function HTMLColorStrToVCLColor(const HTMLHexClrStr: string): TColor;
function HTMLColorToVCLColor(const Color: Longint): TColor;
function HTMLColorToVCLColor2(const R, G, B: Byte): TColor;
function HTMLColorStrToFMXColor(const HTMLHexClrStr: string): TAlphaColor;
function HTMLColorToFMXColor(const Color: Longint): TAlphaColor;
function HTMLColorToFMXColor2(const R, G, B: Byte): TAlphaColor;
{ DARKER / LIGHTER }
function ClrDarkerVCL(const VColor: TColor; const Percent: Byte): TColor;
function ClrLighterVCL(const VColor: TColor; const Percent: Byte): TColor;
function ClrDarkerFMX(const FColor: TAlphaColor; const Percent: Byte): TAlphaColor;
function ClrLighterFMX(const FColor: TAlphaColor; const Percent: Byte): TAlphaColor;
{ DESKTOP IMAGE COLOR }
function GetDesktopImgColorVCL: TColor;
function GetDesktopImgColorFMX: TAlphaColor;

[ScOOt3r]

That's another good looking installer

[Snake288]

Hello BLACKFIRE69

Demo - WPI Corepack Can You Extract the Full Version ?
The Health of Your Labor Looks Very Beautiful
Can you Include the DiskSpan_GUI Compression Application in the Full Version
I Hope You Can Prepare It As Soon As Possible

[rash]

Change File Not working

script fixed please help me

[BLACKFIRE69]

Originally Posted by rash

Change File Not working

script fixed please help me

more details plz?

[BLACKFIRE69]

FMXInno - Updates

Added:

  - function EnableWinDarkMode(IsDark: Boolean): Boolean;
  - function IsWinDarkModeEnabled: Boolean;
  - function EnableWinTransparency(Enabled: Boolean): Boolean;
  - function IsWinTransparencyEnabled: Boolean;
  - function EnableWinAccentColor(Enabled: Boolean): Boolean;
  - function IsWinAccentColorEnabled: Boolean;
  - function RestartWinExplorer: Boolean;

  - function GetWinAccentColorVCL: TColor;
  - function GetWinAccentColorFMX: TAlphaColor;

Improved:

  - Customizable exit form.

,

[BLACKFIRE69]

New FMXInnoSk

FMXInno + Skia >> FMXInnoSk


FMXInnoSk is a side projects of FMXInno itself, where the other external API are integrated into FMXInno.
Here is the integration of Skia (is a cross-platform 2D graphics API developed by Google) to FMXInno as a starting step.


More about Skia:
skia.org
skia4delphi


FMXInnoSk requires the sk4d.dll lib.

(sorry for the low resolution GIFs )


,

[TEAmo]

Originally Posted by audiofeel

if the theme in the system is dark, then the installer will be white and vice versa.
all fonts are taken from the system 'Segoe UI Variable Text' and 'Segoe Fluent Icon'. they are only in W11

Can I upload your script? Thank you

[hitman797]

@audiofeel

Greetings to Black fire 69. How did you personally want to start the language setting after launching the installer itself? I really wanted to see your example.

To change the language use Custom Messages & Languages Section

[Languages]
Name: "English"; MessagesFile: "Language\English.isl"
Name: "French"; MessagesFile: "Language\French.isl"
Name: "Arabic"; MessagesFile: "Language\Arabic.isl"

[CustomMessages]
// English
English.Font=Segoe UI Bold Italic
English.AppName=Assassin's Creed Unity
English.Autorun=Welcome
English.Welcome=Welcome to Installation
English.System=System Requirements
English.Select=Selecting Installation Path
English.Prepar=Preparing for Installation
English.Install=Installing the Game
English.Finish=Finishing the Installation
English.Faster=Faster
English.Smaller=Smaller
English.Better=Better
English.AM=AM
English.PM=PM
English.Sunday=Sunday
English.Monday=Monday
English.Tuesday=Tuesday
English.Wednesday=Wednesday
English.Thursday=Thursday
English.Friday=Friday
English.Saturday=Saturday
English.January=January
English.February=February
English.March=March
English.April=April
English.May=May
English.June=June
English.July=July
English.August=August
English.September=September
English.October=October
English.November=November
English.December=December

If you want an example of that, here's an example from Gupta Prince
https://www.fileforums.com/showthread.php?t=99073