FMXInno - Windows Fluent Design Installer UI for Inno

[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

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

[KaktoR]

Compression done by AI, when?

[crachlow]

Thanks Blackfire69. This solved some problems.

[Tihiy_Don]

How can I draw and transfer the installation progress to the progressbar if the built-in compression Inno Setup is used?

[crachlow]

BLACKFIRE 69. There was a question about the expediency of calling copy/move operations from the library itself. No, perhaps in some cases this is enough, but to create, for example, a backup and then restore from it, during the uninstall you will have to copy FMXInno to the installation directory. I wouldn't want to do that. Maybe you should consider a system call option? But I would like to leave the Overwrite. Thank you in advance.

[crachlow]

BLACKFIRE69, do not think that this is not a necessary function in the library itself, I just would like to have an addition for such operations as restoring from a backup without carrying the entire library with it.

[BLACKFIRE69]

One more thing

* Users now have the ability to choose their preferred form corner type, (Win11 +)

This feature is particularly beneficial for those who have a strong dislike for rounded corners.



.

[BLACKFIRE69]

Originally Posted by audiofeel

You can do the same for all child forms
FCustomFluentWindow. and so on....
P.S. I'm not a fan of angles, but sometimes you need them to get into the style

Updated,


.

[Cesar82]

@BLACKFIRE69, I don't follow your project very much, but I have a question.
Is it possible to define shadows in the labels and define a position for them with respect to the text like in CIU?
If you still don't have support for this, it would be interesting to have X and Y options to move the shadow with a default value of 1px position in relation to left and Top, or parameters for X and Y position for the shadow, with the default position being the shadow exactly in the position of the text.

procedure ShadowSetting(FColor: Integer; FOpacity, FSoftness: Single; FPosX, FPosY: Integer);

[hitman797]

hi, blackfire69,
thank you for everything you give to this community.
In fact I learned a lot from you.
thank you.

[BLACKFIRE69]

FMXInno - Optional Updates

* Synthesizing user input is made easy with FMXInno's support for 
  generating keystrokes, mouse motions, and button clicks.

Examples:

Keyboard:   Press Win + X

  { Method 1 }
  VirtualAction.PressedKey(vkLWin);  // Left Win
  VirtualAction.PressKey(vkX);       // X
  VirtualAction.ReleasePressedKey(vkLWin);
  VirtualAction.Flush;

  { Method 2 }
  VirtualAction.PressedShiftKey([F_ssWin]);  // Left\Right Win
  VirtualAction.PressKey(vkX);
  VirtualAction.ReleasePressedShiftKey([F_ssWin]);
  VirtualAction.Flush;

  { Method 3 }
  VirtualAction.CallShortcut([F_ssWin], vkX);
  VirtualAction.Flush;

Mouse:   Click on Btn[3]

  // New MousePos: Btn[3] center.
  VirtualAction.FormMouseMove(Round(Btn[3].GetLeft + Btn[3].GetWidth / 2), 
                              Round(Btn[3].GetTop + Btn[3].GetHeight / 2)); 
  VirtualAction.MouseClick(mbLeft);
  VirtualAction.Flush;

.