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

Reply
 
Thread Tools Display Modes
  #436  
Old 24-08-2023, 11:45
crachlow's Avatar
crachlow crachlow is offline
Registered User
 
Join Date: Nov 2017
Location: Eka-burg
Posts: 21
Thanks: 40
Thanked 10 Times in 6 Posts
crachlow is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
and if like this? even better...
Code:
procedure DiskListOnChange(Sender: TObject);
var
  S: String;
begin
  S := DirEdt.GetText;
  StringChange(S, ExtractFileDrive(S), DiskList.GetSelectedDisk);
  DirEdt.Text(S);
   case wGetDriveMediaType(S) of
   0: FMXLabel.Text('Unknown');
   3: FMXLabel.Text('HDD');
   4: FMXLabel.Text('SSD');
   5: FMXLabel.Text('SCM');
   end;
end;
Well, what did you do?
Reply With Quote
Sponsored Links
  #437  
Old 24-08-2023, 12:09
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by crachlow View Post
Well, what did you do?
Example

Last edited by audiofeel; 27-12-2023 at 11:07.
Reply With Quote
The Following 2 Users Say Thank You to audiofeel For This Useful Post:
BLACKFIRE69 (26-08-2023), hitman797 (24-08-2023)
  #438  
Old 24-08-2023, 12:55
crachlow's Avatar
crachlow crachlow is offline
Registered User
 
Join Date: Nov 2017
Location: Eka-burg
Posts: 21
Thanks: 40
Thanked 10 Times in 6 Posts
crachlow is on a distinguished road
It's bad that usb does not recognize.
Reply With Quote
  #439  
Old 26-08-2023, 15:16
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 672
Thanks: 473
Thanked 2,404 Times in 546 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Updates

Update available!


Quote:
Originally Posted by audiofeel View Post
@BLACKFIRE69
I understand that the scale function is in the process of being finalized and tested ... but could you at least temporarily fix this bug. When the user changes the desktop scale from the recommended system (i.e. 100%) then "FFolderTreeView" floats away and is not visible. This appeared on the latest dll.
--
But the good old "FDirBrowse" feels much better. And it scales correctly. Somehow it even became a shame for "FFluentDirBrowse".

the FluentApi v2.0 update was responsible for this problem, however, it has been successfully addressed and fixed.





Quote:
Originally Posted by hitman797 View Post
FMXInno Viewport 3D Example using:
@BLACKFIRE69
HI, BLACKFIRE69
Thank you for the update.
Can you add BringToFront to "FLayer3D".

this update brings more properties to classes, and that includes this one too.

NOTE:
This update involves modifications to certain functions/procedures, which might require adjustments to current scripts.






Quote:
Originally Posted by crachlow View Post
const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;



It's bad that usb does not recognize.

Ok, let's update the wGetDriveMediaType function.


Code:
function wGetDriveMediaType(const DriveLetter: WideString): Integer;

function wGetDriveMediaTypeEx(const DriveLetter: WideString; 
  out HealthStatus, Usage: Integer): Integer;

Code:
{ Drive Media Type }
const
  HDD_MEDIA_TYPE_UNKNOWN        = $0000;
  HDD_MEDIA_TYPE_USB            = $0001;
  HDD_MEDIA_TYPE_SD             = $0002;
  HDD_MEDIA_TYPE_HDD            = $0003;
  HDD_MEDIA_TYPE_SSD            = $0004;
  HDD_MEDIA_TYPE_SCM            = $0005;
  HDD_MEDIA_TYPE_NVMe           = $0006;

{ Drive Health }
const
  HDD_HEALTH_STATUS_HEALTHY     = $0000;
  HDD_HEALTH_STATUS_WARNING     = $0001;
  HDD_HEALTH_STATUS_UNHEALTHY   = $0002;
  HDD_HEALTH_STATUS_UNKNOWN     = $0005;

{ Drive Usage }
const
  HDD_USAGE_UNKWOWN             = $0000;
  HDD_USAGE_AUTO_SELECT         = $0001; // used for data storage.
  HDD_USAGE_MANUAL_SELECT       = $0002; // used if manually selected by an administrator at the time of virtual disk creation.
  HDD_USAGE_RETIRED             = $0004; // retired from use
  HDD_USAGE_CACHE               = $0005; // used as a cache for other devices.


the first post has been updated.


.

Last edited by BLACKFIRE69; 26-08-2023 at 15:29.
Reply With Quote
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (26-08-2023), crachlow (27-08-2023), hitman797 (27-08-2023), Tihiy_Don (11-09-2023)
  #440  
Old 26-08-2023, 19:08
macut18's Avatar
macut18 macut18 is offline
Registered User
 
Join Date: Jun 2017
Location: Thailand
Posts: 21
Thanks: 82
Thanked 6 Times in 4 Posts
macut18 is on a distinguished road
#Script1.iss
when i already installed the first game The next game will be on the same drive as the first game installed.


Last edited by macut18; 26-08-2023 at 19:12.
Reply With Quote
  #441  
Old 26-08-2023, 19:47
ScOOt3r ScOOt3r is offline
Registered User
 
Join Date: Jun 2019
Location: Canada
Posts: 75
Thanks: 605
Thanked 38 Times in 33 Posts
ScOOt3r is on a distinguished road
@macut18 yes i currently use this script for my Repacks and you cant install 2 games with it in the same spot as it will do that.. but i just install one test it and then remove it..

ScOOt3r
Reply With Quote
The Following User Says Thank You to ScOOt3r For This Useful Post:
macut18 (26-08-2023)
  #442  
Old 27-08-2023, 02:28
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by macut18 View Post
#Script1.iss
when i already installed the first game The next game will be on the same drive as the first game installed.

It doesn't completely fix it, but it's a little better

Last edited by audiofeel; 27-12-2023 at 11:07.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
macut18 (27-08-2023)
  #443  
Old 27-08-2023, 03:48
macut18's Avatar
macut18 macut18 is offline
Registered User
 
Join Date: Jun 2017
Location: Thailand
Posts: 21
Thanks: 82
Thanked 6 Times in 4 Posts
macut18 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
It doesn't completely fix it, but it's a little better
The problem was solved, thank you very much.
Reply With Quote
The Following User Says Thank You to macut18 For This Useful Post:
audiofeel (27-08-2023)
  #444  
Old 27-08-2023, 04:12
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
Somebody....I need help
You need to hide the buttons - AboutTabControl.TabPosition(tpNone);
But at the same time, my other custom buttons behave strangely, which are not related to this - AboutTabBtn[1]
If you specify like this - AboutTabControl.TabPosition(tpDots);
Then everything is fine, but I need to hide the dots

Last edited by audiofeel; 27-08-2023 at 12:36.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
macut18 (27-08-2023)
  #445  
Old 27-08-2023, 05:01
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
@BLACKFIRE69
Thanks for the update. Please answer, Can you make it so that you can take the icons from the system and not take them with you. By simply specifying the file index and icon, as is possible for any file on the system. And for displaying disks, and for displaying buttons "close the window", "minimize the window" and for many others. If not, then I'm just passing by.

Last edited by audiofeel; 27-12-2023 at 11:07.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
BLACKFIRE69 (27-08-2023)
  #446  
Old 27-08-2023, 05:34
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 168
Thanks: 452
Thanked 182 Times in 118 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
Somebody....I need help
You need to hide the buttons - AboutTabControl.TabPosition(tpNone);
But at the same time, my other custom buttons behave strangely, which are not related to this - AboutTabBtn[1]
If you specify like this - AboutTabControl.TabPosition(tpDots);
Then everything is fine, but I need to hide the dots
Code:
  AboutTabControl.FCreate(AboutPage.Handle);
  AboutTabControl.SetBounds(100, 130, 1046, 448);
  AboutTabControl.TabPosition(tpNone);

  for i:= 1 to 3 do
  begin
    AboutTabItem[i].FCreateEx(AboutTabControl.Handle);
    AboutLbl[i].FCreate(AboutTabItem[i].Handle);
    AboutLbl[i].FontSetting('{#Font}', VCLFontSizeToFMX(22), ALWhiteSmoke);
    AboutLbl[i].TextSetting(False, txCenter, txCenter);
    AboutLbl[i].SetBounds(0, 18, 1046, 24)

    AboutMemo[i].FCreate(AboutTabItem[i].Handle, True);
    AboutMemo[i].SetBounds(28, 59, 1017, 358);
    AboutMemo[i].FontSetting('{#Font}', VCLFontSizeToFMX2(12), ALWhiteSmoke);
    AboutMemo[i].WordWrap(True);
    AboutMemo[i].ReadOnly(True);
    AboutMemo[i].ScrollAnimation(True);
  end;

  AboutLbl[1].Text(AnsiUppercase('About Game'));
  AboutLbl[2].Text(AnsiUppercase('About Repack'));
  AboutLbl[3].Text(AnsiUppercase('Credits'));

  AboutMemo[1].AddLine(CnvtToWStr(S1));
  AboutMemo[2].AddLine(CnvtToWStr(S2));
  AboutMemo[3].AddLine(CnvtToWStr(S3));

  AboutTabBtn[1].FCreate(AboutTabControl.Handle);
  AboutTabBtn[1].SetBounds(572, 590, 50, 30);
  AboutTabBtn[1].FillColor({#Color1});
  AboutTabBtn[1].StrokeColor({#Color2});
  AboutTabBtn[1].StrokeSetting(1.0, scFlat, sdSolid, sjMiter);
  AboutTabBtn[1].CornerStyle(16, 16, [tcTopLeft, tcBottomLeft], ctBevel);
  AboutTabBtnLbl[1].FCreate(AboutTabBtn[1].Handle);
  AboutTabBtnLbl[1].Text(#$E938);
  AboutTabBtnLbl[1].Align(Client)
  AboutTabBtnLbl[1].AutoSize(True);
  AboutTabBtnLbl[1].TextSetting(False, txCenter, txCenter);
  AboutTabBtnLbl[1].FontSetting('Segoe MDL2 Assets', 14, ALBlack);
  AboutTabBtnLbl[1].OnMouseEnter(@CommonMouseEnter);
  AboutTabBtnLbl[1].OnMouseLeave(@CommonMouseLeave);
  AboutTabBtnLbl[1].OnClick(@CommonOnClick);

  AboutTabBtn[2].FCreate(AboutTabControl.Handle);
  AboutTabBtn[2].SetBounds(622, 590, 50, 30);
  AboutTabBtn[2].FillColor({#Color1});
  AboutTabBtn[2].StrokeColor({#Color2});
  AboutTabBtn[2].StrokeSetting(1.0, scFlat, sdSolid, sjMiter);
  AboutTabBtn[2].CornerStyle(16, 16, [tcTopRight, tcBottomRight], ctBevel);
  AboutTabBtnLbl[2].FCreate(AboutTabBtn[2].Handle);
  AboutTabBtnLbl[2].Text(#$E937);
  AboutTabBtnLbl[2].Align(Client)
  AboutTabBtnLbl[2].AutoSize(True);
  AboutTabBtnLbl[2].TextSetting(False, txCenter, txCenter);
  AboutTabBtnLbl[2].FontSetting('Segoe MDL2 Assets', 14, ALBlack);
  AboutTabBtnLbl[2].OnMouseEnter(@CommonMouseEnter);
  AboutTabBtnLbl[2].OnMouseLeave(@CommonMouseLeave);
  AboutTabBtnLbl[2].OnClick(@CommonOnClick);
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (27-08-2023)
  #447  
Old 27-08-2023, 06:19
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
@hitman797
Thanks for the support. This did not solve the problem, (the buttons you pointed to AboutTabControl) they move along with AboutTabItem[i]. For now, I just increased the width and hid the dots under my buttons.

Last edited by audiofeel; 27-08-2023 at 09:05.
Reply With Quote
  #448  
Old 27-08-2023, 07:14
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 168
Thanks: 452
Thanked 182 Times in 118 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
@hitman797
Thanks for the support. This did not solve the problem, (the buttons you pointed to AboutTabControl) they move along with AboutTabItem[i]. For now, I just increased the width and hid the dots under my buttons.
https://youtu.be/c802o9WLJDE?si=RL6W_PkPQK2Uzite
you need 2 TabControl
add 1 TabItem in TabControl1
and add the buttons in TabItem in TabControl1.
in TabControl2 add TabItem[i] in TabItem[i] add Memo[i].
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (27-08-2023)
  #449  
Old 27-08-2023, 08:28
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
you need 2 TabControl
add 1 TabItem in TabControl1
and add the buttons in TabItem in TabControl1.
in TabControl2 add TabItem[i] in TabItem[i] add Memo[i].
You understand that they will overlap each other. But anyway thanks for the help again. And yes, I solved this glitch. The 'FCreateImageForm' form is to blame. This is the fastest form in terms of loading and initialization, but it is also the strangest one itself, most of all incomprehensible phenomena occur on it, such as not playing video, not playing GIF animation and more ... a glitch with 'FTabControl' was added to them. I just changed the form to 'FCreateBlankForm'. A white square appeared again at startup, but without a glitch in 'FTabControl'.

Last edited by audiofeel; 27-08-2023 at 12:37.
Reply With Quote
The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (27-08-2023)
  #450  
Old 27-08-2023, 09:22
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 372
Thanks: 446
Thanked 862 Times in 312 Posts
audiofeel is on a distinguished road
MultiView. Needed sometimes. beautiful and modern thing, it's a pity that it is not in FMXInno...

Last edited by audiofeel; 27-12-2023 at 11:07.
Reply With Quote
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 05:25.


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