#151
|
||||
|
||||
yes, it can be done with FMXInno.
Last edited by BLACKFIRE69; 14-07-2024 at 01:46. |
Sponsored Links |
#152
|
||||
|
||||
ok ladies, let me touch on some key points for Apex Installer.
(i'm little bit busy so i don't have enough time to make a complete script.) . Last edited by BLACKFIRE69; 31-03-2023 at 09:44. |
#154
|
||||
|
||||
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.
|
#155
|
||||
|
||||
Quote:
and make your font icon using fontself. https://www.fontself.com/ Last edited by hitman797; 30-12-2022 at 14:47. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
ADMIRAL (31-12-2022) |
#156
|
||||
|
||||
Quote:
|
#157
|
||||
|
||||
Quote:
If you convert the installer images to a font, you won't need it dll. you can use just Label. Last edited by hitman797; 30-12-2022 at 17:25. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (30-12-2022) |
#158
|
||||
|
||||
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)
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(4.9)); Btn[3].Text('H'); end; end; Last edited by audiofeel; 06-02-2023 at 04:17. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (31-12-2022) |
#159
|
||||
|
||||
Quote:
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; |
#160
|
||||
|
||||
here is the final version as I see it, everything else is already a taste (I like purple markers). thanks to the user HITMAH797 https://krinkels.org/members/hitman797.4286 /. On the eve of the holiday, he corrected the flaws in the font. I 'm finishing everything or else
BLACK FIRE 69 will kill me after the holidays for making a mess of his theme with my script Last edited by audiofeel; 06-03-2023 at 07:28. |
The Following 4 Users Say Thank You to audiofeel For This Useful Post: | ||
#161
|
||||
|
||||
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 " ?
|
#162
|
||||
|
||||
Quote:
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; Last edited by hitman797; 06-01-2023 at 16:32. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (07-01-2023) |
#165
|
||||
|
||||
Quote:
, Last edited by BLACKFIRE69; 14-07-2024 at 01:46. |
Thread Tools | |
Display Modes | |
|
|
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 |