FMXInno - Windows Fluent Design Installer UI for Inno

[crachlow]

Dear Blackfire69. Could you clarify about FUserInfo. As you wrote in the examples, this is not quite suitable, at least for Windows 11. Unknown is displayed in it. If this function defines only the administrator from under the built-in account, and the user from the user group, then this is not entirely correct, probably. I tried to determine by type sid like this

var
   UserSidType: Integer;
    s1 : String;
...............................
      s1 := Copy(UserInfo.SID,42,3)+Copy(UserInfo.SID,45,1);
      UserSidType := StrToInt(s1);
       if UserSidType > 1000 then
       UserSidType := 1001 ;
     // SUserType
  case UserSidType of
    500: UserTypeStr := 'Administrator';
    1001: UserTypeStr := 'Standard User';
    else
       UserTypeStr := 'Unknown';
  end;

But @audiofeel says it doesn't work, or it works intermittently.
And if the user, administrator rights? Whereas? Could you clarify this issue.

[crachlow]

Maybe it's because of the localization of the system?

[BLACKFIRE69]

Originally Posted by crachlow

Dear Blackfire69. Could you clarify about FUserInfo. As you wrote in the examples, this is not quite suitable, at least for Windows 11. Unknown is displayed in it. If this function defines only the administrator from under the built-in account, and the user from the user group, then this is not entirely correct, probably. I tried to determine by type sid like this

But @audiofeel says it doesn't work, or it works intermittently.
And if the user, administrator rights? Whereas? Could you clarify this issue.

Maybe it's because of the localization of the system?

i just updated it. it may work.

Originally Posted by audiofeel

...
I just changed the form to 'FCreateBlankForm'. A white square appeared again at startup, but without a glitch in 'FTabControl'.

this 'white square' issue can be bypassed. however, after doing so, you'll need to call 'FMXForm.Show' following the 'FMXDesigning' procedure; otherwise, it won't display anything. if this solution works for you, i'll implement this fix in the next update.


(the DLL file in the example is in developer mode, so please refrain from using it in the main stream.)



if i specify the changes in the code:

procedure InitializeWizard();
begin
  ...
  FMXDesigning;
  // New - FMXInnoDev.dll: [2023-08-28] 
  Page1.Visible(False);
  Page2.Visible(False);
  Page3.Visible(False);
  Page4.Visible(False);
  Page5.Visible(False);
  FMXForm.Show;
  //
  ...
end;


procedure CurPageChanged(CurPageID: Integer);
begin
  ...
  if CurPageID = wpWelcome then
  begin
    ...
    if FMXFirstRun then
    begin
      FMXFirstRun := false;
      // New
      //Page1.AnimDelay(0.5);
      //
    end else
      Page1.AnimDelay(0);
    ...
  end;
  ...
end;

.

[audiofeel]

Originally Posted by BLACKFIRE69

i just updated it. it may work.
this 'white square' issue can be bypassed. however, after doing so, you'll need to call 'FMXForm.Show' following the 'FMXDesigning' procedure; otherwise, it won't display anything. if this solution works for you, i'll implement this fix in the next update.

(the DLL file in the example is in developer mode, so please refrain from using it in the main stream.)

.

If you knew how much hate I got because of this white square at launch. Of course that will suit me.

[audiofeel]

Originally Posted by crachlow

But @audiofeel says it doesn't work, or it works intermittently.
And if the user, administrator rights? Whereas? Could you clarify this issue.

I meant that the same file shows a different result. My account is Microsoft and in the Administrators group.
User Unknown

[crachlow]

Originally Posted by audiofeel

I meant that the same file shows a different result. My account is Microsoft and in the Administrators group.
User Unknown

I guess that
case IsAdminLoggedOn of
0: UserTypeStr := 'Group Users';
1: UserTypeStr := 'Group Administrators';
and GetUserNameString;
from innosetup works more correctly. In Russian localization UserInfo.UserType, and maybe in others, does not work at all, it is also difficult to determine by sid, because sid will be different in different localizations.

[BLACKFIRE69]

Originally Posted by crachlow

I guess that
case IsAdminLoggedOn of
0: UserTypeStr := 'Group Users';
1: UserTypeStr := 'Group Administrators';
from innosetup works more correctly.

{Setup]
...
PrivilegesRequired=admin     --->    'Admin'    (IsAdminLoggedOn is True)
PrivilegesRequired=lowest    --->    'Standard' (IsAdminLoggedOn is False)

[audiofeel]

Does anyone have the black and white 'Windows11' style in 'FMXInno' that works really and correctly? I found a couple of styles. One is very good (displays the Switch and CheckBox in the correct size, and not small like other options). But unfortunately it has 'Right Border and LeftBorder' (I can't edit it in text style.) . That is, there will be artifacts around the edges.

[hitman797]

Originally Posted by audiofeel

Does anyone have the black and white 'Windows11' style in 'FMXInno' that works really and correctly? I found a couple of styles. One is very good (displays the Switch and CheckBox in the correct size, and not small like other options). But unfortunately it has 'Right Border and LeftBorder' (I can't edit it in text style.) . That is, there will be artifacts around the edges.

Windows 10 for FMX
FMX Styles
Windows 11 for VCL
VCL Styles

[audiofeel]

Originally Posted by hitman797

Windows 10 for FMX
FMX Styles
Windows 11 for VCL
VCL Styles

Well, I saw that. 39 bucks for styles? It's not for us

[hitman797]

Originally Posted by audiofeel

Well, I saw that. 39 bucks for styles? It's not for us

There is no style for Windows 11 for FMX only Windows 10.

[crachlow]

Originally Posted by BLACKFIRE69

{Setup]
...
PrivilegesRequired=admin     --->    'Admin'    (IsAdminLoggedOn is True)
PrivilegesRequired=lowest    --->    'Standard' (IsAdminLoggedOn is False)

I didn't understand much. In the first case, Privileged= require elevated rights (via the User Account Management dialog box) to perform the installation. In the second IsAdminLoggedOn=Returns True if the user who started the installer/uninstaller is a member of the local Administrators group
https://i.ibb.co/qkTghLR/2023-08-30-124000.png
https://i.ibb.co/bbzydjt/2023-08-30-124232.png
https://i.ibb.co/Sv5fvDg/2023-08-30-124405.png
PrivilegesRequired=admin ---> 'Admin' (IsAdminLoggedOn is True)
PrivilegesRequired=lowest ---> 'Standard' (IsAdminLoggedOn is False)
it's not the same

[BLACKFIRE69]

FMXInno - Updates : [2023-August-31]

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

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

Originally Posted by Cesar82

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

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.

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

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

Originally Posted by audiofeel

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

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.

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:

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

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.

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

Originally Posted by audiofeel

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.


.

[BLACKFIRE69]

HotFix: 01

- Fixed for Windows 10 Users.

.

[audiofeel]

If someone wants to get a translucent object, but the transparency is passed to the objects in the object. How to be?
Perhaps the "already transparent color" from this tool will help.
HTML CSS Color picker
Is it possible to somehow see how different effects will look like overlaying on the image?
It's like this - FireMonkey Image Effects
Is it possible to somehow see how different filters will look like overlaying on objects?
It's like this - FMX Filter Effects