#151
|
||||
|
||||
yes, it can be done with FMXInno.
Last edited by BLACKFIRE69; 14-07-2024 at 02: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 10: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 15: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 18:25. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
audiofeel (31-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 05: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 08: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 17: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 02: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 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 |