Windows 11 Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

please make examples of "SysFunc.iss". especially interested in "function BrowseDirModern".

SysFuncDLL Fix + BrowseDirModern Example

Originally Posted by audiofeel

why does the "FDirBrowse" already have a path "C:\Program Files (x86)" and can't apply {code:nosd} ?

oops. check this out.

FMXInnoDLL v1.0.0.1 + Fix (Lib Only)

[Setup]
...
DefaultDirName ={code:DefMyPath}\Inno Example with FMXInno Library
...

{Code]
...
function DefMyPath(Param: String): String;
begin
  Result:= ExpandConstant('{win}');
end;
...

procedure FMXDesigning; 
begin
...
{ Dir Browse Dlg }                                 
  DirBrowseDlg.FCreate(0, 'Select Install Directory', WizardForm.DirEdit.Text);
...
end;

[BLACKFIRE69]

Update!

* Added color conversion between FMX and VCL (Testing).
* Added image slideshow api.
  -- Supports multi-transitions.
* Added some other functions.
  -- GetDesktopImgColorVCL
  -- GetDesktopImgColorFMX
* Added HTTP Client Api to work with single-thread.
* Fixed minor issues known so far.
* Updated Classes.

.

[fabrieunko]

hello, I have a question, is your setup usable with dsg?

[audiofeel]

Originally Posted by BLACKFIRE69

Update!

* Added color conversion between FMX and VCL (Testing).
* Added image slideshow api.
  -- Supports multi-transitions.
* Added some other functions.
  -- GetDesktopImgColorVCL
  -- GetDesktopImgColorFMX
* Added HTTP Client Api to work with single-thread.
* Fixed minor issues known so far.
* Updated Classes.

.

Greetings. If a theme with multiple images (slide show) is selected in the system, an error occurs. I attach a screenshot. possible only on the Win 11 Dev 25410 build
https://ibb.co/sKr140s

[BLACKFIRE69]

Originally Posted by fabrieunko

hello, I have a question, is your setup usable with dsg?

yes, after a few modifications, it can be done. but by default it doesn't work with dsg.

[BLACKFIRE69]

Originally Posted by audiofeel

Greetings. If a theme with multiple images (slide show) is selected in the system, an error occurs. I attach a screenshot. possible only on the Win 11 Dev 25410 build
https://ibb.co/sKr140s

fixed!

.

[BLACKFIRE69]

FMXInno v1.0.0.2 - Fix 02

following functions have been fixed.

1. GetDesktopImgColorVCL
2. GetDesktopImgColorFMX

3. FMXColorToVCL
4. VCLColorToFMX

5. SetVCLColorLighter
6. SetVCLColorDarker

7. GetImgColorVCL
8. GetImgColorFMX

.

[BLACKFIRE69]

FMXInno Updates

* Customizable lock screen.
  -- AutoMode
  -- Animations
  -- Blur Effect
  -- Custom Font Settings
  -- Custom positions
  -- Lockscreen Image
  -- Lockscreen Text

.

[BLACKFIRE69]

FMXInno Updates

Just added Button sounds and LockScreen lock/unlock sounds. ;)

* Button Sounds:
   1. Clear Buttons.
   2. ClearGradient Buttons.
   3. Color Buttons.
   4. ColorGradient Buttons.
   5. Picture Buttons.
   6. WinRound Buttons.
   7. FMX Default Buttons.

* Custom Dlgs:	
   1. Exit Page Buttons.
   2. DirBrowse Dlg Buttons.
   3. StartMenu Dlg Buttons.
	
* LockScreen Sounds: 
   1. Lock.
   2. Unlock.

Examples:

{ Dir Browse Btn }
  BrowseBtn.FCreate(FMXForm.Handle, Ns(WizardForm.InnerNotebook.Left + WizardForm.DirBrowseButton.Left),
    Ns(WizardForm.InnerNotebook.Top + WizardForm.DirBrowseButton.Top), '&Browse...');
  BrowseBtn.BackColor($FF3DFA85, $FF0885EB);
  BrowseBtn.GradientPosition(False);
  BrowseBtn.OnClick(@BrowseBtnOnClick);
#ifdef ButtonSounds
  BrowseBtn.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Dir Browse Dlg }
  DirBrowseDlg.FCreate(0, 'Select Install Directory', WizardForm.DirEdit.Text);
  DirBrowseDlg.ChangeBckgndClr($00AAFA05);
  DirBrowseDlg.Transparency(26);
#ifdef ButtonSounds
  DirBrowseDlg.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Exit Page }
  ExitMsg.FCreate(FMXForm.Handle, NS(170), ALCrimson, CustomMessage('YesBtn'), 
	CustomMessage('NoBtn'), CustomMessage('ExitMsg1'), CustomMessage('ExitMsg2'), False, False, False);
  ExitMsg.Opacity(0.9);
  ExitMsg.YesBtnClick(@ExitYesBtnOnClick);
  ExitMsg.NoBtnClick(@ExitNoBtnOnClick);
#ifdef ButtonSounds
  ExitMsg.ButtonSounds(ExtractAndLoad('Enter.wav'), '', ExtractAndLoad('Click.wav'));
#endif


{ Lock Screen }
  LockScreen.FCreate(FMXForm.Handle, txCenter, True);
  LockScreen.AutoActivate(FMXForm.HandleHWND, WizardForm.Handle);
#ifdef LockScreenSounds
  LockScreen.LockSounds(ExtractAndLoad('Lock.wav'), ExtractAndLoad('UnLock.wav'));
#endif

[BLACKFIRE69]

Originally Posted by BLACKFIRE69

FMXInno v1.0.0.2 - Fix 02

following functions have been fixed.

1. GetDesktopImgColorVCL
2. GetDesktopImgColorFMX

3. FMXColorToVCL
4. VCLColorToFMX

5. SetVCLColorLighter
6. SetVCLColorDarker

7. GetImgColorVCL
8. GetImgColorFMX

two additional functions were added if needed.

function GetImgPartColorFMX(AImage: WideString; PixelX, PixelY, PixelH, PixelW: Integer): Integer;
function GetImgPartColorVCL(AImage: WideString; PixelX, PixelY, PixelH, PixelW: Integer): Integer;


Example:

{ TranslucentRect }
TranslucentRect.FCreate(BackgroundImage.Handle);
TranslucentRect.SetBounds(NS(76), NS(32), NS(485), NS(128));
TranslucentRect.BlurColor(GetImgPartColorFMX(ExtractAndLoad('wallpaper_color.jpg'), 290, 700, 43, 148));
TranslucentRect.OnMouseDown(@FormMouseDown);

{ TranslucentCircle }
TranslucentCircle.FCreate(BackgroundImage.Handle);
TranslucentCircle.SetBounds(NS(32), NS(192), NS(200), NS(200));
TranslucentCircle.BlurColor(GetImgPartColorFMX(ExtractAndLoad('wallpaper_color.jpg'), 773, 277, 26, 57));
TranslucentCircle.OnMouseDown(@FormMouseDown);

{ TranslucentCallout }
TranslucentCallout.FCreate(BackgroundImage.Handle) ;
TranslucentCallout.SetBounds(NS(408), NS(192), NS(200), NS(200));
TranslucentCallout.BlurColor(GetImgPartColorFMX(ExtractAndLoad('wallpaper_color.jpg'), 681, 658, 34, 91));
TranslucentCallout.OnMouseDown(@FormMouseDown);

FMXInno v1.0.0.2 - Final Release [06/26/22] has been uploaded to the first post. you can download it now.

FMXInno External Plugins:

  - CLILib v1.0.0.0
  - CmdOut v1.0.0.2
  - FDownloader_multi v1.0.0.0
  - ImgSlideShow v1.0.0.0 
  - ISArcEx v0.4.0.0
  - MFT v1.1.0.0
  - Sysfunc v1.0.0.0
  - SplitterLib v1.0.0.0
  - XBass_f v4.0.0.0
  - ZipperLib v1.0.0.0

[BLACKFIRE69]

( just an attempt to test the FMXInno library. this concept was taken from the @hitman797's OLD Installer post.
i won't recreate it with the FMXInno. just to give you an idea of the capabilities of FMXInno. )

.

[ScOOt3r]

Blackfire is there any way to add more Compos at least 8, i tried and couldnt get it to work

thanks
ScOOt3r

[BLACKFIRE69]

Originally Posted by ScOOt3r

Blackfire is there any way to add more Compos at least 8, i tried and couldnt get it to work

thanks
ScOOt3r

i increased it to 12 compos.
press "Ctrl + F", then search for the word "NewCompos". you'll find the implementation.

.

[ScOOt3r]

Thanks so much BlackFire. this works perfect now..

cheers

ScOOt3r

[ScOOt3r]

is there a way to change the time from 14:50 to like 2:50 if so how..

thanks
ScOOt3r