FMXInno - Windows Fluent Design Installer UI for Inno

[Masquerade]

Can't wait for someone to make a sick scene-style demo using this software

[hitman797]

Developer suggestions:
Hi BLACKFIRE69, thank you for making example for 3D animation.
I really appreciate the work you bring to this forum thank you.

Feature of the FMXInno plugin:

1. GridLayout: TGridLayout;
2. ComboColorBox: TComboColorBox;
3. ListBox: TListBox;

[hitman797]

Form:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

GridLayout:

FMXGridLayout[1].FCreate(FMXTabItem[3].Handle);
FMXGridLayout[1].Align(Client);
FMXGridLayout[1].ItemHeight(168);
FMXGridLayout[1].ItemWidth(224);
FMXGridLayout[1].Orientation(Horizontal);
FMXGridLayout[1].Margins(91, 72, 91, 72);
FMXGridLayout[1].Height(336);
FMXGridLayout[1].Width(672);

ComboColorBox:

FMXComboColorBox[1].FCreate(FMXLayout[3].Handle);
FMXComboColorBox[1].Align(Client);
FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].FillColor(ALWhite);
FMXComboColorBox[1].Margins(0, 8, 0, 8);
FMXComboColorBox[1].Height(24);
FMXComboColorBox[1].Width(48);
FMXComboColorBox[1].OnChange(@OnChange);

Layer3D:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

FMXLayout[1].Position(X, Y);

Rectangle:

FMXRectangle[1].Position(X, Y);

Label:

FMXLabel[1].Position(X, Y);

[BLACKFIRE69]

Following classes have been added.

* Standard:
  - TListBox

* Layout:
  - TGridLayout
  - TFlowLayout
  - TScaledLayout

* Colors:
  - TComboColorBox

.

[hitman797]

Originally Posted by BLACKFIRE69

Following classes have been added.

* Standard:
  - TListBox

* Layout:
  - TGridLayout
  - TFlowLayout
  - TScaledLayout

* Colors:
  - TComboColorBox

.

@BLACKFIRE69,
Thanks for the update, great job, we can complete the installer.
Some suggestions:
Form:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].GetObject;

Layer3D:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

FMXLayout[1].Position(X, Y);

Rectangle:

FMXRectangle[1].Position(X, Y);

Label:

FMXLabel[1].Position(X, Y);

[BLACKFIRE69]

FMXInno Updates - [2023-Sep-23]

* Added a quality update to the first post. Please check it out.

Originally Posted by hitman797

@BLACKFIRE69,
Thanks for the update, great job, we can complete the installer.
Some suggestions:
Form:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].GetObject;

Layer3D:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

FMXLayout[1].Position(X, Y);

Rectangle:

FMXRectangle[1].Position(X, Y);

Label:

FMXLabel[1].Position(X, Y);

done.

[hitman797]

Thanks Gift 2024 3 Page done.

[hitman797]

Originally Posted by audiofeel

why don't you resort to this form? more like the original

four pages done thank you @audiofeel for the advice.

[hitman797]

Originally Posted by audiofeel

If we take your script as a basis and add FComboColorBox activation to it when you activate the FComboColorBox for the first time, it does not appear where it was intended Why??

I think the problem is in the arrangement.

[hitman797]

The design is 100 percent complete..

[hitman797]

Originally Posted by audiofeel

great job. nerves of steel. there is no completion page. I once did something similar...

Thank you @audiofeel, the animation and color has been added.

[hitman797]

Originally Posted by audiofeel

@BLACKFIRE69
Show an example of how to change the color of objects on the fly, as in the example below? FReactangle(FillColor.Stroke.Color). I can't do it with FColorbox.I can't do it. The color changes if you only touch the object.

var
  UIColour: array of TAlphaColor = [$B93A4955, $FF202B2F, $FFC0233C];
procedure TForm1.ComboColorBox1Change(Sender: TObject);
var
  I, J: Integer;
begin
  if ComboColorBox1 = Sender then
    J := 0;
  if ComboColorBox2 = Sender then
    J := 1;
  if ComboColorBox3 = Sender then
    J := 2;
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[I] is TShape) then
    begin
      if TShape(Components[I]).TagString = J.ToString then
        TShape(Components[I]).Fill.Color := TComboColorBox(Sender).Color;
      if TShape(Components[I]).TagString = (J + Length(UIColour)).ToString then
        TShape(Components[I]).Stroke.Color := TComboColorBox(Sender).Color;
    end;
    UIColour[J] := TComboColorBox(Sender).Color;
  end;
end;

see this, change the color of objects on the fly.

FMXColorAnimation[1].StopAtCurrent;
FMXColorAnimation[1].SetColors(FMXComboColorBox[2].GetColor, FMXComboColorBox[1].GetColor);
FMXColorAnimation[1].Start;

FMXArc[2].StrokeColor(FMXComboColorBox[3].GetColor);
FMXCircle[5].StrokeColor(FMXComboColorBox[3].GetColor);
FMXRectangle[87].FillColor(FMXComboColorBox[3].GetColor);

[hitman797]

add Finished Page.

//FMXTabItem[10].IsSelected(True);
//FMXLabel[12].Text('Start installation');
//FMXLabel[13].Text(#$E184);
FMXTabItem[11].IsSelected(True);
FMXLabel[12].Text('Finished');
FMXLabel[13].Text(#$E10A);

fix FMXRectangle[90]

FMXRectangle[90].CornerStyle(10, 10, [tcTopLeft, tcTopRight, tcBottomLeft, tcBottomRight], ctRound);

[hitman797]

if you change all the ctRound with ctInnerRound.
this what lock like.

[hitman797]

Originally Posted by audiofeel

when the installation really goes into error, the animation of the last page does not seem very successful, but it is better than without it.

move all the objects in the FMXTabItem[11] to FMXTabItem[4].

FMXTabItem[11] in FMXLayer3D[2].
FMXTabItem[4] in FMXLayer3D[1].