FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
Hi. In all your demo examples, etc., the size of the game being installed does not change when additional options are selected, such as additional language packs and optional packages. And he probably has to change. In the standard version, everything is easier with this, just added the desired size to the component and it automatically added itself. Don't you think to automate it somehow? as in the installer from "GOG"

search for the word Updated23320 to find the changes.


.

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69.
I found a small bug. If the user chose "solid color" instead of wallpaper, there will be an error. Culprit = "GetDesktopImgColorFMX", "FUserInfo" - "function Wallpaper: WideString"

this could be more helpful.

* Added new functions.
  - GetDesktopSolidColorVCL
  - GetDesktopSolidColorFMX
  - DesktopImgExist

Example:

if DesktopImgExist then
   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopImgColorVCL, False, 0.4, 0)
else
   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopSolidColorVCL, False, 0.4, 0);

[BLACKFIRE69]

Originally Posted by audiofeel

Here, a little higher, a user under the nickname Behnam2018 posted a screenshot with the installer. An experienced eye will notice that the fonts that should be displayed are not displayed there. Most likely, Behnam2018 is installed "Windows7". On it, with the "temporary" installation of fonts, small problems sometimes arise. As a temporary solution, I propose this.

function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
begin
  if not FontExists('My Font') then
  begin
    ExtractTemporaryFile('MyFont.ttf');
    ExtractTemporaryFile('FontReg.exe');
    Exec(ExpandConstant('{tmp}\FontReg.exe'), '/copy', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
  end;


  Result:= True;
end;

https://code.kliu.org/misc/fontreg/

could you test this?

function InitializeSetup(): Boolean;
begin
{ Font }
  ExtractTemporaryFile('{#MyFont1}');
  ExtractTemporaryFile('{#MyFont2}');

  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));
  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));
{ Font }

  FMXInnoInit;

  Result := True;
end;

procedure DeinitializeSetup();
begin
{ Font }
  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));
  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));
{ Font }

  FMXInnoShutDown;
end;


procedure FMXDesigning;
begin
  { FMX Blank Form }
  FMXForm.FCreateBlankForm(WizardForm.Handle, ALCrimson, '');
  FMXForm.SetCursor(ExtractAndLoad('Dark2.ani'));
    // Font
  InvalidateFMXFont;

  ....

end;

[BLACKFIRE69]

Originally Posted by audiofeel

I have no way to test this on Windows 7. On Windows 11, everything is fine.

DeleteFMXFont function is not needed, you can remove it.

[BLACKFIRE69]

Originally Posted by audiofeel

If you run and cancel the installation several times, this happens (I realized this by increasing the speed of the cooler). I can make a mistake, but nothing was launched except the installation

oops...

[BLACKFIRE69]

Originally Posted by audiofeel

@BLACKFIRE69
I found another oddity or feature. On FMXForm.FCreateImageForm does
not display VideoPlayer. Is it possible to implement it?

the video player appears to be invisible when the form is layered. and i haven't been able to find a fix for it so far. sorry,

[BLACKFIRE69]

What's new:

* Merged ISArcEx into FMXInno.
  - need to be tested to make sure everything is ok.

* Added new function FXMathExp (which parses math expressions).
  - function FXMathExp(Exp: WideString): Double;
  - it's different from the Calc function in MFT.

----------ISArcEx----------:

>> remove the following lines highlighted in red from your current script.


[Files]
// External
Source: ".\Unpack\English.ini"; DestDir: {tmp}; Flags: dontcopy
//Source: ".\Unpack\Russian.ini"; DestDir: {tmp}; Flags: dontcopy
Source: ".\Unpack\arc.ini"; DestDir: {tmp}; Flags: dontcopy
Source: ".\Unpack\unarc.dll"; DestDir: {tmp}; Flags: dontcopy
Source: ".\Unpack\ISArcEx.dll"; DestDir: {tmp}; Flags: dontcopy


[Code]

{ ISArcEx v0.4 }
var
  ISArcExDiskCount: Integer;
  ISArcExCancel: integer;
  ISArcExError: boolean;
  ISArcDiskAddingSuccess: boolean;

type
  TCallback = function(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: Integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): LongWord;

function ISArcExInit(WinHandle: Longint; TimeFormat: Integer; Callback: TCallback): Boolean; external 'ISArcExInit@files:FMXInno.dll stdcall';
function ISArcExAddDisks(Inputfile, Password, OutputPath: Widestring): Boolean; external 'ISArcExAddDisks@files:FMXInno.dll stdcall';
function ISArcExExtract(DiskNumber: Integer; CfgFile, WorkPath: Widestring): Boolean; external 'ISArcExExtract@files:FMXInno.dll stdcall';
function SuspendProc: Boolean; external 'SuspendProc@files:FMXInno.dll stdcall';
function ResumeProc: Boolean; external 'ResumeProc@files:FMXInno.dll stdcall';
procedure ISArcExStop; external 'ISArcExStop@files:FMXInno.dll stdcall';
procedure ISArcExCleanUp; external 'ISArcExCleanUp@files:FMXInno.dll stdcall';
function ChangeLanguage(Language: Widestring): boolean; external 'ChangeLanguage@files:FMXInno.dll stdcall';
function Exec2(filename, Param: WideString; Show: Boolean): Boolean; external 'Exec2@files:FMXInno.dll stdcall';
{ - End - }

----------FXMathExp---------:

var
  Exp, Ans: String;

function InitializeSetup(): Boolean;
begin
  Exp := 'Sin(Pi/6) + ATan(1) * (Pow(7*2,2) - (Fact(4) - Floor(8.46))) / Pi + Sqrt(Abs(-553 + Sqrt(9) * LogN(2, 2) / 2^2))';

  Ans := Format('%0.2n', [FXMathExp(Exp)]);  // Ans = 69.00
  
  MsgBox('answer: ' + Ans, mbInformation, MB_OK);
  result:= False;
end;

Numeric Operators:
x + y, x - y, x * y, x / y, x % y (or Mod), 
x ^ y [Power], x \ y (or Div)

Comparison Operators:
x > y, x < y, x >= y, x <= y, x = y, x <> y, 
!x (not), x & y (and), x | y (or), x xor y

Logical operators:
& (and), | (or), xor, ! (not)

Logical Functions:
iff(e, x, y) -> iff(10 > 3, 1, 0) = 1
isnumber('x')-> isnumber('25') = 1

Bitwise operations:
x && y (band), x || y (bor), !!x (bnot), 
x bxor y, x >> y (shr), x << y (shl)

Statistical Functions:
max	     -> max(2, 4.87, 0.24, 10.0, 11)
min	     -> min(3, 4, 7.4, 11.0)
sum	     -> sum(0.25, 4.0, 11, 8)
avg	     -> avg(7, 3, 5)
count        -> count(x,y,z,...)
stddev       -> stddev(x,y,z,...)	- standard deviation (unbiased)
stddevp      -> stddevp(x1,x2,...)	- standard deviation (biased)
sumofsquares -> sumofsquares(x,y,...)	- sum of passed values squares
variance     -> variance(x,y,...) 	- variance (unbiased)
variancep    -> variancep(x,y,...)	- variance (biased)

String Functions:
number	 -> number("+835xyz") = 835, number("2e2") = 200
length(s) - length of the string.
pos(t, s) - returns the index value of the first character of t that occurs in s.
hex(s) 	  - returns numeric value for hexadecimal string.

Sign of a number:
sign	-> sign(-5) = -1, sign(5) = 1, sign(0) = 0

Predefined Constants:
Pi	= 3.1415926535897932385
e	= 2.71828182845905
True	= 1
False	= 0

Exponent of 10:
e	-> 1e+3 or le3 = 1000 

Trigonometric, hyperbolic and invert functions:
sin(x), cos(x), tan(x), asin(x), acos(x), atan(x), 
cosh(x), sinh(x), tanh(x), 
asinh(x), acosh(x), atanh(x), sinD(x), cosD(x), tanD(x),
RadToDeg(x), DegToRad(x)

Exponential and logarithmic functions:
log(x), lg(x) (log base 10), ln(x), LogN(x, y), exp(x), 
sqrt(x), sqr(x), Pow(x, y), Ldexp(x, y), LnXP1(x)

Numeric and factional part of number:
abs	-> abs(-24)
Int	-> Int(1.951) = 1
frac	-> Frac(12.75) = 0.75
ceil	-> Ceil(-2.8) = -2, Ceil(2.8) = 3
floor	-> Floor(-2.8) = -3, Floor(2.8) = 2
Round	-> Round(1234567, -3) = 1235000, Round(1.235, 2) = 1.24
Trunc	-> Trunc(1234567, -3) = 1234000, Trunc(1.235, 2) = 1.23
Fact	-> Fact(4) = 24  - Factorial

Random number generator:
rnd, randomize

[wangfeilong0317]

Very cool and concise installation program. The Win10 system can be installed normally. Is the garbled code on this page normal?

[BLACKFIRE69]

What's New:

* Added CheckBoxTree.

.

[BLACKFIRE69]

Originally Posted by audiofeel

but in the latest dll with a new method of installing fonts, something incomprehensible happens

windows 11 can cause this. i really don't know. but can you try this anyway?

[BLACKFIRE69]

Originally Posted by audiofeel

This has nothing to do with the last unpacking test. Absolutely the same for the module. check it out. But in one case it is a system font in the other it is not. You need to come up with some kind of "exist" and nail it in the dll.
-------------------------
test it . there are two scripts in the archive. one system font. the other one is not a system one.

there's something wrong with the FMX rendering engine. so i had to change things in the InvalidateFMXFont function. now it should work.


.

[BLACKFIRE69]

FMXInno - Cumulative Updates [2023-Apr-17]


Highlights:

* Several enhancements have been made.
* Voice recognition and speech capabilities have been added to FMXInno.
* Included additional Copy and Move functions for files.

The first post has been updated.

* The given example has the ability to understand certain commands. 

Recognizable commands for the given example:

1. "go"
2. "comeback to".
3. "stop".
4. "browse".
5. "pause".
6. "resume".
7. "music".
8. "about".
9. "verify".

* and also recognize phrases such as 
"I need you to come back to" as per the given Grammar.xml.


Tested Voice:  English (US).

Grammar XML:  Elements.

1. <O>AText</O>		= Optional phrase that may be recognized. 
2. <L>...</L>		= List of phrases which can be recognized.
3. <P VAL="#">AText</P>	= Phrase that must be recognized for the containing rule to be recognized.
 
4. LANGID	: The language identifier of the grammar. || "409" - English-US,  "809" - English-GB
5. RULE		: Rule that contains phrases or text to be recognized.
6. PROPNAME	: The semantic property's string identifier.
7. RULEREF	: Import, or reference, another rules contents.
 
NOTE:
 1. It is *imperative* that the "_ref" phrase be added at the end of the
    "PROPNAME" of "RULEREF".

Grammar XML:  Example.

<GRAMMAR LANGID="409">

  <RULE NAME="R_My_Main" TOPLEVEL="ACTIVE">	
    <O>i need you to </O>		<!-- Optional Phrase -->
	
    <L PROPNAME="buttonPress" >
      <P VAL="1">go</P>			<!-- Click Next Button -->
      <P VAL="2">comeback to</P>        <!-- Click Back Button -->
      <P VAL="3">stop</P>		<!-- Click Cancel Button -->
      <RULEREF NAME="R_My_Sub_A" PROPNAME="additionalButtonPress_ref"/> <!-- Reference 1 -->
      <RULEREF NAME="R_My_Sub_B" PROPNAME="moreButtonPress_ref"/>       <!-- Reference 2 -->
    </L>
  </RULE>

  <RULE NAME="R_My_Sub_A">
    <L PROPNAME="additionalButtonPress">
      <P VAL="4">browse</P>		<!-- Click Browse Button -->
      <P VAL="5">pause</P>		<!-- Click Pause Button -->
      <P VAL="6">resume</P>		<!-- Click Resume Button -->
    </L>
  </RULE>
  
  <RULE NAME="R_My_Sub_B">
    <L PROPNAME="moreButtonPress">
      <P VAL="7">music</P>		<!-- Click Music Button -->
      <P VAL="8">about</P>		<!-- Click About Button -->
      <P VAL="9">verify</P>		<!-- Click Verify Button -->
    </L>
  </RULE>
</GRAMMAR>

.

[BLACKFIRE69]

Originally Posted by audiofeel

A small model of the site Cyberpunk 2077
Rate?
---------------
English version
---------------
UP + FXPcker.exe

that's awesome, dude!

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

[crachlow]

Originally Posted by TEAmo

I didn't replace the original picture.

Thank you