FMXInno - Windows Fluent Design Installer UI for Inno

[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