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

Reply
 
Thread Tools Display Modes
  #166  
Old 07-01-2023, 05:16
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 168
Thanks: 449
Thanked 182 Times in 118 Posts
hitman797 is on a distinguished road
Talking

Quote:
Originally Posted by BLACKFIRE69 View Post
is this look like 49%?

,
ok pro, I fix the problem.

Code:
procedure Timer1OnTimer(Sender: TObject);
var
  RAMPCT, CPUPCT, DiskPCT: Single;
begin
  CPUPCT:=(CPU.CpuLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(CPUPCT);
  PctLB.Text(IntToStr(Round(CPU.CpuLoad)));
  RAMPCT:=(RAM.RamLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc2.Arc.EndAngle(RAMPCT);
  PctLB2.Text(IntToStr(Round(RAM.RamLoad)));
  DiskPCT:=(Disk.DiskLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc3.Arc.EndAngle(DiskPCT);
  PctLB3.Text(IntToStr(Round(Disk.DiskLoad)));
end;
Attached Images
File Type: png PCT.png (495.8 KB, 243 views)
Attached Files
File Type: 7z Apex Installer.7z (2.78 MB, 8 views)

Last edited by hitman797; 07-01-2023 at 05:24.
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (07-01-2023)
Sponsored Links
  #167  
Old 07-01-2023, 05:58
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by hitman797 View Post
ok pro, I fix the problem.

Code:
procedure Timer1OnTimer(Sender: TObject);
var
  RAMPCT, CPUPCT, DiskPCT: Single;
begin
  CPUPCT:=(CPU.CpuLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(CPUPCT);
  PctLB.Text(IntToStr(Round(CPU.CpuLoad)));
  RAMPCT:=(RAM.RamLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc2.Arc.EndAngle(RAMPCT);
  PctLB2.Text(IntToStr(Round(RAM.RamLoad)));
  DiskPCT:=(Disk.DiskLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc3.Arc.EndAngle(DiskPCT);
  PctLB3.Text(IntToStr(Round(Disk.DiskLoad)));
end;

something still doesn't seem right....


for 0% :


.

Last edited by BLACKFIRE69; 14-07-2024 at 02:46.
Reply With Quote
The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023)
  #168  
Old 07-01-2023, 06:56
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
@hitman797, this works fine.

Code:
procedure Timer1OnTimer(Sender: TObject);
var
  delta1, delta2, delta3: Single;
  CPUPct, RAMPct, DiskPct: Cardinal;
begin
  CPUPct := CPU.CpuLoad;
  RAMPct := RAM.RamLoad;
  DiskPct := Disk.DiskLoad;

  delta1:=(CPUPct * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(delta1);
  PctLB.Text(IntToStr(CPUPct));

  delta2:=(RAMPct * (360 - 2 * C_ANGLE)) / 100;
  RoundArc2.Arc.EndAngle(delta2);
  PctLB2.Text(IntToStr(RAMPct));

  delta3:=(DiskPct * (360 - 2 * C_ANGLE)) / 100;
  RoundArc3.Arc.EndAngle(delta3);
  PctLB3.Text(IntToStr(DiskPct));
end;
Reply With Quote
The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023), Behnam2018 (10-01-2023), hitman797 (07-01-2023)
  #169  
Old 07-01-2023, 07:07
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 168
Thanks: 449
Thanked 182 Times in 118 Posts
hitman797 is on a distinguished road
Quote:
Originally Posted by BLACKFIRE69 View Post
something still doesn't seem right....

for 0% :

.
Code:
procedure Timer1OnTimer(Sender: TObject);
var
  PCT, RAMPCT, CPUPCT, DiskPCT: Single;
begin
  PCT:=(CPU.CpuLoad * 2.5);
  CPUPCT:=(PCT * (360 - 2 * C_ANGLE)) / 100;
  RoundArc.Arc.EndAngle(CPUPCT);
  PctLB.Text(IntToStr(Round(PCT)));
  RAMPCT:=(RAM.RamLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc2.Arc.EndAngle(RAMPCT);
  PctLB2.Text(IntToStr(Round(RAM.RamLoad)));
  DiskPCT:=(Disk.DiskLoad * (360 - 2 * C_ANGLE)) / 100;
  RoundArc3.Arc.EndAngle(DiskPCT);
  PctLB3.Text(IntToStr(Round(Disk.DiskLoad)));
end;
Attached Files
File Type: 7z Apex Installer.7z (2.78 MB, 32 views)
Reply With Quote
The Following 4 Users Say Thank You to hitman797 For This Useful Post:
ADMIRAL (07-01-2023), audiofeel (10-01-2023), Behnam2018 (10-01-2023), BLACKFIRE69 (07-01-2023)
  #170  
Old 10-01-2023, 15:59
hitman797's Avatar
hitman797 hitman797 is offline
Registered User
 
Join Date: Feb 2013
Location: Algeria
Posts: 168
Thanks: 449
Thanked 182 Times in 118 Posts
hitman797 is on a distinguished road
Post

Quote:
Originally Posted by audiofeel View Post
Well, okay, I figured it out. now the "problem" is with the shadow. The shadow is superimposed on each other - this is not good, otherwise I do not know how to do it.
Thank you audiofeel
Is it possible to change the color of the PNG with a library FMXInno?
Reply With Quote
The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (10-01-2023)
  #171  
Old 11-01-2023, 08:50
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 369
Thanks: 443
Thanked 856 Times in 311 Posts
audiofeel is on a distinguished road
APEX Style

APEX Style .iss
I fixed something (according to the advice I received). Replaced the latest versions of the DLL
---------------------
03.02
Fixed - More correct operation of "shutting down the PC after installation"

Last edited by audiofeel; 27-12-2023 at 11:08.
Reply With Quote
The Following 6 Users Say Thank You to audiofeel For This Useful Post:
ADMIRAL (12-01-2023), Behnam2018 (11-01-2023), BLACKFIRE69 (12-01-2023), Gehrman (22-01-2023), Harsh ojha (04-02-2023), hitman797 (11-01-2023)
  #172  
Old 11-01-2023, 16:07
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Updates

Code:
What's new:

1. Added full control of Taskbar.
.

Last edited by BLACKFIRE69; 14-07-2024 at 02:47.
Reply With Quote
The Following 5 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (11-01-2023), Behnam2018 (11-01-2023), ffmla (13-01-2023), Gehrman (12-01-2023), hitman797 (12-01-2023)
  #173  
Old 12-01-2023, 14:32
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Updates

Code:
What's new:

1. Added more FireMonkey Image Effects.

Link:  More Details
Quote:
  • Reflection Effect
  • Ripple Effect
  • Swirl Effect
  • Magnify Effect
  • Smooth Magnify Effect
  • Bands Effect
  • Wave Effect
  • Wrap Effect
  • Banded Swirl Effect
  • Bevel Effect
  • Tiler Effect
  • Pixelate Effect
  • Emboss Effect
  • Sharpen Effect
  • Toon Effect
  • Sepia Effect
  • Paper Sketch Effect
  • Pencil Stroke Effect
  • Fill Effect
  • Normal Blend Effect
  • Hue Adjust Effect
  • Contrast Effect
  • Bloom Effect
  • Gloom Effect
  • Invert Effect
  • Monochrome Effect
  • ColorKey Alpha Effect
  • Mask To Alpha Effect
  • Crop Effect
  • Box Blur Effect
  • Directional Blur Effect
  • Radial Blur Effect
Quote:
-- Transition effects --
  • Banded Swirl Transition Effect
  • Blind Transition Effect
  • Blood Transition Effect
  • Blur Transition Effect
  • Bright Transition Effect
  • Circle Transition Effect
  • Crumple Transition Effect
  • Dissolve Transition Effect
  • Drop Transition Effect
  • Fade Transition Effect
  • Line Transition Effect
  • Magnify Transition Effect
  • Pixelate Transition Effect
  • Ripple Transition Effect
  • Rotate Crumple Transition Effect
  • Saturate Transition Effect
  • Shape Transition Effect
  • Slide Transition Effect
  • Swipe Transition Effect
  • Swirl Transition Effect
  • Water Transition Effect
  • Wave Transition Effect
  • Wiggle Transition Effect
  • Perspective Transform Effect
  • Affine Transform Effect

Last edited by BLACKFIRE69; 31-03-2023 at 10:45.
Reply With Quote
The Following 6 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (12-01-2023), Behnam2018 (12-01-2023), ffmla (13-01-2023), hitman797 (12-01-2023), houcine80 (13-01-2023), ScOOt3r (13-01-2023)
  #174  
Old 13-01-2023, 10:50
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Updates

Code:
What's new:

1. Added more animations.
    - ColorKey Animation 
    - FloatKey Animation

2. Updated Other Animation Classes.

3. Added the following properties to objects.
Quote:
  • procedure SetClipParent(FValue: Boolean);
  • procedure SetClipChildren(FValue: Boolean);
  • function GetClipParent: Boolean;
  • function GetClipChildren: Boolean;
  • procedure UpdateEffects;
  • procedure BeginUpdate;
  • procedure EndUpdate;
  • procedure RecalcSize;
  • procedure RecalcEnabled;
  • procedure RecalcOpacity;
  • procedure RecalcUpdateRect;
  • procedure RecalcAbsolute;
  • procedure Repaint;
  • procedure SetFocus;
  • procedure ResetFocus;
  • function IsFocused: Boolean;
  • procedure Pressed(FValue: Boolean);
  • function IsPressed: Boolean;
  • function IsMouseOver: Boolean;
  • function IsVisible: Boolean;
  • procedure AddObject(const AObject: TFmxObject);
  • procedure InsertObject(index: Integer; const AObject: TFmxObject);
  • procedure RemoveObject(const AObject: TFmxObject);
  • procedure RemoveObject2(index: Integer);
  • function ContainsObject(const AObject: TFmxObject): Boolean;
  • procedure ExchangeObjects(const AObject1, AObject2: TFmxObject);
  • procedure DeleteChildren;
  • function IsChild(AObject: TFmxObject): Boolean;
  • function ChildrenCount: Integer;
  • function GetParent: Longint;
  • procedure BringToFront;
  • procedure SendToBack;
  • procedure BringChildToFront(Child: TFmxObject);
  • procedure SendChildToBack(Child: TFmxObject);
  • function Equals(AObject: TObject): Boolean;
  • procedure SetTag(Tag: Integer);
  • function GetTag: Integer;

Last edited by BLACKFIRE69; 31-03-2023 at 10:46.
Reply With Quote
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (13-01-2023), ffmla (14-01-2023), hitman797 (13-01-2023), houcine80 (13-01-2023)
  #175  
Old 14-01-2023, 03:34
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Arrow FMXInno - Updates

Quote:
Originally Posted by BLACKFIRE69 View Post
Code:
What's new:

1. Added full control of Taskbar.
Code:
1. Added an extra option (Taskbar Flash).
  - procedure pTaskBarFlash(FValue: Boolean);

Last edited by BLACKFIRE69; 14-07-2024 at 02:47.
Reply With Quote
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (14-01-2023), ffmla (14-01-2023), Gehrman (21-01-2023), hitman797 (14-01-2023)
  #176  
Old 14-01-2023, 13:00
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 369
Thanks: 443
Thanked 856 Times in 311 Posts
audiofeel is on a distinguished road
a small mistake

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

Last edited by audiofeel; 27-12-2023 at 11:08.
Reply With Quote
The Following 2 Users Say Thank You to audiofeel For This Useful Post:
ffmla (14-01-2023), hitman797 (15-01-2023)
  #177  
Old 15-01-2023, 03:22
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by audiofeel View Post
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.

.

Last edited by BLACKFIRE69; 14-07-2024 at 02:47.
Reply With Quote
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (15-01-2023), ScOOt3r (15-01-2023)
  #178  
Old 15-01-2023, 09:09
Masquerade Masquerade is offline
Registered User
 
Join Date: Jan 2020
Location: Monte d'Or
Posts: 1,167
Thanks: 284
Thanked 1,359 Times in 616 Posts
Masquerade is on a distinguished road
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:



Is this an FMXInno problem? Thanks!
Reply With Quote
  #179  
Old 15-01-2023, 11:52
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 670
Thanks: 471
Thanked 2,400 Times in 544 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by Masquerade View Post
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:



Is this an FMXInno problem? Thanks!

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

.

Last edited by BLACKFIRE69; 14-07-2024 at 02:48.
Reply With Quote
The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (15-01-2023)
  #180  
Old 16-01-2023, 08:51
audiofeel's Avatar
audiofeel audiofeel is offline
Registered User
 
Join Date: Jan 2013
Location: Russia
Posts: 369
Thanks: 443
Thanked 856 Times in 311 Posts
audiofeel is on a distinguished road
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 )
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 11:52.


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