FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

FMXInno Update - 2023-July-31

* Updated to the Hotfix-02.

* Added new property for the FMXForm.
  - procedure CanvasQuality(FCanvasQuality: TCanvasQuality);

* Updated ISArcEx.
  - CurrentFile in the callback function won't be empty.

The first post has been updated.

[BLACKFIRE69]

Update available!

* Some improvements.

.

[BLACKFIRE69]

Originally Posted by audiofeel

#BLACKFIRE69
You have added a check for "OnClick" in "FToggleCheckBox". I guess it doesn't work properly. I want to create a "FToggleCheckBox" as a "FRadioButton" (so that each time I don't pick up a style file, but just paint "FToggleCheckBox"). I can not. In my opinion, the check for "OnClick" does not work.

sorry, my mistake.

furthermore, comment out the following lines.

procedure CommonOnClick(Sender: TObject);
begin
  case Sender of
    TObject(Chck[1].GetObject):
    if Chck[1].IsChecked then
    begin
      //Chck[1].SetChecked(False);
      Chck[2].SetChecked(True);
    end else
    begin
      //Chck[1].SetChecked(True);
      Chck[2].SetChecked(False);
    end;

    TObject(Chck[2].GetObject):
    if Chck[2].IsChecked then
    begin
      //Chck[2].SetChecked(False);
      Chck[1].SetChecked(True);
    end else
    begin
      //Chck[2].SetChecked(True);
      Chck[1].SetChecked(False);
    end;
  end;
end;

.

[Ning]

Hello, I am new to repackaging and inno setup, how should I use your plug-in? I downloaded it and tried to run the script, but the following error always popped up. It is an error in the [code] section of the FMXInnoHandle.iss script. Excuse me. How to solve it? In addition, I am using Windows7, does this have something to do with the system?

https://postimg.cc/5j6K7BSg

[ravikant]

Originally Posted by Ning

Hello, I am new to repackaging and inno setup, how should I use your plug-in? I downloaded it and tried to run the script, but the following error always popped up. It is an error in the [code] section of the FMXInnoHandle.iss script. Excuse me. How to solve it? In addition, I am using Windows7, does this have something to do with the system?

https://postimg.cc/5j6K7BSg

Use a custom script based on fmxinno

[BLACKFIRE69]

Originally Posted by tayeb1992

Developer suggestions:
Hi BLACKFIRE69, thank you for everything you've added to this library.
If the following components are added, it will be great.

Feature of the FMXInno plugin:

1. TabControl: TTabControl;
2. TabItem: TTabItem;
3. ActionList: TActionList;
4. ChangeTabAction: TChangeTabAction;
5. NextTabAction: TNextTabAction;
6. PreviousTabAction: TPreviousTabAction;
7. GridLayout: TGridLayout;
8. Viewport3D: TViewport3D;
9. Layer3D: TLayer3D;

the following classes are now included.

* Viewports:
 TViewport3D

* 3D Scene:
 TCamera
 TLight
 TDummy

* 3D Layers:
 TLayout3D
 TBufferLayer3D
 TSolidLayer3D
 TImage3D
 TLayer3D
 TTextLayer3D

* 3D Shapes
 TPlane
 TDisk
 TCube
 TSphere
 TCylinder
 TRoundCube
 TCone
 TGrid3D
 TText3D
 TRectangle3D
 TEllipes3D

* Controls
 TTabControl
 TTabItem

* Materials
 TColorMaterialSource
 TTextureMaterialSource
 TLightMaterialSource

.

[BLACKFIRE69]

FMXInno:  Puzzle  (Dragging Example)

.

[crachlow]

Originally Posted by audiofeel

@BLACKFIRE69
I understand that the scale function is in the process of being finalized and tested ... but could you at least temporarily fix this bug. When the user changes the desktop scale from the recommended system (i.e. 100%) then "FFolderTreeView" floats away and is not visible. This appeared on the latest dll.
--
But the good old "FDirBrowse" feels much better. And it scales correctly. Somehow it even became a shame for "FFluentDirBrowse".

Another quirk. If you hold the window with the mouse on a scale of 150 and try to move it, miracles happen. The window moves like a living thing across the screen.

[hitman797]

FMXInno SlideShow Example using:

• FMXForm: FForm;
• FMXTAB: FTabControl;
• FMXTIMER: FTimer;
• FMXITEM: array [1..20] of FTabItem;
• FMXRECT: array [1..20] of FRectangle;

[hitman797]

Originally Posted by audiofeel

@hitman797
Let's make the code a little smaller. It does not affect anything in my opinion except for the size of the script file. O = Optimization

var
  SSImg: String;
  i: Integer;
begin
  for i:= 1 to 20 do
  begin
    FMXITEM[i].FCreateEx(FMXTAB.Handle);
    FMXRECT[i].FCreate(FMXITEM[i].Handle);
    FMXRECT[i].Align(Client);
    SSImg:= 'Background' + IntToStr(i) + '.jpg';
    FMXRECT[i].FillPicture(ExtractAndLoad(SSImg), wmTileStretch);
  end;

Is it possible to place various other objects on top of the slide show? Won't they float with the picture?

Other component can be added by adding TabControl2
and Handle TabControl2 in FMXForm.
and add objects to TabControl2.

[hitman797]

FMXInno Viewport 3D Example using:

• FMXForm: FForm;
• FMXTAB: array [1..4] of FTabControl;
• FMXEDIT: FEdit;
• FMXViewport3D: FViewport3D;
• FMXLayer3D: array [1..2] of FLayer3D;
• FMXFloatAnimation: array [1..4] of FFloatAnimation;
• FMXButton: array [1..4] of FButton;

@BLACKFIRE69
HI, BLACKFIRE69
Thank you for the update.
Can you add BringToFront to "FLayer3D".

[hitman797]

    Form1: TForm;
    Viewport3D1: TViewport3D;
    Layer3D1: TLayer3D;
    FloatAnimation1: TFloatAnimation;
    Layer3D2: TLayer3D;
    FloatAnimation2: TFloatAnimation;

      object FloatAnimation1: TFloatAnimation
        Enabled = True
        Duration = 1
        Loop = True
        PropertyName = 'RotationAngle.X'
        StartValue = 0
        StopValue = 180
        OnProcess = FloatAnimation1Process
      end
      object FloatAnimation2: TFloatAnimation
        Enabled = True
        Duration = 1
        Loop = True
        PropertyName = 'RotationAngle.X'
        StartValue = 180
        StopValue = 360
        OnProcess = FloatAnimation2Process
      end

procedure TForm3.FloatAnimation1Process(Sender: TObject);
begin
  Layer3D2.BringToFront;
end;

procedure TForm3.FloatAnimation2Process(Sender: TObject);
begin
  Layer3D1.BringToFront;
end;

[hitman797]

Example-DiskList.iss

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  if wGetDriveMediaType('D') = 1 then
  begin
   FMXLabel.Text('UNKNOWN');
  end;
  if wGetDriveMediaType('D') = 2 then
  begin
   FMXLabel.Text('HDD');
  end;
  if wGetDriveMediaType('D') = 3 then
  begin
   FMXLabel.Text('SSD');
  end;
  if wGetDriveMediaType('D') = 4 then
  begin
   FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

[crachlow]

You didn't look at the constants.
const
HDD_MEDIA_TYPE_UNKNOWN = $0000;
HDD_MEDIA_TYPE_HDD = $0003;
HDD_MEDIA_TYPE_SSD = $0004;
HDD_MEDIA_TYPE_SCM = $0005;
[IMG]
https://i.ibb.co/HC1cpzn/2023-08-24-202555.png
[/IMG]

[crachlow]

Originally Posted by audiofeel

Something went wrong. does not correctly determine the type of disk

And in general, you are not going to manually register the disks that may be in the system?