Windows 11 Fluent Design Installer UI for Inno - Page 19

audiofeel · #**271** 22-03-2023, 11:29

Quote:

Originally Posted by BLACKFIRE69

Added OnMouseWheel event for FMXForm and Trackbar. let me know if you need OnMouseWheel event for other components as well.
.

This is great and understandable. What do users usually make a music (volume) button out of? Most likely from "FEqualizer" "FText" and "FColorButton". I just assumed.

audiofeel · #**272** 22-03-2023, 13:54

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.

Code:

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/

Behnam2018 · #**273** 22-03-2023, 22:43

made BY KaOs Repack

Masquerade · #**274** 22-03-2023, 23:28

Quote:

Originally Posted by Behnam2018

made BY KaOs Repack

No, made by audiofeel, as written in credits, and thanks to BLACKFIRE69 for the IsArcEx and FMXInno libraries!

BLACKFIRE69 · #**275** 24-03-2023, 07:38

FMXInno v1.0.0.2 - Updates

Code:

* Now almost all components are ready to work with FXPacker and FXStream.

.

audiofeel · #**276** 25-03-2023, 15:19

Hi BLACKFIRE69, could you add an analog of the checklistbox
Perhaps the calculation of the size of components will also be implemented there

Quote:

Originally Posted by hitman797

hi, BLACKFIRE69.
can you include this in FMXInno v1.0.0.3.

Code:

Comp1Name=Game voices>English                                               
Comp1Size=2000
Comp1Group=1
                                                  
Comp2Name=Game voices>Russian                                               
Comp2Size=2100
Comp2Group=1

Comp6Name=Offline MP                                              
Comp6Size=4000
Comp6Group=0

Code:

procedure SetupUI_Init(Handle1, Handle2, Handle3: HWND);
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_Deinit;
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_Show;                                          
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_SetDir(Dir: PAnsiChar);
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_Install;
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_Progress(Status, Filename: PAnsiChar; Curr, Max: Integer);
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_Finished(Success: Boolean);
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_Info(Info1, Info2: String);
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_AddComponent(Component: String; Size, Group: Integer; Redist: Boolean);
  external '[email protected]:ISFMXUI.dll cdecl';
function SetupUI_Component(Component: String): Boolean;
  external '[email protected]:ISFMXUI.dll cdecl';
function SetupUI_Shortcuts(Desktop: Boolean): Boolean;
  external '[email protected]:ISFMXUI.dll stdcall';
procedure SetupUI_AddBkgImg1(Buff: PAnsiChar; Size: Integer);
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_AddBkgImg2(Filename: String);                                                           
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_AddAppInfo(Info: String);
  external '[email protected]:ISFMXUI.dll cdecl';
procedure SetupUI_AddInstInfo(Info: String);
  external '[email protected]:ISFMXUI.dll cdecl';

BLACKFIRE69 · #**277** 27-03-2023, 11:15

Quote:

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.

Code:

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?

Code:

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;

audiofeel · #**278** 27-03-2023, 11:34

Quote:

Originally Posted by BLACKFIRE69

could you test this?

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

BLACKFIRE69 · #**279** 27-03-2023, 12:29

Quote:

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.

audiofeel · #**280** 27-03-2023, 12:54

Quote:

Originally Posted by BLACKFIRE69

DeleteFMXFont function is not needed, you can remove it.

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

BLACKFIRE69 · #**281** 27-03-2023, 13:14

Quote:

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 · #**282** 27-03-2023, 13:57

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 · #**283** 27-03-2023, 16:17

Quote:

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

audiofeel · #**284** 27-03-2023, 16:25

Quote:

Originally Posted by BLACKFIRE69

does it happen even after executing DeleteFMXFont??

after executing DeleteFMXFont everything is clean

audiofeel · #**285** 27-03-2023, 17:38

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Windows Phone Installer similar to razor12911's original design?	Kitsune1982	Conversion Tutorials	0	02-07-2020 13:04
INDEX - Conversion Tutorial Index	Razor12911	Conversion Tutorials	5	11-06-2020 02:05
Windows Phone Installer Enhanced Mod (HMI 7.2 Final)	Chayan Manna	Conversion Tutorials	93	02-10-2019 12:42
Frequently Asked Questions	Joe Forster/STA	PC Games - Frequently Asked Questions	0	29-11-2005 09:48

The Following 3 Users Say Thank You to audiofeel For This Useful Post:
BLACKFIRE69 (22-03-2023), hitman797 (23-03-2023), Masquerade (22-03-2023)

The Following 3 Users Say Thank You to Masquerade For This Useful Post:
audiofeel (23-03-2023), BLACKFIRE69 (23-03-2023), hitman797 (23-03-2023)

The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
ADMIRAL (25-03-2023), audiofeel (24-03-2023), hitman797 (24-03-2023), wangfeilong0317 (26-03-2023)

The Following 2 Users Say Thank You to audiofeel For This Useful Post:
ffmla (25-03-2023), hitman797 (25-03-2023)

The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
ADMIRAL (27-03-2023), audiofeel (27-03-2023), hitman797 (27-03-2023)

The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (27-03-2023)

The Following 3 Users Say Thank You to Razor12911 For This Useful Post:
audiofeel (27-03-2023), BLACKFIRE69 (28-03-2023), hitman797 (28-03-2023)

The Following 2 Users Say Thank You to audiofeel For This Useful Post:
BLACKFIRE69 (27-03-2023), Razor12911 (27-03-2023)

The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (28-03-2023)