FileForums
Page 9 of 42 « First 78 9 101119 Last »
Show 40 post(s) from this thread on one page

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   FMXInno - Windows Fluent Design Installer UI for Inno (https://fileforums.com/showthread.php?t=104852)

hitman797 30-12-2022 14:37
1 Attachment(s)
Quote:
Originally Posted by audiofeel (Post 499614)
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 30-12-2022 15:14
3 Attachment(s)
Quote:
Originally Posted by audiofeel (Post 499616)
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 31-12-2022 05:51
1 Attachment(s)
Quote:
Originally Posted by audiofeel (Post 499618)
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 06-01-2023 14:27
2 Attachment(s)
Quote:
Originally Posted by audiofeel (Post 499695)
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 06-01-2023 22:46
@hitman797

EndAngle value is not correct. ;)

hitman797 07-01-2023 02:50
Quote:
Originally Posted by BLACKFIRE69 (Post 499702)
@hitman797

EndAngle value is not correct. ;)
RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320

BLACKFIRE69 07-01-2023 03:48
Quote:
Originally Posted by hitman797 (Post 499704)
RAM.RamLoad = 49
C_ANGLE = 40
RoundArc = 320
StartAngle = 130
EndAngle = 14320
is this look like 49%?

,

hitman797 07-01-2023 04:16
2 Attachment(s)
Quote:
Originally Posted by BLACKFIRE69 (Post 499705)
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 07-01-2023 04:58
Quote:
Originally Posted by hitman797 (Post 499706)
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 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 07-01-2023 06:07
1 Attachment(s)
Quote:
Originally Posted by BLACKFIRE69 (Post 499708)
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 10-01-2023 14:59
Quote:
Originally Posted by audiofeel (Post 499718)
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 11-01-2023 15:07
FMXInno - Updates
 
Code:
What's new:

1. Added full control of Taskbar.
.

BLACKFIRE69 12-01-2023 13:32
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

BLACKFIRE69 13-01-2023 09:50
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;


All times are GMT -7. The time now is 14:45.
Page 9 of 42 « First 78 9 101119 Last »
Show 40 post(s) from this thread on one page

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