FMXInno - Windows Fluent Design Installer UI for Inno

[TEAmo]

Originally Posted by crachlow

Before you write what an error is, you probably need to create a report where and when and what you did at the same time. What do you think?

This error message occurred before the first startup.

I tried to replace the normal PNG image, but the error still appears. Is it related to my operating system being in Chinese?

[TEAmo]

Originally Posted by audiofeel

the png file is corrupted

Problem solved, thank you

Thanks

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
There's a small problem with the FRadioButtons. They switch each other but belong to different components. And even being on different FCustomPage, they continue to influence each other. What should I do?
I attach a file for demonstration

Added new property.
 - FRadioButton.GroupName

.

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
And another question arose. such an effect as procedure AnimateOpacity(FOpacity, FDuration, FDelay: Single) has only FLayout - is this due to some restrictions? is it possible to add it to other objects such as text, buttons, etc.

yes, other objects can have this property too. in the next update, i'll add it in a more useful way

Originally Posted by audiofeel

And is it possible to adjust the distance between lines in the FText as in html = Line spacing = <LS:Height>Text</LS> , Ex: <LS:14>Hello</LS>

i'm not sure about that.

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
If the html text is placed on some object and the transparency is set to 0 in the properties. Then the object becomes transparent as expected and the html text remains visible

@audiofeel
it seems that the opacity property is not functioning correctly on the FHTMLText custom component.

Originally Posted by Tihiy_Don

Is it possible to use the video as the background of the installer? Buttons, text, and so on will be placed on top of the video.

@Tihiy_Don
it may not possible.

"In Delphi FMX, the MediaControl component is designed to always appear on top of other components and objects on the form, even if it is placed lower in the Z-order (or stacking order) than other components.

This is because the MediaControl component is responsible for rendering video and audio content on the form, and it needs to have priority over other components to ensure that the content is visible and accessible to the user."

Originally Posted by audiofeel

@BLACKFIRE69
Can I programmatically scroll the scrollbar to the left or right? with buttons?
on the "Location" page you will see what I would like to do, but I don't know how

@audiofeel
In the provided example, the scrolling functionality of the scrollbox will respond to both the left/right arrow keys (FInstNewProc - Updated) and the two buttons.


.

[ADMIRAL]

Originally Posted by audiofeel

@BLACKFIRE69

Thanks. in my opinion, it turned out well. what I wanted
https://ibb.co/wYvYdkk

Hello
It's great that you were able to create this project using Inno setup.
Is this going to be a setup or just an introduction of game?
Another thing you forgot to add is the exit option

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE. Hello. FMemo does not work as I would like. Everything is fine, except that when a new archive starts, there is an empty line after Unpacking. I will provide part of the code below.
What am I doing wrong? It will be useful to many, I think.

function ProgressCallback(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): longword;
var
 S: WideString;
begin
  S:= 'Unpacking: ' + CurrentFile;
  if Page2Memo.LineStrings(Page2Memo.LineCount - 1) <> S then
  begin
    Page2Memo.AddLine(S);
  end;
  Result:= ISArcExCancel;
end;

have you tried this?

function ProgressCallback(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): longword;
var
 S: WideString;
begin
  S:= 'Unpacking: ' + CurrentFile;
  if (length(CurrentFile) > 0) and (Page2Memo.LineStrings(Page2Memo.LineCount - 1) <> S) then
  begin
    Page2Memo.AddLine(S);
  end;
  Result:= ISArcExCancel;
end;

[BLACKFIRE69]

FMXInno - News update

1. Currently, my focus is on developing FMXInno-FluentApi version 2.0.
The tests reveal that the most prominent aspect of FluentApi v2.0 is its comprehensive support for Windows, including Windows 7, 8.1, 10, and 11.


2. When dragging the installer in Windows 10 with acrylic effect is on, it causes a lag that has not been resolved with an acceptable solution thus far. In light of this,
FluentApi v2.0 will turn-off the acrylic effect temporarily while moving the installer, leading to a semi-transparent appearance while the installer is being moved.

Tested OS:

* Windows 11 Pro  - latest.
* Windows 10 Pro  - latest.
* Windows 8.1 Pro - latest.
* Windows 7 Pro   - Service Pack 1.

,

[BLACKFIRE69]

FMXInno - News Updates

* New DiskList Blueprint.

.

[Fak Eid]

Hi Audiofeel,

Thank you for sharing these amazing installers. However, I've found that while running the setup.exe files, for some a white screen initially loads followed by the content of the installer (attached in screenshot), which I feel can be annoying sometime. Is there any way we can bypass or fix?

[Fak Eid]

Hi audiofeel,

Tried this and worked like a charm. I saw the changes and was able to even fix couple of other installers shared by you. However, I was unable to fix the same in Redshank Installer. FMXForm.FCreateImageForm was throwing an exception when trying to run setup.exe of Redshank Installer. Any recommendations?

[ravikant]

Is it possible for you to make a diskspan plugin for your custom scripts

[Fak Eid]

What compression are you trying to extract using DiskSpan GUI that you want to extract from installer?

[ravikant]

Originally Posted by Fak Eid

What compression are you trying to extract using DiskSpan GUI that you want to extract from installer?

I want to make backup of my games and store it each game series having a different type of installer

[hitman797]

Originally Posted by audiofeel

Somebody....I need help
You need to hide the buttons - AboutTabControl.TabPosition(tpNone);
But at the same time, my other custom buttons behave strangely, which are not related to this - AboutTabBtn[1]
If you specify like this - AboutTabControl.TabPosition(tpDots);
Then everything is fine, but I need to hide the dots

  AboutTabControl.FCreate(AboutPage.Handle);
  AboutTabControl.SetBounds(100, 130, 1046, 448);
  AboutTabControl.TabPosition(tpNone);

  for i:= 1 to 3 do
  begin
    AboutTabItem[i].FCreateEx(AboutTabControl.Handle);
    AboutLbl[i].FCreate(AboutTabItem[i].Handle);
    AboutLbl[i].FontSetting('{#Font}', VCLFontSizeToFMX(22), ALWhiteSmoke);
    AboutLbl[i].TextSetting(False, txCenter, txCenter);
    AboutLbl[i].SetBounds(0, 18, 1046, 24)

    AboutMemo[i].FCreate(AboutTabItem[i].Handle, True);
    AboutMemo[i].SetBounds(28, 59, 1017, 358);
    AboutMemo[i].FontSetting('{#Font}', VCLFontSizeToFMX2(12), ALWhiteSmoke);
    AboutMemo[i].WordWrap(True);
    AboutMemo[i].ReadOnly(True);
    AboutMemo[i].ScrollAnimation(True);
  end;

  AboutLbl[1].Text(AnsiUppercase('About Game'));
  AboutLbl[2].Text(AnsiUppercase('About Repack'));
  AboutLbl[3].Text(AnsiUppercase('Credits'));

  AboutMemo[1].AddLine(CnvtToWStr(S1));
  AboutMemo[2].AddLine(CnvtToWStr(S2));
  AboutMemo[3].AddLine(CnvtToWStr(S3));

  AboutTabBtn[1].FCreate(AboutTabControl.Handle);
  AboutTabBtn[1].SetBounds(572, 590, 50, 30);
  AboutTabBtn[1].FillColor({#Color1});
  AboutTabBtn[1].StrokeColor({#Color2});
  AboutTabBtn[1].StrokeSetting(1.0, scFlat, sdSolid, sjMiter);
  AboutTabBtn[1].CornerStyle(16, 16, [tcTopLeft, tcBottomLeft], ctBevel);
  AboutTabBtnLbl[1].FCreate(AboutTabBtn[1].Handle);
  AboutTabBtnLbl[1].Text(#$E938);
  AboutTabBtnLbl[1].Align(Client)
  AboutTabBtnLbl[1].AutoSize(True);
  AboutTabBtnLbl[1].TextSetting(False, txCenter, txCenter);
  AboutTabBtnLbl[1].FontSetting('Segoe MDL2 Assets', 14, ALBlack);
  AboutTabBtnLbl[1].OnMouseEnter(@CommonMouseEnter);
  AboutTabBtnLbl[1].OnMouseLeave(@CommonMouseLeave);
  AboutTabBtnLbl[1].OnClick(@CommonOnClick);

  AboutTabBtn[2].FCreate(AboutTabControl.Handle);
  AboutTabBtn[2].SetBounds(622, 590, 50, 30);
  AboutTabBtn[2].FillColor({#Color1});
  AboutTabBtn[2].StrokeColor({#Color2});
  AboutTabBtn[2].StrokeSetting(1.0, scFlat, sdSolid, sjMiter);
  AboutTabBtn[2].CornerStyle(16, 16, [tcTopRight, tcBottomRight], ctBevel);
  AboutTabBtnLbl[2].FCreate(AboutTabBtn[2].Handle);
  AboutTabBtnLbl[2].Text(#$E937);
  AboutTabBtnLbl[2].Align(Client)
  AboutTabBtnLbl[2].AutoSize(True);
  AboutTabBtnLbl[2].TextSetting(False, txCenter, txCenter);
  AboutTabBtnLbl[2].FontSetting('Segoe MDL2 Assets', 14, ALBlack);
  AboutTabBtnLbl[2].OnMouseEnter(@CommonMouseEnter);
  AboutTabBtnLbl[2].OnMouseLeave(@CommonMouseLeave);
  AboutTabBtnLbl[2].OnClick(@CommonOnClick);