FMXInno - Windows Fluent Design Installer UI for Inno

[XH75819116]

Originally Posted by audiofeel

My guess is that there are too many frames in your gif animation file or its size is large. my example uses a gif animation with a minimum framerate and a size of 1.35 MB. Yes, there is a delay, but it is minimal.

I'll test it. Thanks.

[jojo670]

Thank you very much for this very complete and high-quality package.

[BLACKFIRE69]

Originally Posted by audiofeel

could you provide an example of how you calculate the free space needed for installation. if any additional checkboxes are marked. you have an example, but it is not completed

is this not enough?

function InitDiskUsage: FDiskUsage;

// DISK
 FDiskUsage = interface(IUnknown)
   '{08403E71-113A-4F88-960F-36296CB8AAA1}'
    procedure SetDir(Const ADir: String);
    function DiskLoad: Cardinal;
    function TotalSpace: Double;
    function FreeSpace: Double;
    function UsedSpace: Double;
 end;

[BLACKFIRE69]

Update!

- Added a blank form.
- Added new effects.
- Added translucent objects.
- Integrated a HTTP Client API.
- Updated classes.
- Updated image slideshow.

[BLACKFIRE69]

Originally Posted by audiofeel

I could not apply the font through "function AddFontResource" if it is not difficult I would like to see how you do it.

here is an example.

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

.

[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]

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]

Originally Posted by audiofeel

Greetings to BLACK FIRE 69 ! If you use any form of "Fluent", then when moving it floats behind the pointer, it is late. it is possible that this is only on my PC. I attach the video. https://youtu.be/-UrabBzYYdI

i don't think that FMXInno can solve this internally. but i'll see if there's anything i can do.
maybe this depends on the windows os + graphics performance of the pc. but i don't know exactly.

Greetings to BLACK FIRE 69 ! If the "FToggleCheckBox" is set to "Enable(False)", then everything works fine, it is not pressed and is not active. but if you click on the text that is from him, then it will work. video attached.https://youtu.be/3TvsmJKM4i4

yes, a small oversight. thanks for reporting.

(extra (WPI_CorePack): you can also navigate through pages by clicking page labels.)

[BLACKFIRE69]

FMXInno - Updates

- Added ability to change the opacity and brightness of Fluent forms. 
   (MainForm, DirForm, StartForm, CustomForm)

- Fixed focus issue in FluentDirBrowse / FluentStartBrowse.
- Minor bugs have been fixed.
- Some improvements.


function FCreateFluent(WParent: HWND; DarkTheme, NoBorder: Boolean; Opacity: Single;
         BrightnessPct: Byte): HWND;

,

[BLACKFIRE69]

Originally Posted by audiofeel

BlackFire69
is there anything you can do with scaling "FSwitch" and "FCheckBox"?
https://ibb.co/ryBnyV1
https://ibb.co/5F5SM4J

maybe try using new values for Top and Width for higher DPI.

var
  FCurrentDPI: Cardinal;
begin
  FCurrentDPI := GetCurrentDPIValue;

  if FCurrentDPI < 120 then
    Switch1.Width(NSX(78))
  else
    Switch1.Width(NSX(58));


DPI	  PCT

96	- 100%
120	- 125%
144	- 150%
192	- 200%

procedure FMXDesigning;
var
  FOffset: Integer;
begin
...
  #ifdef Component1
    FOffset := 0;
    Component[1].FCreate(Page3.Handle, True, 'Install {#C1[59]}');
    Component[1].SetBounds(NSX(20), NSY(185), NSX(250), NSY(25));
    Component[1].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
  #ifdef Component2
    FOffset := FOffset + 5;
    Component[2].FCreate(Page3.Handle, True, 'Install {#C2[59]}');
    Component[2].SetBounds(NSX(20), NSY(210 + FOffset), NSX(250), NSY(25));
    Component[2].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));

...

  #ifdef Component8
    FOffset := 0;
    Component[8].FCreate(Page3.Handle, True, 'Install {#C8[59]}');
    Component[8].SetBounds(NSX(340), NSY(185), NSX(250), NSY(25));
    Component[8].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
  #ifdef Component9
    FOffset := FOffset + 5;
    Component[9].FCreate(Page3.Handle, True, 'Install {#C9[59]}');
    Component[9].SetBounds(NSX(340), NSY(210 + FOffset), NSX(250), NSY(25));
    Component[9].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
...
end;

[BLACKFIRE69]

Originally Posted by audiofeel

I wanted to upgrade to version 6.2.1. but as it turned out... why the new "inno" adds on Y=4 and on X=8. why I do not know. it all starts with version 6.0.5. I think that fmx.dll it has nothing to do with it. it's about "inno". I think I've tried everything and I know the difference between "clientWidth and "Width" and "WizardStyle=modern". nothing helped. well, in principle, you can somehow calculate it to be more accurate and stretch the image.

the part that adjusts the dimensions of the image can be done.

i was preparing the last release of version v1.0.0.2. so i'll include the fix with it.
i hope this works. if anything needs to change, be sure to tell me. and thanks for reporting this.

FMXInno v1.0.0.2 - Last Release

- More Stable.
- More Optimized.
- Fixed Memory Leaks.
- Added File Patching.
  -- procedure wCreateFilePatch(Const fOldFile, fNewFile, fDiffFile: WideString; 
	fMatchLength: Cardinal; fPatchCallback: TFDiffCallback);
  -- procedure wApplyFilePatch(Const fOldFile, fNewFile, fDiffFile: WideString);