FMXInno - Windows Fluent Design Installer UI for Inno - Page 29

crachlow · #**421** 18-08-2023, 14:07

Quote:

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 · #**422** 18-08-2023, 15:07

FMXInno SlideShow Example using:

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

audiofeel · #**423** 18-08-2023, 23:33

Quote:

Originally Posted by crachlow

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.

what example do you use for the test? I'm fine with this example.

audiofeel · #**424** 18-08-2023, 23:46

Quote:

Originally Posted by hitman797

FMXInno SlideShow Example using:

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

@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

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;

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

hitman797 · #**425** 19-08-2023, 00:49

Quote:

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

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;

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 · #**426** 19-08-2023, 14:01

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

audiofeel · #**427** 19-08-2023, 21:44

Quote:

Originally Posted by 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
Thanks for the work. Much better than I did. It turned out a little not what was expected. We took a wrong turn somewhere. We are waiting for the guru to clarify the situation.

hitman797 · #**428** 20-08-2023, 13:10

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 · #**429** 24-08-2023, 03:34

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;

audiofeel · #**430** 24-08-2023, 07:27

Quote:

Originally Posted by hitman797

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;

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

crachlow · #**431** 24-08-2023, 09:33

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 · #**432** 24-08-2023, 09:40

Quote:

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?

hitman797 · #**433** 24-08-2023, 09:59

Quote:

Originally Posted by 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]

Code:

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

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

Code:

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  case wGetDriveMediaType('D') of
  0: FMXLabel.Text('UNKNOWN');
  3: FMXLabel.Text('HDD');
  4: FMXLabel.Text('SSD');
  5: FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

audiofeel · #**434** 24-08-2023, 11:00

Quote:

Originally Posted by hitman797

Code:

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

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

Code:

var
  FMXLabel  : FLabel;

procedure FMXInnoInit;
begin
  FMXLabel  := InitLabelHandle;
end;

procedure FMXDesigning;
begin
  FMXLabel.FCreate(FMXForm.Handle, '');
  case wGetDriveMediaType('D') of
  0: FMXLabel.Text('UNKNOWN');
  3: FMXLabel.Text('HDD');
  4: FMXLabel.Text('SSD');
  5: FMXLabel.Text('SCM');
  end;
  FMXLabel.Left(50);
  FMXLabel.Top(50);
  FMXLabel.FontSetting('Segoe UI', 16, ALBlack);
end;

and if like this? even better...

Code:

procedure DiskListOnChange(Sender: TObject);
var
  S: String;
begin
  S := DirEdt.GetText;
  StringChange(S, ExtractFileDrive(S), DiskList.GetSelectedDisk);
  DirEdt.Text(S);
   case wGetDriveMediaType(S) of
   0: FMXLabel.Text('Unknown');
   3: FMXLabel.Text('HDD');
   4: FMXLabel.Text('SSD');
   5: FMXLabel.Text('SCM');
   end;
end;

crachlow · #**435** 24-08-2023, 11:45

Quote:

Originally Posted by audiofeel

and if like this? even better...

Code:

procedure DiskListOnChange(Sender: TObject);
var
  S: String;
begin
  S := DirEdt.GetText;
  StringChange(S, ExtractFileDrive(S), DiskList.GetSelectedDisk);
  DirEdt.Text(S);
   case wGetDriveMediaType(S) of
   0: FMXLabel.Text('Unknown');
   3: FMXLabel.Text('HDD');
   4: FMXLabel.Text('SSD');
   5: FMXLabel.Text('SCM');
   end;
end;

Well, what did you do?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM	BLACKFIRE69	Conversion Tutorials	0	15-11-2023 18:35
Windows Phone Installer similar to razor12911's original design?	Kitsune1982	Conversion Tutorials	0	02-07-2020 14:04
INDEX - Conversion Tutorial Index	Razor12911	Conversion Tutorials	5	11-06-2020 03:05
Frequently Asked Questions	Joe Forster/STA	PC Games - Frequently Asked Questions	0	29-11-2005 10:48

The Following User Says Thank You to crachlow For This Useful Post:
audiofeel (18-08-2023)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (18-08-2023)

The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (19-08-2023)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (19-08-2023)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (20-08-2023)

The Following 2 Users Say Thank You to hitman797 For This Useful Post:
audiofeel (24-08-2023), BLACKFIRE69 (26-08-2023)

The Following User Says Thank You to audiofeel For This Useful Post:
hitman797 (24-08-2023)

The Following User Says Thank You to hitman797 For This Useful Post:
audiofeel (24-08-2023)

The Following 3 Users Say Thank You to audiofeel For This Useful Post:
BLACKFIRE69 (26-08-2023), crachlow (24-08-2023), hitman797 (24-08-2023)