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

Reply
 
Thread Tools Display Modes
  #631  
Old 15-11-2023, 00:11
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by ADMIRAL View Post
thanks for answer but it's was about metro0 script that you posted
@ADMIRAL,

after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script.


Code:
Edit1: 

* Replace the current 'ListBoxOnChange' code with this.

procedure ListBoxOnChange(Sender: TObject);
var
  ADir: String;
begin
  if (FMXListBox[2].GetItemIndex > -1) then
  begin
    ADir := FMXEdit[1].GetText;
    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

procedure ListBx3OnChange(Sender: TObject);
var
  ADir: WideString;
begin
  if FMXListBox[3].GetItemIndex > -1 then
  begin
    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

Code:
Edit2: 

* Comment out the following line in the code.

//FMXEdit[1].OnChange(@ListBoxOnChange);

Code:
Edit3: 

* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].

FMXListBox[3].OnChange(@ListBx3OnChange);
.

Last edited by BLACKFIRE69; 14-07-2024 at 03:12.
Reply With Quote
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
ADMIRAL (15-11-2023), audiofeel (15-11-2023), hitman797 (15-11-2023)
Sponsored Links
  #632  
Old 15-11-2023, 01:15
audiofeel's Avatar
audiofeel audiofeel is online now
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Smile

Quote:
Originally Posted by BLACKFIRE69 View Post
@ADMIRAL,
after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script.
Code:
Edit1: 
* Replace the current 'ListBoxOnChange' code with this.
procedure ListBoxOnChange(Sender: TObject);
var
  ADir: String;
begin
  if (FMXListBox[2].GetItemIndex > -1) then
  begin
    ADir := FMXEdit[1].GetText;
    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;
    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;
procedure ListBx3OnChange(Sender: TObject);
var
  ADir: WideString;
begin
  if FMXListBox[3].GetItemIndex > -1 then
  begin
    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;
    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;
Code:
Edit2: 
* Comment out the following line in the code.
//FMXEdit[1].OnChange(@ListBoxOnChange);
Code:
Edit3: 
* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].
FMXListBox[3].OnChange(@ListBx3OnChange);
.
This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.

Last edited by audiofeel; 16-11-2023 at 07:25.
Reply With Quote
The Following 3 Users Say Thank You to audiofeel For This Useful Post:
ADMIRAL (15-11-2023), BLACKFIRE69 (15-11-2023), hitman797 (15-11-2023)
  #633  
Old 15-11-2023, 01:45
Masquerade's Avatar
Masquerade Masquerade is offline
Registered User
 
Join Date: Jan 2020
Location: Monte d'Or
Posts: 1,161
Thanks: 284
Thanked 1,354 Times in 614 Posts
Masquerade is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
@Masquerade, can you tell me which of the following tests works for you?
.
Test 1: Font works, hangs on closing
Test 1A: Font works, hangs on closing
Test 2: Font works, window closes but hangs in taskbar.
Test 2A: Font works, window closes but hangs in taskbar.
Reply With Quote
  #634  
Old 15-11-2023, 02:29
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by Masquerade View Post
Test 1: Font works, hangs on closing
Test 1A: Font works, hangs on closing
Test 2: Font works, window closes but hangs in taskbar.
Test 2A: Font works, window closes but hangs in taskbar.

ok mate. maybe try it on a different PC. here, everything works fine, even on virtual machines. also, try disabling the antivirus.
Reply With Quote
  #635  
Old 15-11-2023, 09:02
ADMIRAL's Avatar
ADMIRAL ADMIRAL is offline
Registered User
 
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 547
Thanked 40 Times in 34 Posts
ADMIRAL is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
@ADMIRAL,

after making a few changes to the code, you can make it work. however, if i'm correct, there're some aspects in the script that need further implementation. it would be better to ask the authors to complete the script.


Code:
Edit1: 

* Replace the current 'ListBoxOnChange' code with this.

procedure ListBoxOnChange(Sender: TObject);
var
  ADir: String;
begin
  if (FMXListBox[2].GetItemIndex > -1) then
  begin
    ADir := FMXEdit[1].GetText;
    StringChange(ADir, ExtractFileDrive(ADir), FMXListBox[2].GetItemText(FMXListBox[2].GetItemIndex));
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

procedure ListBx3OnChange(Sender: TObject);
var
  ADir: WideString;
begin
  if FMXListBox[3].GetItemIndex > -1 then
  begin
    ADir:= ExtractFileDrive(FMXEdit[1].GetText) + '\' + AddBackslash(FMXListBox[3].GetItemText(FMXListBox[3].GetItemIndex)) + '{#MyAppName}';
    FMXLabel[197].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    FMXEdit[1].Text(MinimizePathName(ADir, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width));
    WizardForm.DirEdit.Text:= ADir;

    FMXDiskUsage.SetDir(WizardForm.DirEdit.Text);
    FMXLabel[82].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1));
    FMXLabel[85].Text(MbOrTb(FMXDiskUsage.FreeSpace, 1) + ' is available from the selected drive');
    FMXArc[5].Angle(FMXDiskUsage.FreeSpace, FMXDiskUsage.TotalSpace);
  end;
end;

Code:
Edit2: 

* Comment out the following line in the code.

//FMXEdit[1].OnChange(@ListBoxOnChange);

Code:
Edit3: 

* Replace the ListBoxOnChange event with ListBx3OnChange for the FMXListBox[3].

FMXListBox[3].OnChange(@ListBx3OnChange);
.

Thank you for your quick reply, but even with the edit's codes, I am still facing the same problem. Are there any problems for you with these codes in the script?
__________________
Search and Find
Reply With Quote
  #636  
Old 15-11-2023, 09:06
ADMIRAL's Avatar
ADMIRAL ADMIRAL is offline
Registered User
 
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 547
Thanked 40 Times in 34 Posts
ADMIRAL is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.
==Here is the latest "clean version" for the changes==
In the first test, my partitions and folders were not displayed at all, and by adding codes, I only encountered errors.
__________________
Search and Find
Reply With Quote
  #637  
Old 15-11-2023, 09:10
ADMIRAL's Avatar
ADMIRAL ADMIRAL is offline
Registered User
 
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 547
Thanked 40 Times in 34 Posts
ADMIRAL is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
This part of the code was implemented by @Hitman797. I think that sometimes he will have a free hour and he will fix everything thanks to your edits in the code.
==Here is the latest "clean version" for the changes==
Again, I tried to change the redirection section similar to the photo by simulating the codes, but again it was useless because the coding method is different in both.
Attached Images
File Type: jpg Untitled.jpg (51.2 KB, 100 views)
__________________
Search and Find
Reply With Quote
  #638  
Old 15-11-2023, 13:18
Masquerade's Avatar
Masquerade Masquerade is offline
Registered User
 
Join Date: Jan 2020
Location: Monte d'Or
Posts: 1,161
Thanks: 284
Thanked 1,354 Times in 614 Posts
Masquerade is on a distinguished road
Weird... I installed the font to my system and now all is fine
Sorry for the issues! Inno isn't my thing...
Reply With Quote
  #639  
Old 16-11-2023, 00:48
audiofeel's Avatar
audiofeel audiofeel is online now
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 366
Thanks: 439
Thanked 837 Times in 306 Posts
audiofeel is on a distinguished road
Exclamation Test

Quote:
Originally Posted by ADMIRAL View Post
In the first test, my partitions and folders were not displayed at all, and by adding codes, I only encountered errors.
@ADMIRAL Test whether your directory selection is working correctly now

Last edited by audiofeel; 27-12-2023 at 11:06.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
ADMIRAL (16-11-2023)
  #640  
Old 16-11-2023, 07:54
ADMIRAL's Avatar
ADMIRAL ADMIRAL is offline
Registered User
 
Join Date: Oct 2019
Location: iran
Posts: 92
Thanks: 547
Thanked 40 Times in 34 Posts
ADMIRAL is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
@ADMIRAL Test whether your directory selection is working correctly now
thanks to you
Yes, it worked this time
The path selection section works correctly, except that it does not show C drive folders for the first time, but the important thing is that the path can be selected.
and add folder button works too.

can you share the iss file?
__________________
Search and Find

Last edited by ADMIRAL; 16-11-2023 at 10:56.
Reply With Quote
The Following User Says Thank You to ADMIRAL For This Useful Post:
audiofeel (16-11-2023)
  #641  
Old 16-11-2023, 09:24
Jahan1373 Jahan1373 is offline
Registered User
 
Join Date: Jan 2022
Location: Yes
Posts: 46
Thanks: 92
Thanked 8 Times in 8 Posts
Jahan1373 is on a distinguished road
Thumbs up Script metro need for speed

Everything is great and good, only I saw 2 big problems, one of them did not have the date of the watch
2. When I chose the installation location, it wrote the volume on the image, it wrote the same. 2. There were only problems, thanks for your good script
Reply With Quote
The Following User Says Thank You to Jahan1373 For This Useful Post:
audiofeel (16-11-2023)
  #642  
Old 16-11-2023, 10:10
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 167
Thanks: 448
Thanked 180 Times in 117 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by Jahan1373 View Post
Everything is great and good, only I saw 2 big problems, one of them did not have the date of the watch
2. When I chose the installation location, it wrote the volume on the image, it wrote the same. 2. There were only problems, thanks for your good script
wait for @BLACKFIRE69 to update the library to add those things.
and you missing the music button and counter app running.
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (16-11-2023)
  #643  
Old 16-11-2023, 10:56
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Nov-16 - Hotfix-01

FMXInno - Nov-16 - Hotfix-01


Code:
1. Added wGetRunningAppCount on the request of @hitman797.
2. Added missing properties and fixed bugs reported by @audiofeel and @tihiy_don.
3. Some improvements.

i'll update the first article soon.

.

Last edited by BLACKFIRE69; 22-01-2024 at 22:53.
Reply With Quote
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
ADMIRAL (16-11-2023), audiofeel (16-11-2023), hitman797 (16-11-2023), Tihiy_Don (16-11-2023)
  #644  
Old 16-11-2023, 11:16
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 167
Thanks: 448
Thanked 180 Times in 117 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
FMXInno - Nov-16 - Hotfix-01


Code:
1. Added wGetRunningAppCount on the request of @hitman797.
2. Added missing properties and fixed bugs reported by @audiofeel and @tihiy_don.
3. Some improvements.

i'll update the first article soon.

.
great work, thank you for the update.
if we make GUI to this library that will help the authors to save a lot of time.

for the lock screen
Code:
  HeadForm.OnActivate(@OnActivate);
  HeadForm.OnDeactivate(@OnDeactivate);
Code:
procedure OnActivate(Event: TNotifyEvent);
procedure OnDeactivate(Event: TNotifyEvent);

Last edited by hitman797; 16-11-2023 at 12:06.
Reply With Quote
The Following 2 Users Say Thank You to hitman797 For This Useful Post:
audiofeel (16-11-2023), BLACKFIRE69 (16-11-2023)
  #645  
Old 16-11-2023, 20:10
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,394 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
for the lock screen
Code:
  HeadForm.OnActivate(@OnActivate);
  HeadForm.OnDeactivate(@OnDeactivate);

my apologies; you've requested this before, and though i had it in mind, it appears i forgot about it.


Code:
1. Added OnActivate and OnDeactivate events to lockscreen.
2. Added wGetUserCountryName function.

Last edited by BLACKFIRE69; 22-01-2024 at 22:54.
Reply With Quote
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (16-11-2023), hitman797 (16-11-2023), Tihiy_Don (16-11-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 18:35
Windows Phone Installer similar to razor12911's original design? Kitsune1982 Conversion Tutorials 0 02-07-2020 14:04
INDEX - Conversion Tutorial Index Razor12911 Conversion Tutorials 5 11-06-2020 03:05
Frequently Asked Questions Joe Forster/STA PC Games - Frequently Asked Questions 0 29-11-2005 10:48



All times are GMT -7. The time now is 04:49.


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