FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - FMXInno - Windows Fluent Design Installer UI for Inno (https://fileforums.com/showthread.php?t=104852)

FMXInno Updates

Code:

* Customizable lock screen.

  -- AutoMode

  -- Animations

  -- Blur Effect

  -- Custom Font Settings

  -- Custom positions

  -- Lockscreen Image

  -- Lockscreen Text

FMXInno Updates

Code:

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.

Code:

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

FMXInno v1.0.0.2 - Final Release

Quote:

Originally Posted by BLACKFIRE69 (Post 497310)

FMXInno v1.0.0.2 - Fix 02

Code:

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.

Quote:

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);

https://i.ibb.co/8j2Y875/FMXInno-img04-1.png

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

Code:

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

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

.

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

thanks
ScOOt3r

Quote:

Originally Posted by ScOOt3r (Post 497389)

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

.

Thanks so much BlackFire. this works perfect now..

cheers

ScOOt3r

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

thanks
ScOOt3r

Quote:

Originally Posted by ScOOt3r (Post 497461)

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

thanks
ScOOt3r

there's no way so far. but wait for the next update. ;)

.

FMXInno v1.0.0.2 Final Release [06-07-22]

Code:

-- Added Custom Fluent Window.

-- Added Fluent Design DirBrowse Window.

-- Added Fluent Design StartMenuBrowse Window.

-- Added Fluent Uninstall Progress Form.

-- Added Enable/Disable for Fluent effects.

-- Added Some New Functions.



-- Fixed Translucent Objects Blur issue.

-- Fixed Animate function of each object.

-- Fixed Memory(RAM) Usage(Percentage) issue.

-- Fixed Minor Bugs.



-- Included Old Installer Demo.iss.



-- Updated NewScaler v2.0.

        1. NSX, NSSX, ANSX, ANSSX, NSX2, NSSX2, ANSX2, ANSSX2 - For X values.

        2. NSY, NSSY, ANSY, ANSSY, NSY2, NSSY2, ANSY2, ANSSY2 - For Y values.

        3. NS, NSS, ANS, ANSS, NS2, NSS2, ANS2, ANSS2              - For Both values.

-- Updated Examples.

Check the first post.

.

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

ScOOt3r

FMXInno Updates

Code:

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

Code:

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

.

@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

Quote:

Originally Posted by ScOOt3r (Post 497505)

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

.

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

cheers
ScOOt3r