FMXInno - Windows Fluent Design Installer UI for Inno - Page 28

Masquerade · #1 15-01-2023, 08:09

Hi,
Audiofeel helped to write the script and UI design for my new installer but some users are having an issue where the setup will simply hang in the taskbar. I am not sure what could be causing this or if it could be looked into. Please let me know.

One such user is using Windows 11 with an i6 9600K and an RX 590 videocard.

An image of how the setup hangs:

Is this an FMXInno problem? Thanks!

BLACKFIRE69 · #2 15-01-2023, 10:52

Quote:

Originally Posted by Masquerade

Hi,
Audiofeel helped to write the script and UI design for my new installer but some users are having an issue where the setup will simply hang in the taskbar. I am not sure what could be causing this or if it could be looked into. Please let me know.

One such user is using Windows 11 with an i6 9600K and an RX 590 videocard.

An image of how the setup hangs:

Is this an FMXInno problem? Thanks!

i've had this experience before when trying to run Setup.exe from a pen drive. but it works fine for external hard drives. i dont know why...

.

hitman797 · #3 16-01-2023, 10:03

Quote:

Originally Posted by audiofeel

Sorry... found a typo

Code:

  // Exit Message
type
  FExitMsg = Interface(IUnknown)
    '{DA1F9482-7A11-4AFC-9471-E20FD9DB7F6E}'
........
 procedure SetMsg1(const Msg1: WideString);
 procedure SetMsg2(const Msg1: WideString);

-------
And one more thing. Could someone check for operability FPictureButton
doesn't quite work in it -

Code:

procedure Enabled(Enable: Boolean);
...
and
...
SetText(const FText: WideString);

If you want to hide the button, it doesn't work
That is, if you want to change the text on any page, then it does not change (if everything is fine with you, then I am crooked

)

If you want to hide the button, use Visible instead of Enabled.

Code:

procedure Visible(FVisible: Boolean);

BLACKFIRE69 · #4 16-01-2023, 12:19

Code:

What's new:

1. Added full control of SystemTray icon.

Quote:

{ Create }
procedure pTrayIconCreate(const IconFile, AHint: WideString; ImgType: Integer);
procedure pTrayIconHide;
procedure pTrayIconOnClick(AOnClick: TNotifyEvent);
procedure pTrayIconOnDblClick(AOnDblClick: TNotifyEvent);

{ Icon }
procedure pTrayIconChangeIcon(const IconFile: WideString);
procedure pTrayIconSetItemImg(AItem: LongInt; ABitmap: WideString);

{ Add }
function pTrayIconAddMenuItem(AText: WideString; AOnClick: TNotifyEvent): LongInt;
function pTrayIconAddMenuRadioItem(AText: WideString; AEnabled: Boolean; AOnClick: TNotifyEvent): LongInt;
function pTrayIconAddMenuItemCustom(TextSetting: LongInt; AOnClick: TNotifyEvent): LongInt;

{ Insert }
function pTrayIconInsertMenuItem(AIndex: Integer; AText: WideString; AOnClick: TNotifyEvent): LongInt;
function pTrayIconInsertMenuRadioItem(AIndex: Integer; AText: WideString; AEnabled: Boolean; AOnClick: TNotifyEvent): LongInt;

{ SubMenu }
function pTrayIconSubMenuItemCreate(AText: WideString): LongInt;
function pTrayIconAddSubMenuItem(ASubMenuItem: LongInt; AText: WideString; AOnClick: TNotifyEvent): LongInt;
function pTrayIconAddSubMenuRadioItem(ASubMenuItem: LongInt; AText: WideString; AChecked: Boolean; AOnClick: TNotifyEvent): LongInt;
function pTrayIconAddSubMenuItemCustom(ASubMenuItem: LongInt; TextSetting: LongInt; AOnClick: TNotifyEvent): LongInt;

{ Separators }
function pTrayIconAddMenuSeparator: LongInt;
function pTrayIconAddSubMenuSeparator(ASubMenuItem: LongInt): Longint;
function pTrayIconAddSeparatorBefore(AItem: LongInt): LongInt;
function pTrayIconAddSeparatorAfter(AItem: LongInt): LongInt;
function pTrayIconAddBottomLine: LongInt;
function pTrayIconAddTopLine: LongInt;

{ Other }
procedure pTrayIconMenuItemChecked(AItem: LongInt; AChecked: Boolean);
procedure pTrayIconMenuItemEnable(AItem: LongInt; AEnable: Boolean);
procedure pTrayIconMenuItemVisible(AItem: LongInt; AVisible: Boolean);
procedure pTrayIconMenuItemCaption(AItem: LongInt; AText: WideString);

function pTrayIconGetMenuItemIndex(AItem: LongInt): Integer;
function pTrayIconGetSubMenuItemIndex(ASubMenuItem, AItem: LongInt): Integer;
procedure pTrayIconRemoveMenuItem(AItem: LongInt);
procedure pTrayIconSubRemoveMenuItem(ASubMenuItem, AItem: LongInt);
function pTrayIconSetTextSettings(AText: WideString; Styles: TFontStyles; VLCColor, BkgColor: TColor; Size: Integer; Family: WideString; AFormat: Cardinal): LongInt;
function pTrayIconIsRadioCheckedItem(AItem: LongInt): Boolean;
procedure pTrayIconShowBalloon(ATitle, AText: WideString; AType: TBalloonType);
procedure pTrayIconMenuBreak(AItem: LongInt; AMenuBreak: TMenuBreak);

Notice

Quote:

i gave up on this whole project. the reason is lack of satisfaction. ya, this is the end of developments, so no future updates, no bug fixing and no technical support.

the next version (v1.0.0.3) is also cancelled out.

TrayIcon is the last feature that FMXInno gets.

thank you for being with this all this time.

hitman797 · #5 16-01-2023, 22:44

Quote:

Originally Posted by audiofeel

Well, let's say I just want the button to be inactive, that is, it does not respond to events. So this advice is not suitable (and I know this way). We are talking about the broken function of the "FPictureButton" button . You give an example of a script with the button "FPictureButton2" these are two different objects.
P.S.
Just check if anyone has this working with "FPictureButton"

Code:

procedure Enabled(Enable: Boolean);
...
and
...
SetText(const FText: WideString);

it's not working properly the problem in the function.
thank you, @audiofeel

BLACKFIRE69 · #6 17-01-2023, 02:18

Quote:

Originally Posted by audiofeel

Well, let's say I just want the button to be inactive, that is, it does not respond to events. So this advice is not suitable (and I know this way). We are talking about the broken function of the "FPictureButton" button . You give an example of a script with the button "FPictureButton2" these are two different objects.
P.S.
Just check if anyone has this working with "FPictureButton"

Code:

procedure Enabled(Enable: Boolean);
...
and
...
SetText(const FText: WideString);

it's not fair if i don't fix this...

____________________________________

Added last update to first post.

.

BLACKFIRE69 · #7 18-01-2023, 13:17

FMXInno - Dev

Code:

* Fully customizable UWP Tiles was a feature in the version v.1.0.0.3

* it's the only feature which supported by its predecessor, FMXInno v1.0.0.2

* if you are interested, i can add this feature on request.

,

hitman797 · #8 19-01-2023, 03:04

Quote:

Originally Posted by BLACKFIRE69

FMXInno - Dev

Code:

* Fully customizable UWP Tiles was a feature in the version v.1.0.0.3

* it's the only feature which supported by its predecessor, FMXInno v1.0.0.2

* if you are interested, i can add this feature on request.

,

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

Comp3Name=Game crack>CPY                                              
Comp3Size=50
Comp3Group=2
                                                  
Comp4Name=Game crack>3DM                                               
Comp4Size=50
Comp4Group=2

Comp5Name=Game crack>STP                                              
Comp5Size=50
Comp5Group=2

Comp6Name=Offline MP                                              
Comp6Size=4000
Comp6Group=0

Code:

procedure SetupUI_Init(Handle1, Handle2, Handle3: HWND);
  external 'func01@files:ISFMXUI.dll cdecl';
procedure SetupUI_Deinit;
  external 'func02@files:ISFMXUI.dll stdcall';
procedure SetupUI_Show;                                          
  external 'func03@files:ISFMXUI.dll stdcall';
procedure SetupUI_SetDir(Dir: PAnsiChar);
  external 'func04@files:ISFMXUI.dll stdcall';
procedure SetupUI_Install;
  external 'func05@files:ISFMXUI.dll stdcall';
procedure SetupUI_Progress(Status, Filename: PAnsiChar; Curr, Max: Integer);
  external 'func06@files:ISFMXUI.dll stdcall';
procedure SetupUI_Finished(Success: Boolean);
  external 'func07@files:ISFMXUI.dll cdecl';
procedure SetupUI_Info(Info1, Info2: String);
  external 'func08@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddComponent(Component: String; Size, Group: Integer; Redist: Boolean);
  external 'func09@files:ISFMXUI.dll cdecl';
function SetupUI_Component(Component: String): Boolean;
  external 'func10@files:ISFMXUI.dll cdecl';
function SetupUI_Shortcuts(Desktop: Boolean): Boolean;
  external 'func11@files:ISFMXUI.dll stdcall';
procedure SetupUI_AddBkgImg1(Buff: PAnsiChar; Size: Integer);
  external 'func12@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddBkgImg2(Filename: String);                                                           
  external 'func13@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddAppInfo(Info: String);
  external 'func14@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddInstInfo(Info: String);
  external 'func15@files:ISFMXUI.dll cdecl';

Cesar82 · #9 19-01-2023, 08:58

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

Comp3Name=Game crack>CPY                                              
Comp3Size=50
Comp3Group=2
                                                  
Comp4Name=Game crack>3DM                                               
Comp4Size=50
Comp4Group=2

Comp5Name=Game crack>STP                                              
Comp5Size=50
Comp5Group=2

Comp6Name=Offline MP                                              
Comp6Size=4000
Comp6Group=0

Code:

procedure SetupUI_Init(Handle1, Handle2, Handle3: HWND);
  external 'func01@files:ISFMXUI.dll cdecl';
procedure SetupUI_Deinit;
  external 'func02@files:ISFMXUI.dll stdcall';
procedure SetupUI_Show;                                          
  external 'func03@files:ISFMXUI.dll stdcall';
procedure SetupUI_SetDir(Dir: PAnsiChar);
  external 'func04@files:ISFMXUI.dll stdcall';
procedure SetupUI_Install;
  external 'func05@files:ISFMXUI.dll stdcall';
procedure SetupUI_Progress(Status, Filename: PAnsiChar; Curr, Max: Integer);
  external 'func06@files:ISFMXUI.dll stdcall';
procedure SetupUI_Finished(Success: Boolean);
  external 'func07@files:ISFMXUI.dll cdecl';
procedure SetupUI_Info(Info1, Info2: String);
  external 'func08@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddComponent(Component: String; Size, Group: Integer; Redist: Boolean);
  external 'func09@files:ISFMXUI.dll cdecl';
function SetupUI_Component(Component: String): Boolean;
  external 'func10@files:ISFMXUI.dll cdecl';
function SetupUI_Shortcuts(Desktop: Boolean): Boolean;
  external 'func11@files:ISFMXUI.dll stdcall';
procedure SetupUI_AddBkgImg1(Buff: PAnsiChar; Size: Integer);
  external 'func12@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddBkgImg2(Filename: String);                                                           
  external 'func13@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddAppInfo(Info: String);
  external 'func14@files:ISFMXUI.dll cdecl';
procedure SetupUI_AddInstInfo(Info: String);
  external 'func15@files:ISFMXUI.dll cdecl';

I think the project is over, see #post.

ffmla · #10 21-01-2023, 07:48

Quote:

Originally Posted by audiofeel

Another example of the work of "FMXInno". The choice of additional components, the choice of voice acting, and so on little things. hitman797 helped somewhere . This is just an example - don't use it in real applications.

My AV found the compiled output as a suspicious program

. Anyway thanks for the script.Looks nice.

ADMIRAL · #11 10-02-2023, 10:55

Quote:

Originally Posted by audiofeel

Q. Which script-project deserves to be revived on FMXInno ?

Hello dear friend
To answer your question, choose is Metro11
If you add the user loading page and goodbye page and also video on backgroud it will be the best installer ever made

ADMIRAL · #12 11-02-2023, 20:00

Quote:

Originally Posted by audiofeel

[SPOILER]
Well, it's not serious. More like..."and I like green markers." The script "Metro11" already has a lot of pages, buttons and not quite necessary information. Most users won't even read it. There is an unspoken rule - "no more than five buttons" otherwise most users will simply close the installer (it is not for nothing that the Microsoft campaign advised all software manufacturers to abandon unnecessary pages such as a greeting or an initial invitation). And simple guys like scripts where - "I changed two pictures and a couple of names and the script for another game is ready." And in "Metro11" you will have to try to adapt this script to another game, find a bunch of icons, change the music, slide shows, videos, etc. and so on. Perhaps a video on the background is a good idea, but again - then what size will the installer file have?
[/SPOILER]

I only suggested what was in the corepack version, and if there is no need for more pages, then maybe the background video is not a problem for this script.

BLACKFIRE69 · #13 04-03-2023, 17:13

Quote:

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

Code:

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

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

Code:

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

but why?

Code:

IXBass :
procedure SetVolume(Const Vol: Integer);


FTrackBar :
function GetValue: Single;

BLACKFIRE69 · #14 05-03-2023, 06:02

Quote:

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.

Code:

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

if anyone knows a better way let me know.

Cesar82 · #15 05-03-2023, 07:17

Quote:

Originally Posted by BLACKFIRE69

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.

Code:

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

if anyone knows a better way let me know.

This makes changing the volume a little smoother.
I hope it helps you!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM	BLACKFIRE69	Conversion Tutorials	0	15-11-2023 17:35
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
Frequently Asked Questions	Joe Forster/STA	PC Games - Frequently Asked Questions	0	29-11-2005 09:48

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

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

The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
hitman797 (16-01-2023)

The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (17-01-2023), hitman797 (17-01-2023)

The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (18-01-2023), Cesar82 (18-01-2023), Gehrman (21-01-2023), hitman797 (18-01-2023)

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

The Following 2 Users Say Thank You to Cesar82 For This Useful Post:
BLACKFIRE69 (19-01-2023), hitman797 (19-01-2023)

The Following User Says Thank You to ffmla For This Useful Post:
audiofeel (21-01-2023)

The Following User Says Thank You to ADMIRAL For This Useful Post:
audiofeel (10-02-2023)

The Following User Says Thank You to ADMIRAL For This Useful Post:
audiofeel (12-02-2023)

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

The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (05-03-2023), Behnam2018 (02-01-2025)

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