FMXInno - Windows Fluent Design Installer UI for Inno

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

[Razor12911]

Win 7, works fine on win 10 though.

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

[BLACKFIRE69]

Originally Posted by Razor12911

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

does it happen even after executing DeleteFMXFont??

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

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]

What's New:

* Added CheckBoxTree.

.

[wangfeilong0317]

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

[BLACKFIRE69]

Final Release - March 2023

What's new:

* Now FMXInno supports ChatGPT.
   - Internet connection is required.
   - You must have an openAI API key.

* Added Google Translate.
   - Internet connection is required.
   - Ex:  S := GoogleTranslate(InputMemo.GetText, 'en', 'ru');

* Upgraded Skia.
   - v 4.1.1   to   v5.0.0
   - There is a compatibility break. so don't mess with old binaries.

* Includes all changes made so far.

The first post has been updated.


.

[Masquerade]

Cool, now you can chat with an AI whilst the repack installs

[KaktoR]

Compression done by AI, when?

[BLACKFIRE69]

Originally Posted by Masquerade

Cool, now you can chat with an AI whilst the repack installs

as a step forward, a co-pilot can be introduced for the installer if needed in the future. (+ voice recognition).

[BLACKFIRE69]

What's New:

* Now you can feed media files (Audio/Video) to ChatGPT.
   - Supported formats: *.m4a, *.mp3, *.webm, *.mp4, *.mpga, *.wav, *.mpeg

* Added HTML Texts.

HTML Text Syntax:

Link	= <a:"https://google.com/">Click Here</a> 
Spoiler	= <spoiler:UniqueName>Text</spoiler>  and  
          <sdetail:name>Expanded text when the spoiler link is clicked.</sdetail>

Bold	= <b>Hello World</b>	 
Italic	= <i>Hello World</i>
Strike	= <s>Hello World</s> 
Underline  = <u>Hello World</u>

FontName   = <fn:Segoe UI Bold>Hello World</fn>	
FontSize   = <fs:18>Hello World</fs> 
FontColor  = <fc:claRed>Hello World</fc>
	   = <fc:$FFFFFF>Hello World</fc>
			
	   > claRed = Red Color (FMX)

BackgroundColor = <bc:claBlack>Hello World</bc>
		= <bc:$FF4563>Hello World</bc>
				
Line Break	= <br> , Ex:  Hello <br> World
Prevent line break after #13#10 sequence
		= <nbr> , Ex: <nbr>Hello World
			
Line spacing    = <LS:Height>Text</LS> , Ex: <LS:14>Hello</LS>			

Align Left	= <L>Text</L>	
Align Center    = <C>Text</C>
Align Right	= <R>Text</R>

Tab			= <t:30>Text
Tab with aligned break	= <tf:30>Text

Unordered list	= <UL></UL>
Ordered list	= <OL></OL> 
List item	= <LI></LI> 


Float		= <float:X,Y,Width>Text</float> 

Ex: <float:20,10,120>Hello World</float>

HTML Text Example:

S := 'The <fs:20><spoiler:bf-link-01>FireMonkey framework</spoiler></fs>' +
       '<sdetail:bf-link-01>   Developed by <b>Embarcadero Technologies</b></sdetail>' +

       ' is the <u>app development</u> and <u>runtime platform</u> behind' +
       '<br><br>' +

       '<fc:claPurple><b>RAD Studio</b></fc>, <fc:claPurple><b>Delphi</b></fc>, <fc:claRed><fs:14><s><b>.Net</fs></b></s></fc> and <fc:claPurple><b>C++Builder</b></fc>. ' +

       ' <b><i><bc:claYellow>FireMonkey</bc></i></b> is designed for teams building <br><i>multi-device</i>, <i>true native apps</i> for' +

       ' <fs:15><fc:claLightSeaGreen>Windows</fc></fs>, <fs:15><fc:claLightSeaGreen>OS X</fc></fs>, <fs:15><fc:claLightSeaGreen>Android</fc></fs> and <fs:15><fc:claLightSeaGreen>iOS</fc></fs>,' +
       '<br>' +

       'and getting them to app stores and enterprises fast.' +
       '<br><br><br>' +

       '<ul><fs:15><fc:claOrangered>' +
       '<li>Item 01</li>' +
       '<li>Item 02</li>' +
       '</fc>' +

       '<ol><fc:claSienna>' +
       '<li>Sub Item 2.1</li>' +
       '<li>Sub Item 2.2</li>' +
       '</fc></ol>' +

       '<fc:claOrangered>' +
       '<li>Item 03</li>' +
       '</fc>' +

       '</fs></ul>';

  HTMLText.FCreate(FMXForm.Handle, S);
  HTMLText.AutoWidth(True);
  HTMLText.AutoHeight(True);
  HTMLText.Left(30);
  HTMLText.Top(100);