FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - FMXInno - Windows Fluent Design Installer UI for Inno (https://fileforums.com/showthread.php?t=104852)

FMXInno - Updates

Quote:

Originally Posted by BLACKFIRE69 (Post 499739)

Code:

What's new:



1. Added full control of Taskbar.

Code:

1. Added an extra option (Taskbar Flash).

  - procedure pTaskBarFlash(FValue: Boolean);

Quote:

Originally Posted by audiofeel (Post 499792)

file "data1.bf" no. but it is deduced that he is just "bad". in my opinion it should be like "missing"?

yes, it should show as "missing". sorry for my little mistake. :D

.

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:

https://cdn.discordapp.com/attachmen...2826/image.png

Is this an FMXInno problem? Thanks!

Quote:

Originally Posted by Masquerade (Post 499807)

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

.

Quote:

Originally Posted by audiofeel (Post 499832)

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

FMXInno - Updates

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.

Quote:

Originally Posted by audiofeel (Post 499840)

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

Quote:

Originally Posted by audiofeel (Post 499840)

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.

.

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.

Quote:

Originally Posted by BLACKFIRE69 (Post 499876)

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';

Quote:

Originally Posted by hitman797 (Post 499884)

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.

FloatAnimation

Code:

var

    Layout1: TLayout;

    Rectangle1: TRectangle;

    FloatAnimation1: TFloatAnimation;

    FloatAnimation2: TFloatAnimation;

Code:

procedure TForm2.Rectangle1MouseEnter(Sender: TObject);

begin

 FloatAnimation2.Enabled:=False;

 FloatAnimation1.Enabled:=True;

end;



procedure TForm2.Rectangle1MouseLeave(Sender: TObject);

begin

 FloatAnimation1.Enabled:=False;

 FloatAnimation2.Enabled:=True;

end;

Code:

object Form2: TForm2

  Left = 0

  Top = 0

  Caption = 'Form2'

  ClientHeight = 480

  ClientWidth = 640

  FormFactor.Width = 320

  FormFactor.Height = 480

  FormFactor.Devices = [Desktop]

  DesignerMasterStyle = 0

  object Layout1: TLayout

    Align = VertCenter

    Size.Width = 640.000000000000000000

    Size.Height = 480.000000000000000000

    Size.PlatformDefault = False

    TabOrder = 0

    object Rectangle1: TRectangle

      Align = Left

      Fill.Color = claBlack

      Opacity = 0.800000011920929000

      Size.Width = 49.000000000000000000

      Size.Height = 480.000000000000000000

      Size.PlatformDefault = False

      Stroke.Thickness = 0.000000000000000000

      OnMouseEnter = Rectangle1MouseEnter

      OnMouseLeave = Rectangle1MouseLeave

      object FloatAnimation1: TFloatAnimation

        AnimationType = InOut

        Delay = 0.200000002980232200

        Duration = 0.500000000000000000

        Interpolation = Back

        PropertyName = 'Width'

        StartValue = 56.000000000000000000

        StartFromCurrent = True

        StopValue = 256.000000000000000000

      end

      object FloatAnimation2: TFloatAnimation

        AnimationType = InOut

        Delay = 0.200000002980232200

        Duration = 0.500000000000000000

        Interpolation = Back

        PropertyName = 'Width'

        StartValue = 256.000000000000000000

        StartFromCurrent = True

        StopValue = 56.000000000000000000

      end

    end

  end

end

FloatAnimation

Metro Installer

Metro Installer

Quote:

Originally Posted by audiofeel (Post 499912)

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. :rolleyes:

My AV found the compiled output as a suspicious program;). Anyway thanks for the script.Looks nice.

Metro Installer

Metro Installer