FMXInno - Windows Fluent Design Installer UI for Inno

[Razor12911]

I'm not sure I understand your question, but effectively both the normal function and the extended function are the same, the extended function just gives the option to only make a font available to the caller process or that the font should not be enumerated by any process, other than that. They are virtually the same, if you're referring to the functions seemingly not working on FMX platform then all you need to do is call the function before the application is created/initialized.

[audiofeel]

Originally Posted by Razor12911

I'm not sure I understand your question, but effectively both the normal function and the extended function are the same, the extended function just gives the option to only make a font available to the caller process or that the font should not be enumerated by any process, other than that. They are virtually the same, if you're referring to the functions seemingly not working on FMX platform then all you need to do is call the function before the application is created/initialized.

OK. understood, accepted. To be honest, I'm trying to make compatibility with Windows 7 (about 10% of users still work on it). The first thing I encountered was fonts, They do not display them, according to the first method, "RG APEX" has a script for which I made my script. and there the font is magically installed for me with the help of a piece from microsoft "Fontinstall.dll /f fontinstall.inf" To be honest, it's not clear how they did it - but everything works on Win 7. And the question is- after all, how did they do it, or is there a way to get the font to connect in both Win7 and Win 11.

[Razor12911]

Ah I remember now. I once had this problem in ASC (Advanced Setup Creator), this isn't a AddFontResource problem but rather a FMX problem on other platforms and the way I fixed it was temporarily placing the font in "C:\Windows\Fonts" you can use FileCopy after extracting temporary files, then adding the font name in Windows Registry in "Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Wi ndows NT\CurrentVersion\Fonts", with Font Name (TrueType) as value name and the font filename as value data. It's wise to check if the font exists in registry before doing this because you need to delete the registry and delete the file in deinitializesetup.

[audiofeel]

OK. Here I was unexpectedly introduced to "FontReg.exe " https://code.kliu.org/misc/fontreg / . I have very high hopes for her. But there is a small problem - this is a test "on live systems". But to hell with it with the test, the most important thing is that this utility installs and registers fonts in the system without distorting the explorer and as a result the fonts remain in the system, it seems to me that not every user will like it. But still, for now, it should work both at 7 and at 11. And this is a FAT plus.
https://youtu.be/xsfhrtsRWHU

[audiofeel]

who has "win 7" as you have with the launch of "Core pack Style" are especially interested in fonts
also check out the new installer "ATOMIC HEART" is also interested in displaying fonts. all ISS included
P.S thanks for the atomic heart installer style Razor12911

[Razor12911]

It works fine on Windows 7 (although it was via VM), however there seems to be other problems. I'm not sure if those bezels (the edges left, right and bottom) are by design but they just seemed to be out of place and they are even more prominent if you disable the aero theme.

[audiofeel]

Thanks for the test. Well, I think this is the best result, question marks instead of symbols are something else, these are "ANSI or UTF" encoding problems. The frames on the edges are certainly not provided by me. It remains to understand on which form the frames will not be displayed. The maestro left us a big choice to choose from.
How do you like this, Elon Musk?

function FCreateNormal(WParent: HWND): HWND;
function FCreateFluent(WParent: HWND; DarkTheme, NoBorder: Boolean; Opacity: Single; BrightnessPct: Byte): HWND;
function FCreateFluentColor(WParent: HWND; VCLColor: Integer; NoBorder: Boolean; Opacity: Single; BrightnessPct: Byte): HWND;
function FCreateFluentNull(WParent: HWND; NoBorder: Boolean): HWND;
function FCreateImageForm(WParent: HWND; const Picture: WideString; Opacity: Single): HWND;
function FCreateBlankForm(WParent: HWND; FormColor: Integer; const AddImage: WideString): HWND;

[nordi]

Hi @audiofeel,

i have played a bit with your Installer (Atomic Hearts) and created my own style. All goes well when the Installer is directly on any harddrive...
When I create an ISO with the Installer, mount it and start the Setup.exe, then it only hanging in the background/taskbar and I only can kill it over taskmanager.
(> same with your provided original on my PC)

My Info:
- Win11-2022 using
- my Script has only other Images and more Redist Icons.
- ISO made with ImageBurn / Mounted with Win11 directly

Do you get the same behavier ?! perhaps already any solution ;-)


(Edit: Same for me with the provided CorePack)

[audiofeel]

Originally Posted by nordi

Hi @audiofeel,

i have played a bit with your Installer (Atomic Hearts) and created my own style. All goes well when the Installer is directly on any harddrive...
When I create an ISO with the Installer, mount it and start the Setup.exe, then it only hanging in the background/taskbar and I only can kill it over taskmanager.
(> same with your provided original on my PC)

My Info:
- Win11-2022 using
- my Script has only other Images and more Redist Icons.
- ISO made with ImageBurn / Mounted with Win11 directly

Do you get the same behavier ?! perhaps already any solution ;-)

All projects written using "FMXInno" do not run on flash drives, card readers, sd cards, nor do they run on external hard drives and SSDs. also if they are inside the .iso file

[audiofeel]

If someone is not satisfied with the large size of the source file created on the basis of "FMXInno" using the style file "...style". You can easily convert it from the "text" format to the "binary" format. Thereby reduce its size. The savings are small... about 1.5 mb. Links and screenshots below
fmx-style-converter/

[audiofeel]

Ok, hello everyone, who will help? how do I transfer the value from the "FTrackBar" to the "Volume" of the music?

that is, to put it simply, to make a volume control
I tried to do this

procedure TrackbarOnChange(Sender: TObject);
begin
  MusicObj.SetVolume(VolTrackbar.GetValue);
end;

Inno says... not right
thank you in advance.

[BLACKFIRE69]

Originally Posted by audiofeel

Ok, hello everyone, who will help? how do I transfer the value from the "FTrackBar" to the "Volume" of the music?

that is, to put it simply, to make a volume control
I tried to do this

procedure TrackbarOnChange(Sender: TObject);
begin
  MusicObj.SetVolume(VolTrackbar.GetValue);
end;

Inno says... not right
thank you in advance.

procedure Trackbar1OnChange(Sender: TObject);
begin
  MusicObj.SetVolume(Round(Trackbar_Regular.GetValue));
end;

but why?

IXBass :
procedure SetVolume(Const Vol: Integer);


FTrackBar :
function GetValue: Single;

[auaksa]

@BLACKFIRE69

thx for ur replay my msg

[audiofeel]

Originally Posted by BLACKFIRE69

procedure Trackbar1OnChange(Sender: TObject);
begin
  MusicObj.SetVolume(Round(Trackbar_Regular.GetValue));
end;

but why?

IXBass :
procedure SetVolume(Const Vol: Integer);
FTrackBar :
function GetValue: Single;

Everything is OK, it's working. That is, just make an envelope from Single to Integer? But why is it so confusing? Then if I may have one more question? Not very smooth volume control, in fact, it disappears already on half of the trackbar.
My settings are as follows

  { Volume Trackbar }
  VolTrackbar.FCreate(BaseLayer.Handle);
  VolTrackbar.Left(TitleBarBtn[2].GetLeft - NSX(46));
  VolTrackbar.Top(NSY(5));
  VolTrackbar.Width(NSX(46));
  VolTrackbar.Min(0);
  VolTrackbar.Max(100);
  VolTrackbar.Value(100);
  VolTrackbar.OnChange(@TrackbarOnChange);

What is there to consider as the maximum value? 1000 -100-10.
I apologize and I know that all this should have been clarified earlier when you were working hard on the project, but you have very few explanations for your library.

[BLACKFIRE69]

Originally Posted by audiofeel

Everything is OK, it's working. I may have one more question? Not very smooth volume control, in fact, it disappears already on half of the trackbar.

yes, volume control is neither gradual nor smooth. i agree.
the volume range is (-10,000 to 0).

DSBVOLUME_MAX := 0;
DSBVOLUME_MIN := -10,000

For More Info

i don't know how to do smooth control tho.
what i'm doing is simply just set the value as below.

Vol := (InputVolPct - 100) * 100;
DirectSoundBuffer.SetVolume(Vol)

if anyone knows a better way let me know.