FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

Page 20 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)

BLACKFIRE69

01-08-2023 08:07

FMXInno - Updates

FMXInno Update - 2023-July-31

Code:

* 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

02-08-2023 13:23

FXPacker - Updates

2 Attachment(s)

Update available!

Code:

* Some improvements.

BLACKFIRE69

05-08-2023 00:41

Quote:

Originally Posted by audiofeel (Post 501852)

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

Code:

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	08-08-2023 04:26

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

12-08-2023 04:10

Quote:

Originally Posted by Ning (Post 501898)

Use a custom script based on fmxinno

BLACKFIRE69

13-08-2023 10:44

FMXInno - Optional Updates

Quote:

Originally Posted by tayeb1992 (Post 501340)

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:

TabControl: TTabControl;
TabItem: TTabItem;
ActionList: TActionList;
ChangeTabAction: TChangeTabAction;
NextTabAction: TNextTabAction;
PreviousTabAction: TPreviousTabAction;
GridLayout: TGridLayout;
Viewport3D: TViewport3D;
Layer3D: TLayer3D;

the following classes are now included.

Code:

* 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

Code:

* Controls

 TTabControl

 TTabItem



* Materials

 TColorMaterialSource

 TTextureMaterialSource

 TLightMaterialSource

BLACKFIRE69

14-08-2023 23:08

Just for fun

Code:

FMXInno: Puzzle (Dragging Example)

crachlow

18-08-2023 13:07

Quote:

Originally Posted by audiofeel (Post 502001)

@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

18-08-2023 14:07

1 Attachment(s)

FMXInno SlideShow Example using:

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

hitman797

18-08-2023 23:49

2 Attachment(s)

Quote:

Originally Posted by audiofeel (Post 502037)

@hitman797
:o 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

Code:

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;

:confused: 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

19-08-2023 13:01

FMXInno Viewport 3D Example

2 Attachment(s)

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

20-08-2023 12:10

3d delphi

2 Attachment(s)

Code:

    Form1: TForm;

    Viewport3D1: TViewport3D;

    Layer3D1: TLayer3D;

    FloatAnimation1: TFloatAnimation;

    Layer3D2: TLayer3D;

    FloatAnimation2: TFloatAnimation;

Code:

      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

Code:

procedure TForm3.FloatAnimation1Process(Sender: TObject);

begin

  Layer3D2.BringToFront;

end;



procedure TForm3.FloatAnimation2Process(Sender: TObject);

begin

  Layer3D1.BringToFront;

end;

hitman797

24-08-2023 02:34

Drive Media Type

2 Attachment(s)

Example-DiskList.iss

Code:

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

24-08-2023 08:33

Type disk

1 Attachment(s)

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

24-08-2023 08:40

Quote:

Originally Posted by audiofeel (Post 502082)

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?

All times are GMT -7. The time now is 22:16.

Page 20 of 42

« First

Last »

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