FMXInno - Windows Fluent Design Installer UI for Inno

[Behnam2018]

Hi, this script is muted by default. You can turn it on in this script

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

* Please find attached two FMXInno examples that support DiskSpan GUI. I would appreciate it if you could conduct some test runs to confirm its functionality.

* Due to additional requirements, upgraded XHashNext to XHashEx.

* Component properties have been extended.

DSG functionality has been added by Cesar82.

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

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

[audiofeel]

Originally Posted by BLACKFIRE69

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

Great news

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

[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

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


.

[audiofeel]

@BLACKFIRE69

Originally Posted by BLACKFIRE69

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

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

[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

[audiofeel]

Originally Posted by ADMIRAL

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

Do what your imagination is enough for. you can experiment and make an autorun out of it. no restrictions. Of course, I would like more ease in setting up and the appearance of objects, as it is now being done in the web.
And the exit option for me now is like to crack sun flower seeds.

[audiofeel]

I finally managed to defeat the white square when loading the form . Now there is just a delay in the appearance of the form. It looks better. I just changed the form type from FCreateBlankForm to FCreateFluentNull - but the stripes appear on the sides, as indicated by border false. You can avoid these problems altogether and just select the form type FCreateImageForm, but then the video is not displayed on another page. Or apply the form FCreateNormal, but nothing appears on such a form at all.
how do you still defeat this white square?
*************
UP!
who will suggest the idea of a progress bar. how it should be presented to the installation published above

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

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