FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

hitman 797. I know that the language call form can no longer be called after initializing the installer. And I didn't think in this direction like Prince Gupta. thanks. but the whole script will have to be redone

this's not a complete example, just use to get an idea.

non-english texts are indicated by texts surrounded by "[r]" for convenience.
(because i'm too lazy to translate every text. )

[InstallerLangs]
Lang1=Russian
Lang2=English
;Lang3=
;Lang4=
;Lang5=
;Lang6=

Example:
// LanguageBox
English_LangOkBtn=Ok
English_LanguageTitle=Select Setup Language
English_LanguageMsg=Select the language to use during the installation:

Russian_LangOkBtn=[r]Ok[r]
Russian_LanguageTitle=[r]Select Setup Language[r]
Russian_LanguageMsg=[r]Select the language to use during the installation:[r]

...

download from here : FMXInno_Test.rar

,

[BLACKFIRE69]

Originally Posted by audiofeel

Great! the translation works. I share my example. I have a question.... why on "FMXForm.FCreateBlankForm" is the image cropped on the right side?

when you use more than one image as the background image, the dimensions (width,height) of the images should be approximately the same.
but in this case every image is of the same dimension (800x450) so everything works fine.

[BLACKFIRE69]

Originally Posted by audiofeel

here is a more illustrative example

this isn't an issue with FMXInno. it comes from Delphi itself. so i had to comeup with a fix for this.

this will work...

with WizardForm do
  begin
    Height := ScaleY(450);
    Width := ScaleX(800);
  end;

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

- Fixed MinimizeFileName function crashing.
- Fixed minor known bugs/issues so far.
- Some improvements.
- Added transparent GIFs support.

Check the first post.

,

[ADMIRAL]

i compressed the game by blackfire69 compressor what was 96compressor.
and this is the error.
what i should do???

[BLACKFIRE69]

FMXInno v1.0.0.2 - Updates

* Added Dynamic Tiles.
   - Highly customizable.
   - Tile shapes can be regular/rounded corner rectangles or even circles.
   - Allowed users to make their own style tiles.
   - DeltaX, DeltaY and TimeDuration configure the motion of tiles.

* Updated Classes.

[ADMIRAL]

i compressed the game by 69compressor and i got this error from WPI.CorePack.Installer about test
i found that this installer is using ISArcEx that is not supporting 69compressor but just freaarc 0.666v
what i can do for it???
is there a way for WPI.CorePack.Installer to use isdone instead of ISarcEx??

[hitman797]

What color do you want to change in the png?
blue or black.

[BLACKFIRE69]

Originally Posted by hitman797

What color do you want to change in the png?
blue or black.

both colors should be changed. the main color to change is blue (cyan). but two sets are needed. dark style with black and white for light style.

[hitman797]

Test this if it works.

[hitman797]

Gradients Blue

[Behnam2018]

APEX Installer

Can it be made by script FMXInno?

[BLACKFIRE69]

Originally Posted by Behnam2018

APEX Installer

Can it be made by script FMXInno?

yes, it can be done with FMXInno.

[BLACKFIRE69]

Originally Posted by audiofeel

No pain No gain

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


.

[hitman797]

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.

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

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

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;

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

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;