FMXInno - Windows Fluent Design Installer UI for Inno - Page 9

hitman797 · #**121** 30-12-2022, 14:37

Quote:

Originally Posted by audiofeel

Thanks. But I'm used to doing it through "Fluent Icons" = https://learn.microsoft.com/en-us/wi...ent-icons-font . The necessary codes are always at hand (although sometimes there are no necessary ones). And my task was not to repeat everything as it is, but to bring something of my own.

you can create your icon using Illustrator or Photoshop.
and make your font icon using fontself.
https://www.fontself.com/

hitman797 · #**122** 30-12-2022, 15:14

Quote:

Originally Posted by audiofeel

To be honest, I am in favor of using as few pictures as possible in the installer. In my opinion, this installer is not entirely successful (although I copied it) I will try to explain why it is unsuccessful... to change the game to another one, the user needs to find 8 pictures on the Internet, 8 pictures of Karl!!!. and even different sizes and styles.

I'm just doing this to learn design and programming.
If you convert the installer images to a font, you won't need it dll.
you can use just Label.

hitman797 · #**123** 31-12-2022, 05:51

Quote:

Originally Posted by audiofeel

the CPI font is used (there are problems with the sound image in the font, one character is lower than the other, I fixed it as best I could)

Fix sound image in the font.

Code:

    TObject(Btn[3].GetObject):
    begin
      if MusicObj.IsPaused then
      begin
	MusicObj.Resume;
        Btn[3].Top(NSSY(6.0));
        Btn[3].Text('I');
     end else
      begin
        MusicObj.Pause;
        Btn[3].Top(NSSY(6.0));
        Btn[3].Text('H');
      end;
    end;

hitman797 · #**124** 06-01-2023, 14:27

Quote:

Originally Posted by audiofeel

Again, I'm distracting everyone from the holidays... The example is great, everything works. It is unclear how to fasten to "Progress angle"here is the value from "CPUUsage" "RamUsage" "DiskUsage" "IsarcEx " ?

use Timer.

Code:

VAR
  DiskUsageArc: FColorArc;
  DiskUsage: FDiskUsage;
  RamUsage, CPUUsage: FModernArc2;
  CPU: FCpuUsage;
  RAM: FRamUsage;
  Timer1: FTimer;

Code:

Page Num
  DiskUsageArc:= InitColorArcHandle;
  DiskUsage:= InitDiskUsage;
  RamUsage := InitModernArc2Handle;
  CPUUsage := InitModernArc2Handle;
  CPU := InitCpuUsage;
  RAM := InitRamUsage;
  Timer1 := InitTimerHandle;

Code:

procedure Timer1OnTimer(Sender: TObject);
begin
  CPUUsage.Angle(CPU.CpuLoad, 100);
  RamUsage.Angle(RAM.RamLoad, 100);
end;
procedure DirEditOnChange(Sender: TObject);
begin
  DiskUsage.SetDir(WizardForm.DirEdit.Text);
  DiskUsageArc.SetAngle(DiskUsage.DiskLoad, 100);
end;

Code:

  Timer1.FCreate(Page4.Handle, True);
  Timer1.Interval(750);
  Timer1.OnTimer(@Timer1OnTimer);

Code:

procedure Timer1OnTimer(Sender: TObject);
begin
  PctLB.Text(IntToStr(CPU.CpuLoad));
  RoundArc.Arc.EndAngle(CPU.CpuLoad + C_ANGLE);
  PctLB.Text(IntToStr(RAM.RamLoad));
  RoundArc.Arc.EndAngle(RAM.RamLoad + C_ANGLE);
  RoundArc.Arc.EndAngle(Disk.DiskLoad);
end;

BLACKFIRE69 · #**125** 06-01-2023, 22:46

@hitman797

EndAngle value is not correct.

hitman797 · #**126** 07-01-2023, 02:50

Quote:

Originally Posted by BLACKFIRE69

@hitman797

EndAngle value is not correct.

RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320

BLACKFIRE69 · #**127** 07-01-2023, 03:48

Quote:

Originally Posted by hitman797

RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320

is this look like 49%?

,

hitman797 · #**128** 07-01-2023, 04:16

Quote:

Originally Posted by BLACKFIRE69

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;

BLACKFIRE69 · #**129** 07-01-2023, 04:58

Quote:

Originally Posted by hitman797

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

.

BLACKFIRE69 · #**130** 07-01-2023, 05:56

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

hitman797 · #**131** 07-01-2023, 06:07

Quote:

Originally Posted by BLACKFIRE69

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;

hitman797 · #**132** 10-01-2023, 14:59

Quote:

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?

BLACKFIRE69 · #**133** 11-01-2023, 15:07

Code:

What's new:

1. Added full control of Taskbar.

.

BLACKFIRE69 · #**134** 12-01-2023, 13:32

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

BLACKFIRE69 · #**135** 13-01-2023, 09:50

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;

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

The Following User Says Thank You to hitman797 For This Useful Post:
ADMIRAL (31-12-2022)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (30-12-2022)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (07-01-2023)

The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023), hitman797 (07-01-2023)

The Following User Says Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (07-01-2023)

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)

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)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (10-01-2023)

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)

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 (12-01-2023), ScOOt3r (13-01-2023)

The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (13-01-2023), ffmla (13-01-2023), hitman797 (13-01-2023), houcine80 (13-01-2023)