FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

Page 25 of 42

« First

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)

Masquerade

21-09-2023 05:25

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

hitman797

21-09-2023 06:10

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:
GridLayout: TGridLayout;

ComboColorBox: TComboColorBox;

ListBox: TListBox;

hitman797

22-09-2023 08:22

Form:

Code:

FMXForm[1].FormShow(@FormShow);

FMXForm[1].FormCreate(@FormCreate);

FMXForm[1].FormKeyDown(@FormKeyDown);

GridLayout:

Code:

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:

Code:

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:

Code:

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

Layout:

Code:

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

Rectangle:

Code:

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

Label:

Code:

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

BLACKFIRE69

22-09-2023 17:14

FMXInno - Updates

Following classes have been added.

Code:

* Standard:

  - TListBox



* Layout:

  - TGridLayout

  - TFlowLayout

  - TScaledLayout



* Colors:

  - TComboColorBox

hitman797

22-09-2023 18:21

Quote:

Originally Posted by BLACKFIRE69 (Post 502573)

Following classes have been added.

Code:

* Standard:

  - TListBox



* Layout:

  - TGridLayout

  - TFlowLayout

  - TScaledLayout



* Colors:

  - TComboColorBox

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

Code:

FMXForm[1].FormShow(@FormShow);

FMXForm[1].FormCreate(@FormCreate);

FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

Code:

FMXComboColorBox[1].CanFocus(False);

FMXComboColorBox[1].GetObject;

Layer3D:

Code:

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

Layout:

Code:

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

Rectangle:

Code:

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

Label:

Code:

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

BLACKFIRE69

23-09-2023 04:11

FMXInno - Updates

FMXInno Updates - [2023-Sep-23]

Code:

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

Quote:

Originally Posted by hitman797 (Post 502574)

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

Code:

FMXForm[1].FormShow(@FormShow);

FMXForm[1].FormCreate(@FormCreate);

FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

Code:

FMXComboColorBox[1].CanFocus(False);

FMXComboColorBox[1].GetObject;

Layer3D:

Code:

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

Layout:

Code:

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

Rectangle:

Code:

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

Label:

Code:

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

done.

hitman797

23-09-2023 11:28

1 Attachment(s)

Thanks Gift 2024 3 Page done.

hitman797

24-09-2023 08:00

1 Attachment(s)

Quote:

Originally Posted by audiofeel (Post 502586)

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

four pages done thank you @audiofeel for the advice.

hitman797

24-09-2023 12:16

2 Attachment(s)

Quote:

Originally Posted by audiofeel (Post 502601)

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

24-09-2023 13:46

2 Attachment(s)

The design is 100 percent complete..

hitman797

24-09-2023 16:00

2 Attachment(s)

Quote:

Originally Posted by audiofeel (Post 502605)

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

25-09-2023 14:37

2 Attachment(s)

Quote:

Originally Posted by audiofeel (Post 502615)

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

Code:

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.

Code:

FMXColorAnimation[1].StopAtCurrent;

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

FMXColorAnimation[1].Start;

Code:

FMXArc[2].StrokeColor(FMXComboColorBox[3].GetColor);

FMXCircle[5].StrokeColor(FMXComboColorBox[3].GetColor);

FMXRectangle[87].FillColor(FMXComboColorBox[3].GetColor);

hitman797

25-09-2023 15:52

2 Attachment(s)

add Finished Page.

Code:

//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]

Code:

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

hitman797

25-09-2023 16:27

4 Attachment(s)

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

hitman797

25-09-2023 21:35

Quote:

Originally Posted by audiofeel (Post 502619)

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

Code:

FMXTabItem[11] in FMXLayer3D[2].

FMXTabItem[4] in FMXLayer3D[1].

All times are GMT -7. The time now is 00:08.

Page 25 of 42

« First

Last »

Show 40 post(s) from this thread on one page