FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Originally Posted by BLACKFIRE69

is this look like 49%?

,

ok pro, I fix the problem.

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;

[BLACKFIRE69]

Originally Posted by hitman797

ok pro, I fix the problem.

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% :


.

[BLACKFIRE69]

@hitman797, this works fine.

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;

[hitman797]

Originally Posted by BLACKFIRE69

something still doesn't seem right....

for 0% :

.

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;

[hitman797]

Originally Posted by audiofeel

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?

[audiofeel]

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"

[BLACKFIRE69]

What's new:

1. Added full control of Taskbar.

.

[BLACKFIRE69]

What's new:

1. Added more FireMonkey Image Effects.

Link:  More Details

• 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

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

[BLACKFIRE69]

What's new:

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

2. Updated Other Animation Classes.

3. Added the following properties to objects.

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

[BLACKFIRE69]

Originally Posted by BLACKFIRE69

What's new:

1. Added full control of Taskbar.

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

[audiofeel]

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

[BLACKFIRE69]

Originally Posted by audiofeel

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.

.

[Masquerade]

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!

[BLACKFIRE69]

Originally Posted by Masquerade

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

.

[audiofeel]

Sorry... found a typo

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

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 )