Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #181  
Old 16-01-2023, 10:03
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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);
Attached Images
File Type: png FMX.png (829.9 KB, 196 views)
Attached Files
File Type: 7z FMXInno 14-01-2023.7z (3.37 MB, 10 views)
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (16-01-2023)
Sponsored Links
  #182  
Old 16-01-2023, 11:15
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 311
Thanks: 368
Thanked 661 Times in 250 Posts
audiofeel is on a distinguished road
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);
__________________
https://steamcommunity.com/id/LiLBabushka
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (16-01-2023)
  #183  
Old 16-01-2023, 12:19
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 632
Thanks: 447
Thanked 2,173 Times in 507 Posts
BLACKFIRE69 is on a distinguished road
Arrow 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.
Attached Images
File Type: png 2.png (19.8 KB, 205 views)
File Type: png 3.png (29.7 KB, 206 views)
File Type: png 0.png (64.7 KB, 207 views)
File Type: png 1.png (79.0 KB, 205 views)

Last edited by BLACKFIRE69; 31-03-2023 at 09:47.
Reply With Quote
The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
hitman797 (16-01-2023)
  #184  
Old 16-01-2023, 22:44
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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
Attached Images
File Type: png btn.png (198.1 KB, 206 views)
Attached Files
File Type: 7z FMXInno 14-01-2023.7z (3.36 MB, 7 views)
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (16-01-2023)
  #185  
Old 16-01-2023, 22:54
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 311
Thanks: 368
Thanked 661 Times in 250 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
it's not working properly the problem in the function.
thank you, @audiofeel
Thanks. Everything fell into place. But Sensei left us
__________________
https://steamcommunity.com/id/LiLBabushka
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (16-01-2023)
  #186  
Old 17-01-2023, 02:18
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 632
Thanks: 447
Thanked 2,173 Times in 507 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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.



.
Attached Images
File Type: png 1.png (59.3 KB, 201 views)

Last edited by BLACKFIRE69; 31-03-2023 at 09:47.
Reply With Quote
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (17-01-2023), hitman797 (17-01-2023)
  #187  
Old 18-01-2023, 13:17
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 632
Thanks: 447
Thanked 2,173 Times in 507 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Dev

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.
,
Attached Images
File Type: png 2.png (285.6 KB, 170 views)
File Type: png 1.png (538.2 KB, 170 views)
File Type: gif UWP.gif (409.9 KB, 174 views)

Last edited by BLACKFIRE69; 31-03-2023 at 09:47.
Reply With Quote
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)
  #188  
Old 18-01-2023, 14:01
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 311
Thanks: 368
Thanked 661 Times in 250 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View 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.
,
Of course it's interesting. Version 1.0.0.3 is needed
__________________
https://steamcommunity.com/id/LiLBabushka
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (18-01-2023)
  #189  
Old 19-01-2023, 03:04
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View 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.
,
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';
Attached Images
File Type: png wpi1801.png (610.9 KB, 169 views)
Attached Files
File Type: 7z wpi1801.7z (12.40 MB, 54 views)
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (25-03-2023)
  #190  
Old 19-01-2023, 08:58
Cesar82's Avatar
Cesar82 Cesar82 is online now
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 960
Thanks: 1,648
Thanked 2,096 Times in 707 Posts
Cesar82 is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
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.
Reply With Quote
The Following 2 Users Say Thank You to Cesar82 For This Useful Post:
BLACKFIRE69 (19-01-2023), hitman797 (19-01-2023)
  #191  
Old 19-01-2023, 09:33
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
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
Reply With Quote
  #192  
Old 19-01-2023, 15:04
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
Metro Installer

Metro Installer
Attached Images
File Type: png 123456.png (742.4 KB, 158 views)
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
ScOOt3r (19-01-2023)
  #193  
Old 21-01-2023, 02:53
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 311
Thanks: 368
Thanked 661 Times in 250 Posts
audiofeel is on a distinguished road
xatab Style

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.
__________________
https://steamcommunity.com/id/LiLBabushka

Last edited by audiofeel; 27-12-2023 at 10:08.
Reply With Quote
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)
  #194  
Old 21-01-2023, 07:48
ffmla ffmla is offline
Registered User
 
Join Date: Nov 2014
Location: Digital world
Posts: 112
Thanks: 601
Thanked 65 Times in 41 Posts
ffmla is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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.
Reply With Quote
The Following User Says Thank You to ffmla For This Useful Post:
audiofeel (21-01-2023)
  #195  
Old 21-01-2023, 11:12
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 163
Thanks: 379
Thanked 172 Times in 114 Posts
hitman797 is on a distinguished road
Metro Installer

Metro Installer
Attached Images
File Type: png MI2.png (696.2 KB, 371 views)
Reply With Quote
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)
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

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



All times are GMT -7. The time now is 05:34.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Copyright 2000-2020, FileForums @ https://fileforums.com