FMXInno - Windows Fluent Design Installer UI for Inno

[Tihiy_Don]

How can I change the text settings in the descendant components?

[Tihiy_Don]

That's it, now I've figured it out. It was necessary to specify the necessary component in the first parameter of the procedure

Page1CheckboxTree.CheckboxFontSetting(Page1itemDir ectX, 'Segoe UI', VCLFontSizeToFMX(10), {#MainColorFont});

[audiofeel]

reserved

[audiofeel]

reserved

[audiofeel]

reserved

[Tihiy_Don]

Will the ability to customize the trackbar be added: specify the width, length and thickness of the switch, as well as set the color and transparency?

[Tihiy_Don]

Originally Posted by audiofeel

TrackBar - system control. But it can be changed using a style file.

I know, so I wanted to ask if there might be some kind of analogue.

[BLACKFIRE69]

FTrackBarCustom:



1. FTrackBar - this depends on the Style file, so you need the ability to create or modify a new Style file.

2. FPictureTrackBar - a botva2-like trackbar requires skill in Photoshop.

3. for users like me who aren't design experts, we need an easy but fully customizable trackbar for general use. so, FTrackBarCustom may be suitable for that purpose.

4. i'm quite busy right now, so the given example is a bit ugly (no color matching). i'm sure you can design a better one on your own.

    function FCreate(FHandle, FFormHandle: TFmxObject; const FLeft, FTop, FWidth, FHeight, FBtnTop, FBtnWidth, FBtnHeight: Single; IsRoundSlide: Boolean): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Width(FWidth: Single);
    procedure Height(FHeight: Single);
    procedure Visible(FVisible: Boolean);
    procedure Enabled(FEnabled: Boolean);
    procedure FillColor(AlColor: Integer);
    procedure FillPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngle(FAngle: Single);
    procedure FillGradientRadialAngle(FAngle: Single);
    procedure CusGradientPosition(X1, Y1, X2, Y2: Single);
    procedure StrokeColor(AlColor: Integer);
    procedure StrokeSetting(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePicture(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngle(FAngle: Single);
    procedure StrokeGradientRadialAngle(FAngle: Single);
    procedure FillColorSlide(AlColor: Integer);
    procedure FillPictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngleSlide(FAngle: Single);
    procedure FillGradientRadialAngleSlide(FAngle: Single);
    procedure CusGradientPositionSlide(X1, Y1, X2, Y2: Single);
    procedure StrokeColorSlide(AlColor: Integer);
    procedure StrokeSettingSlide(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngleSlide(FAngle: Single);
    procedure StrokeGradientRadialAngleSlide(FAngle: Single);
    procedure Opacity(FOpacity: Single);
    procedure OpacitySlide(FOpacity: Single);
    procedure OpacityTotal(FOpacity: Single);
    procedure RotationAngleSlide(FRotationAngle: Single);
    procedure RotationCenterSlide(X, Y: Single);
    procedure CornerStyle(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure Sides(Sides: TSides);
    procedure Scale(X, Y: Single);
    procedure CornerStyleSlide(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure SidesSlide(Sides: TSides);
    procedure ScaleSlide(X, Y: Single);
    procedure SetValue(const FValue: Single);
    procedure SetMin(const FValue: Single);
    procedure SetMax(const FValue: Single);
    procedure OnChange(Event: TNotifyEvent);
    procedure AddProgress(AlColor: Integer);
    procedure AddProgressPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure AddProgressGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure ProgressVisible(FVisible: Boolean);
    procedure ProgressOpacity(FOpacity: single);
    procedure SetTag(Tag: Integer);
    procedure BringToFront;
    procedure BringToFrontSlide;
    procedure SendToBack;
    function GetTag: Integer;
    function GetValue: Single;
    function GetMax: Single;
    function GetMin: Single;
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObjectSlide: LongInt;
    function GetObjectBkg: LongInt;
    function GetObject: LongInt;
    function HandleSlide: TFmxObject;
    function HandleBkg: TFmxObject;
    function Handle: TFmxObject;

[Jahan1373]

https://www.mediafire.com/file/11r9c...(101).png/file

[Jahan1373]

Hello friends, does anyone have a solution to extract these types of files in the installation

[Tihiy_Don]

Originally Posted by BLACKFIRE69

FTrackBarCustom:



1. FTrackBar - this depends on the Style file, so you need the ability to create or modify a new Style file.

2. FPictureTrackBar - a botva2-like trackbar requires skill in Photoshop.

3. for users like me who aren't design experts, we need an easy but fully customizable trackbar for general use. so, FTrackBarCustom may be suitable for that purpose.

4. i'm quite busy right now, so the given example is a bit ugly (no color matching). i'm sure you can design a better one on your own.

    function FCreate(FHandle, FFormHandle: TFmxObject; const FLeft, FTop, FWidth, FHeight, FBtnTop, FBtnWidth, FBtnHeight: Single; IsRoundSlide: Boolean): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Width(FWidth: Single);
    procedure Height(FHeight: Single);
    procedure Visible(FVisible: Boolean);
    procedure Enabled(FEnabled: Boolean);
    procedure FillColor(AlColor: Integer);
    procedure FillPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngle(FAngle: Single);
    procedure FillGradientRadialAngle(FAngle: Single);
    procedure CusGradientPosition(X1, Y1, X2, Y2: Single);
    procedure StrokeColor(AlColor: Integer);
    procedure StrokeSetting(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePicture(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngle(FAngle: Single);
    procedure StrokeGradientRadialAngle(FAngle: Single);
    procedure FillColorSlide(AlColor: Integer);
    procedure FillPictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure FillGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure FillGradientLinearAngleSlide(FAngle: Single);
    procedure FillGradientRadialAngleSlide(FAngle: Single);
    procedure CusGradientPositionSlide(X1, Y1, X2, Y2: Single);
    procedure StrokeColorSlide(AlColor: Integer);
    procedure StrokeSettingSlide(FThickness: Single; CapStyle: TStrokeCap; Dash: TStrokeDash; Join: TStrokeJoin);
    procedure StrokePictureSlide(const Image: WideString; WrapMode: TWrapMode);
    procedure StrokeGradientSlide(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure StrokeGradientLinearAngleSlide(FAngle: Single);
    procedure StrokeGradientRadialAngleSlide(FAngle: Single);
    procedure Opacity(FOpacity: Single);
    procedure OpacitySlide(FOpacity: Single);
    procedure OpacityTotal(FOpacity: Single);
    procedure RotationAngleSlide(FRotationAngle: Single);
    procedure RotationCenterSlide(X, Y: Single);
    procedure CornerStyle(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure Sides(Sides: TSides);
    procedure Scale(X, Y: Single);
    procedure CornerStyleSlide(XRadi, YRadi: Single; FCorners: TCorners; CornerType: TCornerType);
    procedure SidesSlide(Sides: TSides);
    procedure ScaleSlide(X, Y: Single);
    procedure SetValue(const FValue: Single);
    procedure SetMin(const FValue: Single);
    procedure SetMax(const FValue: Single);
    procedure OnChange(Event: TNotifyEvent);
    procedure AddProgress(AlColor: Integer);
    procedure AddProgressPicture(const Image: WideString; WrapMode: TWrapMode);
    procedure AddProgressGradient(FColor1, FColor2: Integer; FStyle: TGradientStyle);
    procedure ProgressVisible(FVisible: Boolean);
    procedure ProgressOpacity(FOpacity: single);
    procedure SetTag(Tag: Integer);
    procedure BringToFront;
    procedure BringToFrontSlide;
    procedure SendToBack;
    function GetTag: Integer;
    function GetValue: Single;
    function GetMax: Single;
    function GetMin: Single;
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObjectSlide: LongInt;
    function GetObjectBkg: LongInt;
    function GetObject: LongInt;
    function HandleSlide: TFmxObject;
    function HandleBkg: TFmxObject;
    function Handle: TFmxObject;

Thank you very much! This is what I've been waiting for! I just don't have the skills of a designer in graphic editors!

[statics]

Is there any way to include DSG compatibility in LizzardInstaller?
The changelog states that Cesar includes this module, but I can't find the scripts to use as a base

[BLACKFIRE69]

FMXInno Final Release: [2023-Dec-29] - Update 02

@everyone who contributed to FMXInno,

As we wrap up the year, and with this being the last update for this year, i want to express my gratitude for your invaluable contributions—bug reports, feature requests, and creative ideas. Your involvement has played a key role in refining FMXInno throughout all the years since the start. Thanks for being part of the FMXInno journey. Wishing you all the best in the coming year!

Cheers!

- BLACKFIRE

New update uploaded to first post, check it out.


What's new:

1. Added:
   - function wSystemReboot(EWX_Flags: UINT): Boolean;
   - function WinElevenTime(const IsClock24: Boolean): WideString;
   - function WinElevenDate: WideString;
   - procedure WinElevenChangeTimeAbbrev(const sAM, sPM: WideString);
   - procedure WinElevenChangeTimeFormat(const sTimeFormat: WideString);
   - procedure WinElevenChangeDayStr(const DayIdx: Integer; DayStr: WideString);
   - procedure WinElevenChangeMonthStr(const MonthIdx: Integer; MonthStr: WideString);
   - procedure WinElevenChangeDateFormat(const sDateFormat: WideString);
   - New FTrackBarCustom class.

2. Updated:
   - function wGetShortCut(Key: Word; Shift: TShiftState): TShortCut;
   - FCmdOut class.
   - FVirtualAction class.
   - FInstNewProc class.
   - DrawFrame for FForm, FCustomFluentWindow, FFluentDirBrowse and FFluentStartBrowse classes. 

3. Fixed:
   - function InstallFMXFont(FontFileName: WideString): Boolean;
   - function DeleteFMXFont(FontFileName: WideString): Boolean;
   - procedure InvalidateFMXFont;
   - IsChecked for FToggleCheckBox.

4. FFluentDirBrowse, FFluentStartBrowse are now more customizable.
  - Added DisableDefaultAppName.
  - Button settings
  - and more.

5. Some improvements and minor bug fixes.

[Tihiy_Don]

When changing the visible property of the FTrackBarCustom component to false for the first time, part of the Progress element does not disappear. It disappears when switching again. even if you register these properties together, the problem is similar:

VolTrackbar.Visible(false);
VolTrackbar.ProgressVisible(false);

Example:

[Jahan1373]

://www.mediafire.com/file/gh4um1dsm92xbeg/Help.zip/file
Hello
Can someone help me, I have a problem with this installation
CPU will be 100% after installation
Second, after the installation is finished, the installation icons are opened, the problem is that they are white on the desktop, the game icon is not visible.
Friends, how to solve this problem?