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

FMXInno - Updates : [2023-September-05]

This is a quality update fix for FMXInno on August 31.

Code:

* Fixed for higher DPI values.



* Updated IsOSMatched for Windows 11 23H2 (Sun Valley 3) update.

  - if IsOsMatched(B_WIN11_23H2) then ...



* Updated FluentAPI v2.0.

* Updated ISArcEx.

* Other quality improvements and bug fixes.

NOTE:
* Effective from this update onward, InnoSetup v5.6.1 or a newer version is required.

-------------------------------------------------------------------------------------------------------------------------------------------

Quote:

FMXInno - Updates : [2023-August-31]

Code:

* Added TImageList.

* Added TSpeedButton.

* Added TCornorButton.

* Added TMultiView.

* Added TShadowTextClassic.

* Added new functions.

* Added new properties.

* Included the fix for the 'white-square' issue during loading.

   - Don't forget to call the 'FMXForm.Show' after the 'FMXDesigning' procedure.



* Fixed DrawFrame.

* Some improvements and bug fixes.

------------------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by Cesar82 (Post 500879)

@BLACKFIRE69, I don't follow your project very much, but I have a question.
Is it possible to define shadows in the labels and define a position for them with respect to the text like in CIU?
If you still don't have support for this, it would be interesting to have X and Y options to move the shadow with a default value of 1px position in relation to left and Top, or parameters for X and Y position for the shadow, with the default position being the shadow exactly in the position of the text.

Code:

procedure ShadowSetting(FColor: Integer; FOpacity, FSoftness: Single; FPosX, FPosY: Integer);

now we've the 'TShadowTextClassic' class, which allows users to change the position(X, Y) of the shadow.

Code:

procedure Shadow(FColor: TAlphaColor; OffsetX, OffsetY: Single);

------------------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by audiofeel (Post 502133)

@BLACKFIRE69
Thanks for the update. Please answer, Can you make it so that you can take the icons from the system and not take them with you. By simply specifying the file index and icon, as is possible for any file on the system. And for displaying disks, and for displaying buttons "close the window", "minimize the window" and for many others. If not, then I'm just passing by.

i've added three new functions to help accomplish this.

Code:

function wGetSysDefaultIcons(const Src: WideString; SHLIcoSize: Cardinal; const Buffer: PAnsiChar; var Count: Cardinal): Integer;

function wGetSysDefaultIcons2(const Src, OutImgFile: WideString; SHLIcoSize: Cardinal): Boolean;

function wGetSysDefaultIconsSize(const Src: WideString; SHLIcoSize: Cardinal): Integer;

these functions allow you to extract icons in different sizes as listed below.

Code:

const

  SHL_ICO_SZ_LARGE              = $0000;  // 32x32 pixels.

  SHL_ICO_SZ_SMALL              = $0001;  // 16x16 pixels.

  SHL_ICO_SZ_EXTRALARGE         = $0002;  // 48x48 pixels.

  SHL_ICO_SZ_SYSSMALL           = $0003;  // SM_CXSMICON x SM_CYSMICON pixels.

  SHL_ICO_SZ_JUMBO              = $0004;  // 256x256 pixels. (Windows Vista and later.)

here 'Src' could be a file, directory or desktop shortcut (.lnk).

you'll find an example for this in the attachment

at the moment, if i extract icons from a windows ResDll using an index, then those icon files will only be '32x32' in maximum size. so let's use above functions.

Example:

Code:

{ GetSysDefaultIcons }

  if wGetLogicalDriveList(ADrvLst, CDrvIdx) then

  begin

    ASrc[1] := ADrvLst[CDrvIdx];

    ASrc[2] := ADrvLst[Length(ADrvLst) -1];

  end else

  begin

    ASrc[1] := 'C:\';

    if wIsDriveValid('D:\') then ASrc[2] := 'D:\'

    else if wIsDriveValid('E:\') then ASrc[2] := 'E:\'

    else if wIsDriveValid('F:\') then ASrc[2] := 'F:\'

    else if wIsDriveValid('G:\') then ASrc[2] := 'G:\'

  end;



  ASrc[3] := 'C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe';

  ASrc[4] := 'C:\Users\' + AddBackslash(GetUserNameString) + 'Desktop';

  ASrc[5] := 'C:\Users\' + AddBackslash(GetUserNameString) + 'Downloads';

  ASrc[6] := 'C:\Users\' + AddBackslash(GetUserNameString) + 'Documents';



  P := 0; Q := 0;

Code:

for i := 1 to C_RANGE do

  begin

    if i = (C_RANGE div 2) + 1  {i =4} then

    begin

      P := 0; Q := 160;

    end;



    AImage[i].FCreate(FMXForm.Handle);

    AImage[i].SetBounds(NSX(P + 80), NSY(Q + 80), NSX(100), NSY(100));



  #ifdef AMethod1   /* Extract SysDefaultIcons into a Buffer, then load them into AImage[i]   */

    ImgSize[i] := wGetSysDefaultIconsSize(ASrc[i], SHL_ICO_SZ_JUMBO);

    if ImgSize[i] <> -1 then

    begin

      SetLength(Buffer[i], ImgSize[i]);

      if wGetSysDefaultIcons(ASrc[i], SHL_ICO_SZ_JUMBO, Buffer[i], Count[i]) <> -1 then

        AImage[i].LoadPictureFromBuffer(Buffer[i], Count[i], wmTileStretch);

    end;

  #else             /* Extract SysDefaultIcons into the TmpDir, then load them into AImage[i] */

    ImgFile[i] := ExpandConstant('{tmp}\') + IntToStr(i) + '.png';

    if wGetSysDefaultIcons2(ASrc[i], ImgFile[i], SHL_ICO_SZ_JUMBO) then

    begin

      AImage[i].LoadPicture(ImgFile[i], wmTileStretch);

    end;

  #endif



    P := P + 150;

  end;

  { GetSysDefaultIcons }

'LoadImgFromBuffer' is only supported by the 'FImage' control. Other controls will get this support in future updates.

------------------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by audiofeel (Post 502143)

MultiView. Needed sometimes. beautiful and modern thing, it's a pity that it is not in FMXInno...:(

the 'TMultiView' class has been added. an example for this could be found in the attachment.

The first post has been updated.

.

Quote:

Originally Posted by audiofeel (Post 502403)

@blackfire69 Will you be able to add a line equalizer (which really reacts to music playback, and not a dummy?) How about in the Foobar2000 player.
Using vis_classic.dll or something else?

yes, it can be done with the 'XBass' plugin. i'll give it a try if i get some free time.

Directory Info Update on Editing Location

When user lands on Directory Page, currently there was no option to change the Game Name.

Consider for example, The game name is 'The Last of Us: Remake Part 1' and user wants to change it to 'The Last of Us' and install there, it was restricted on FEdit.

Attaching code snippet where the user will now have ability to do that:

Code:

  Page2Edit.FCreate(Page2.Handle);

  Page2Edit.SetBounds(NSSX(100), NSSY(190), NSSX(520), NSSY(35));

  Page2Edit.FontSetting('{#FontName}', VCLFontSizeToFMX2(13), ALGainsBoro);

  Page2Edit.CanFocus(True);

  Page2Edit.Enabled(True);

  Page2Edit.Text(MinimizePathName(WizardForm.DirEdit.Text, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));

  Page2Edit.OnTyping(@BrowseEditOnChange);

Code:

procedure BrowseEditOnChange(Sender: TObject);

var

  PrevDrive, CurrentDrive: String;

begin

  PrevDrive := ExtractFileDrive(WizardForm.DirEdit.Text);

  CurrentDrive := ExtractFileDrive(Page2Edit.GetText);



  // Set the installation path to the edited text value

  WizardForm.DirEdit.Text := Page2Edit.GetText;



  if PrevDrive <> CurrentDrive then

    DirUpdateProc(nil);

end;

Let me know if any of you face issues.

@Blackfire69

1. Please acknowledge this issue when trying to use Edit on Directory section:
https://fileforums.com/showpost.php?...&postcount=471

2. Installation speed is still not smooth. When transitioning from, say suppose Data-01 to Data-02, it still drops after a certain point of time. For eg: At Data-01 if it was 64mb/s, when extracting Data-02 it refreshes (resets) and becomes 12mb/s after some time.
Not sure if it helps, but save the previous/average installation speed and when the disk transition happens, do (prev installation speed+ current callback speed)/2 (like take average)

Quote:

Originally Posted by audiofeel (Post 502403)

@blackfire69 Will you be able to add a line equalizer (which really reacts to music playback, and not a dummy?) How about in the Foobar2000 player.
Using vis_classic.dll or something else?

updated the 'XBass' plugin, and it now includes a new function named 'xbassAddSpectrum'. you can utilize this function to meet your expectations.
additionally, please use the 'XBass' external plugin (.dll) since using the internal 'XBass' can lead to conflicts with 'FireMonkey'.

Quote:

Originally Posted by audiofeel (Post 502407)

@blackfire69
1.-About the window collapse animation...(MinimizeWindowCustomAnimated). Some users claim that on weak and not very powerful PCs, this option is performed with a delay and jerks. There may even be a collapse of the form. I couldn't repeat it. And to be honest, I don't care about this option (everyone can turn it on or off by themselves). But still review my script, maybe I did something wrong?

2.-It was also noticed that if the type of form is selected (FCreateImageForm), then the form does not return to its normal state after folding, but turns into a small rectangle (I attach a screenshot). Maybe it's my jamb (look through my script and maybe you'll find an error).

'MinimizeWindowCustomAnimated' now uses a different effect, meaning the old one has been replaced.
additionally, remember the following:
1. since this is just an effect, you need to call 'pMinimizeWindow' to do the actual minimization.
2. it does not support 'FCreateImageForm'. some of the features in the 'FMXInno' plugin shouldn't be there officially, so i had to use some tricks to integrate them. this may cause compatibility issues.

Code:

type

  TMinimizeAnimPos    = (mapTop, mapBottom, mapLeft, mapRight);



function MinimizeWindowCustomAnimated(MinimizeAnimPos: TMinimizeAnimPos): Boolean;

@BlackFire69
FProgressBar will always require a custom theme file to set up color and look. I was trying this with FThinProgressBar and the only thing I need is Orientation. Is it possible to add it to FThinProgressBar?
The reason to choose it over ProgressBar is to be able to custom code based on Color and be independent of styling. Like make it even Color Gradient.

Quote:

Originally Posted by BLACKFIRE69 (Post 502415)

Quote:

Originally Posted by Fak Eid (Post 502419)

replaced 'FProgressBar' with 'FThinProgressBar'

.

@BlackFire69 Thank you FThinprogressBar update. I have one little question though.
Is there a way where we can show pop-up box over a FVideoPlayer. If not, is it possible for you to make it (as I have some amazing idea). If yes, can you show me a test code with it.

Attaching a photo as an example for what I want it look like.
A Video playing in the background instead of photo, and a pop-up display to show some information on top of it.

There the video is displayed on the panel, and only then there are inscriptions.

I ask you to observe backward compatibility or write what types of variables you changed in the libraries. Since I am now trying to update the script for a new library and get a lot of errors.

In some functions, you have changed the type from integer to single. I ask you to indicate this, since it is problematic to observe compatibility when updating the library.

Quote:

Originally Posted by Tihiy_Don (Post 502433)

adding backward compatibility can be a drawback in many cases. so, we should embrace the latest.

Quote:

Originally Posted by BLACKFIRE69 (Post 502123)

NOTE:
This update involves modifications to certain functions/procedures, which might require adjustments to current scripts.

https://i.ibb.co/2WhFn28/00.png

https://i.ibb.co/VTNMGC0/01.png

@audiofeel
I'm playing a video using FVideoPlayer in the background of a FCustomPage. I want to display a FPopupBox over this FCustomPage. I want to know if it can be made possible.

Quote:

Originally Posted by audiofeel (Post 502428)

Perhaps you need to play video through a third-party dll. This script at least has text over the video.

FMXInno -Updates

FMXInno Update - [2023-Sep-12]

Code:

* Added new functions.

* Disabled runtime integrity checks.

* Fixed DirBrowse Edit.

* Updated FCreate* functions.

* Updated 'MinimizeWindowCustomAnimated' for ImageForms.

* Updated 'XBass' (internal/external).

* Updated 'ISArcEx' (internal/external).

* Removed lzma2 algorithm and used the lowest compression level.

  - FinalSize(old): 2.86 MB

  - FinalSize(new): 3.41 MB

Code:

{ PowerPlan ID }

const

  USER_PP_POWER_SAVER          = $0002;

  USER_PP_BALANCED             = $0004;

  USER_PP_HIGH_PERFORMANCE     = $0006;

  USER_PP_ULTIMATE_PERFORMANCE = $0008;

  USER_PP_UNKNOWN              = $0001;

 

function wPowerPlanGetActivePlan: Byte;

function wPowerPlanExist(const PowerPlanID: Byte): Boolean;

function wPowerPlanSetOrCreate(const PowerPlanID: Byte): Boolean;



var

   CurActivePowerPlanID: Byte;

Code:

function InitializeSetup(): Boolean;

begin

  CurActivePowerPlanID := wPowerPlanGetActivePlan;



  if (CurActivePowerPlanID = USER_PP_POWER_SAVER) or // Power saver

     (CurActivePowerPlanID = USER_PP_BALANCED) or // Balanced

     (CurActivePowerPlanID = USER_PP_UNKNOWN) then // Unknown (optional)

  begin

    if (not wPowerPlanSetOrCreate(USER_PP_HIGH_PERFORMANCE)) then // High performance

      MsgBox('High performance powerplan error.', mbError, MB_OK);

  end;



  FMXInnoInit;

  Result := True;

end;



procedure DeinitializeSetup();

begin

  wPowerPlanSetOrCreate(CurActivePowerPlanID);



  FMXInnoShutDown;

end;

-----------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by audiofeel (Post 502407)

@blackfire69
MinimizeWindowCustomAnimated).

It was also noticed that if the type of form is selected (FCreateImageForm), then the form does not return to its normal state after folding, but turns into a small rectangle (I attach a screenshot). Maybe it's my jamb (look through my script and maybe you'll find an error).

'MinimizeWindowCustomAnimated' has been fixed for 'ImageForms'.

-----------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by Fak Eid (Post 502412)

@Blackfire69

1. Please acknowledge this issue when trying to use Edit on Directory section:
https://fileforums.com/showpost.php?...&postcount=471

fixed.

-----------------------------------------------------------------------------------------------------------------------

Quote:

Originally Posted by Fak Eid (Post 502412)

2. Installation speed is still not smooth. When transitioning from, say suppose Data-01 to Data-02, it still drops after a certain point of time. For eg: At Data-01 if it was 64mb/s, when extracting Data-02 it refreshes (resets) and becomes 12mb/s after some time.
Not sure if it helps, but save the previous/average installation speed and when the disk transition happens, do (prev installation speed+ current callback speed)/2 (like take average)

1. 'ISArcEx' only calculates the current extraction speed for the current archive.
2. 'ISArcExReduceCalcAccuracy' has been updated.
- procedure ISArcExReduceCalcAccuracy(Factor: Byte);
- Factor: 1-5 (default = 1).

.

win10 21h1 FMXForm:= InitFormHandle unresponsive

Quote:

Originally Posted by XH75819116 (Post 502459)

win10 21h1 FMXForm:= InitFormHandle unresponsive

i don't have Windows 10 21H1 at the moment, but it's working fine on Windows 10 22H2 (even on a virtual machine).

screenshot:

.