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

hitman797 · #**181** 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);

audiofeel · #**182** 16-01-2023, 11:15

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

BLACKFIRE69 · #**183** 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 · #**184** 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

audiofeel · #**185** 16-01-2023, 22:54

Quote:

Originally Posted by hitman797

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

Thanks. Everything fell into place. But Sensei left us

BLACKFIRE69 · #**186** 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 · #**187** 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.

,

audiofeel · #**188** 18-01-2023, 14:01

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.

,

Of course it's interesting. Version 1.0.0.3 is needed

hitman797 · #**189** 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 · #**190** 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.

hitman797 · #**191** 19-01-2023, 09:33

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

hitman797 · #**192** 19-01-2023, 15:04

Metro Installer

Metro Installer

audiofeel · #**193** 21-01-2023, 02:53

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.

ffmla · #**194** 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.

hitman797 · #**195** 21-01-2023, 11:12

Metro Installer

Metro Installer

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 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 hitman797 For This Useful Post:
audiofeel (16-01-2023)

The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (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 audiofeel For This Useful Post:
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 hitman797 For This Useful Post:
ScOOt3r (19-01-2023)

The Following 5 Users Say Thank You to audiofeel For This Useful Post:
ADMIRAL (21-01-2023), BLACKFIRE69 (21-01-2023), Cesar82 (21-01-2023), hitman797 (21-01-2023), ScOOt3r (21-01-2023)

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

The Following 3 Users Say Thank You to hitman797 For This Useful Post:
audiofeel (21-01-2023), Behnam2018 (27-01-2023), Gehrman (22-01-2023)