FMXInno - Windows Fluent Design Installer UI for Inno

[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

[audiofeel]

Unpacking went as usual, everything is normal (Win11). Who doesn't want to redo their masterpiece... here is mine already ready for the test

[audiofeel]

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

[wangfeilong0317]

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

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

[audiofeel]

Originally Posted by BLACKFIRE69

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

Presumably the following happens. If the font is installed and it was shipped with Windows 11, then there will be an error. If the font file is "not system" and is not protected by anything, it will most likely simply be overwritten. In my case, I'm trying to install SegoeIcons.ttf - which is a system font and Windows will not allow anyone to access it (I'm trying to joke). I think the mistake is because of this

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

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


.

[audiofeel]

Originally Posted by BLACKFIRE69

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

.

So far everything is fine

[audiofeel]

Originally Posted by wangfeilong0317

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

try to save the text file using one of the suggested options as in the screenshot.

[BLACKFIRE69]

What's New:

* Added CheckBoxTree.

.

[audiofeel]

Originally Posted by BLACKFIRE69

What's New:

* Added CheckBoxTree.

.

Excellent. We are all waiting for a full update

[audiofeel]

I removed out ProcessMessages. since the animation effect on the installer's home page a little bit slows down. everything is normal now
in this script, the SectionExpand function is not needed yet

  //>>>> Expand <<<<
//  ProcessMessages;    // <- Call ProcessMessages first.
  CheckboxTree.SectionExpandAll(h_itemLanguage);
  CheckboxTree.SectionExpand(h_itemCrack);
  CheckboxTree.SectionExpand(h_itemRedist);

[wangfeilong0317]

Setup cannot exit normally, program is not responding。Am I the only one who has this problem？