Windows 11 Fluent Design Installer UI for Inno

[audiofeel]

@Blackfire69. Great! the translation works. I share my example. I have a question.... why on "FMXForm.FCreateBlankForm" is the image cropped on the right side?
And I noticed something else. = BorderStyle := bsNone
[SPOILER]

procedure EmptyWizardForm(const Buttons: Boolean);
begin
  with WizardForm do
  begin
    OuterNotebook.Hide;
    InnerNotebook.Hide;
    if Buttons then
    begin
      NextButton.SetBounds(0,0,0,0);
      CancelButton.SetBounds(0,0,0,0);
      BackButton.SetBounds(0,0,0,0);
      Bevel.SetBounds(0,0,0,0);
    end;
    #ifdef IS_ENHANCED
    Center;
    #endif
    BorderStyle:=Bsnone;
  end;
end;

[/SPOILER]
it doesn't work there. it only works here
[SPOILER]

procedure InitializeWizard;
begin
  with WizardForm do
	begin
    BorderStyle := bsNone;
    ClientWidth := 800;
    ClientHeight := 450;
 ////////////
end;

is it really necessary or not?
[/SPOILER]
And what do you still think? why is any image on the right side cropped? Thanks.

[BLACKFIRE69]

Originally Posted by audiofeel

Great! the translation works. I share my example. I have a question.... why on "FMXForm.FCreateBlankForm" is the image cropped on the right side?

when you use more than one image as the background image, the dimensions (width,height) of the images should be approximately the same.
but in this case every image is of the same dimension (800x450) so everything works fine.

[audiofeel]

here is a more illustrative example

[BLACKFIRE69]

Originally Posted by audiofeel

here is a more illustrative example

this isn't an issue with FMXInno. it comes from Delphi itself. so i had to comeup with a fix for this.

this will work...

with WizardForm do
  begin
    Height := ScaleY(450);
    Width := ScaleX(800);
  end;

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

- Fixed MinimizeFileName function crashing.
- Fixed minor known bugs/issues so far.
- Some improvements.
- Added transparent GIFs support.

Check the first post.

,

[BLACKFIRE69]

FMXInnoSk v1.0.0.0 - Final Release


What's new:

TSkLabel:
 - Single line with multiple styles, colors and sizes.
 - Additional font weights.
 - Control maximum lines.
 - Make words clickable in  text.
 - Custom fonts without installing.

TSkPaintBox:
 - Draw shapes (Rects, RoundRects, Circles, Arcs).
 - Draw Texts (Textblob, SimpleText).
 - Draw Paths (Normal, Discrete, Composed, Sum, Shaders, Fill,
			Rounding sharp corners).
 - Draw Paragraphs (Multi-Styled Texts).
 - Draw Images.
 - Draw 9-Patch (Draw an image preserving corners from strech).

TSkAnimatedPaintBox:
 - Make any shader using SKSL.
 - Runtime effects.
 - Shaders with mouse position.
 - Load Particles (With mouse iterations).

TSkAnimatedImage:
 - Load animations (Lottie, Telegram stickers and Gifs).

TSkImage:
 - Image Encoding (BMP, GIF, ICO, JPEG, PNG, WBMP, WEBP, PKM,
			 KTX, ASTC, DNG, HEIF, AVIF).
 - Make NonTextureImage, RasterImage, MakeShader and RawShader.

TSkSVG:
 - Load .svg files.

Downloads:
   Shaders	   : Shadertoy
   AnimatedImages  : Lottiefiles
   Stickers	   : Lottiefiles

Preview:
   Preview Shader files   (.sksl)  : Shaders.skia
   Preview Particle files (.json)  : Particles.skia
   Preview AnimatedImages (.json)  : Skottie.skia

Other:
   Create a own shader file (.sksl) : Youtube
   Google Skia                      : skia.org 
   Skia4Delphi                      : skia4delphi.org

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

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

[audiofeel]

Greetings!
for today, the most buggy will be 1-"FLabel" and 2-"FToggleCheckBox". let's start with "FLabel".
1. very sensitive to the order, that is, if you put "AutoSize" at the beginning, then something else will not be the correct result (other components have better with this or they do not react at all to how you write everything in turn, etc.) "OnClick", "OnMouseDown", "does not work eitheronMouseEnter", "onMouseLeave", "onMouseUp". but there is one fat plus. for "FLabel" it is not necessary to copy OnMouseDown(@MainMouseDown) every time. this already works and the form is dragged with the mouse behind the "FLabel", although this is not spelled out.
2. I did this Shortcut[1].FCreate(Page2.Handle, NSX(40), NSY(250), NSX(32), NSY(14), {#Color}, CustomMessage(WizardLang + 'Page2Shortcut1') + '{#C1[59]}'); and got a full w.pu errors. I remove "+ ' {#C1[59]}'" and everything is fine. this only applies to two translation languages, one is fine.
well, not big quibbles. "LockScreen" is triggered on "MsgForm.HandleHWND", although it is written in the script "LockScreen.AutoActivate([FMXForm.HandleHWND, MsgForm.HandleHWND, LangForm.HandleHWND, DirBrowseDlg.HandleHWND, DirBrowseDlg.HandleHWND2, WizardForm.Handle]);"

[BLACKFIRE69]

Originally Posted by audiofeel

Greetings!
for today, the most buggy will be 1-"FLabel" and 2-"FToggleCheckBox". let's start with "FLabel".
1. very sensitive to the order, that is, if you put "AutoSize" at the beginning, then something else will not be the correct result

set "WordWrap = false" in "TextSettings".

  LB1.FCreate(FMXForm.Handle, 'MyShortText');
  LB1.AutoSize(True);
  LB1.top(NSY(100));
  LB1.left(NSX(100));
  LB1.TextSetting(False, txLeading, txCenter);

  LB1.Text('FMXInno: This is a very long text for Testing FLabel AutoSize.');

Originally Posted by audiofeel

"OnClick", "OnMouseDown", "does not work eitheronMouseEnter", "onMouseLeave", "onMouseUp". but there is one fat plus. for "FLabel" it is not necessary to copy OnMouseDown(@MainMouseDown) every time. this already works and the form is dragged with the mouse behind the "FLabel", although this is not spelled out.

set "HitTest = True" (captures all mouse events)

  LB1.FCreate(FMXForm.Handle, 'MyShortText');
  LB1.AutoSize(True);
  LB1.top(NSY(100));
  LB1.left(NSX(100));
  LB1.TextSetting(False, txLeading, txCenter);

  LB1.HitTest(True);
  LB1.OnClick(@LBOnClick);
  LB1.OnMouseEnter(@LBMouseEnter);
  LB1.OnMouseLeave(@LBMouseLeave);
  //LB1.OnMouseDown(@FormMouseDown); (*Set HitTest = False*)

  LB1.Text('FMXInno: This is a very long text for Testing FLabel AutoSize.');

"For most controls, HitTest is True by default. However, this is not true for all the controls. For example, for TLabel and TPathLabel, HitTest is False by default;
these two controls do not capture the mouse-related events unless you set HitTest to True." - Embarcadero

Originally Posted by audiofeel

2. I did this Shortcut[1].FCreate(Page2.Handle, NSX(40), NSY(250), NSX(32), NSY(14), {#Color}, CustomMessage(WizardLang + 'Page2Shortcut1') + '{#C1[59]}'); and got a full w.pu errors. I remove "+ ' {#C1[59]}'" and everything is fine. this only applies to two translation languages, one is fine.

i really want to see your example of this.

Originally Posted by audiofeel

well, not big quibbles. "LockScreen" is triggered on "MsgForm.HandleHWND", although it is written in the script "LockScreen.AutoActivate([FMXForm.HandleHWND, MsgForm.HandleHWND, LangForm.HandleHWND, DirBrowseDlg.HandleHWND, DirBrowseDlg.HandleHWND2, WizardForm.Handle]);"

yes. "MsgForm.HandleHWND" returns the wrong handle, i don't know why.
but there's another way.

procedure ConfirmExitMsg(Sender: TObject);
begin
  LockScreen.AutoActivateEnabled(False);
  MsgForm.Show;
end;

// ...

procedure ExitNoBtnOnClick(Sender: TObject);
begin
  MsgForm.Close;
  LockScreen.AutoActivateEnabled(True);
end;

[audiofeel]

here's an example. initially, I liked Toggle because it looks more like WP, but I couldn't or didn't want to figure out what the reason for the language selection launch failure was. and that's why I made a mandatory
checkboxes. in the script, I commented everything out and did about as I originally wanted

[BLACKFIRE69]

Originally Posted by audiofeel

here's an example. initially, I liked Toggle because it looks more like WP, but I couldn't or didn't want to figure out what the reason for the language selection launch failure was. and that's why I made a mandatory
checkboxes. in the script, I commented everything out and did about as I originally wanted

sorry for the late reply. (i had to participate a webinar)
found out what was going on.

FText must be of type WideString.

FText: String;  ==>  FText: WideString;

Toggle CheckBox updated. now the user has more options.

 - Rounded corners (optional)  (FRounded: Boolean).
 - Custom colors.
 - Custom positions for text.
 etc.

replace the old lib and handle.iss files with these.

,

[BLACKFIRE69]

Originally Posted by audiofeel

well, not big quibbles. "LockScreen" is triggered on "MsgForm.HandleHWND", although it is written in the script "LockScreen.AutoActivate([FMXForm.HandleHWND, MsgForm.HandleHWND, LangForm.HandleHWND, DirBrowseDlg.HandleHWND, DirBrowseDlg.HandleHWND2, WizardForm.Handle]);"

- Fixed CustomFluentWindow handle.
- Fixed EmptyWizardForm.


latest version has been added to the first post...

[BLACKFIRE69]

WPI_CorePack - Script Updated!

- Browse for disks.
- Before/After install:  Run executables or bats, Writing ini and Patching files.

- XBass_f.dll/ XHashNext.dll/ MFT.exe:  Updated, Reduced the file size. 
  (AV no longer pops false positive malware detection on these files.)

- Added wFilePatchLib.dll.

,

[audiofeel]

Originally Posted by TEAmo

Can I upload your script? Thank you

If I didn't notice it, I misunderstood. keep the script
https://ibb.co/VDB2v30