FMXInno - Windows Fluent Design Installer UI for Inno

[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!