FMXInno - Windows Fluent Design Installer UI for Inno

[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. )

.