[BLACKFIRE69]

FMXInno Updates

-- Added Botva2-like buttons, checkboxes, and progress bars.

// Picture Button 2 AND CheckBoxes
type
  FPictureButton2 = interface(IUnknown)
    '{FA2FD0DA-5D2B-487D-A130-F23C4861AA7F}'
    function FCreate(FHandle: TFmxObject; FBtnPic: String; FLeft, FTop, FWidth, FHeight: Single): TFmxObject;
    function FCreateEightBtn(FHandle: TFmxObject; FBtnPic: String; FLeft, FTop, FWidth, FHeight: Single): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Opacity(FOpacity: Single);
    procedure Enabled(FEnabled: Boolean);
    procedure SetCheckedEightBtn(FChecked: Boolean);
    procedure Text(FTitle: String);
    procedure FontColor(FontColor: Integer);
    procedure FontSize(FSize: Single);
    procedure FontName(FontName: String);
    procedure FontSetting(FontName: String; FontSize: Single; FontColor: Integer);
    procedure FontStyle(Style: TFontStyles);
    procedure Visible(FVisible: Boolean);
    function IsChecked: Boolean;
    function IsEnabled: Boolean;
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    procedure OnClick(Event: TNotifyEvent);
    procedure ButtonSounds(EnterWav, LeaveWav, ClickWav: String);
    function Handle: TFmxObject;
  end;

  // Picture Visible Part
type
  FPictureVisiblePart = interface(IUnknown)
    '{503EBEA8-C3F1-4F67-92E5-58ECF0D9BDD2}'
    function FCreate(FHandle: TFmxObject; FPic: String; FLeft, FTop, wx, wy, ww, wh: Single): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Height(FHeight: Single);
    procedure Width(FWidth: Single);
    procedure Opacity(FOpacity: Single);
    procedure Enabled(FEnabled: Boolean);
    procedure Visible(FVisible: Boolean);
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    procedure OnClick(Event: TNotifyEvent);
    procedure OnMouseDown(Event: TMouseEvent);
    procedure OnMouseEnter(Event: TNotifyEvent);
    procedure OnMouseLeave(Event: TNotifyEvent);
    procedure OnMouseUp(Event: TMouseEvent);
    function Handle: TFmxObject;
  end;

  // Picture ProgressBar
type
  FPictureProgressBar = interface(IUnknown)
    '{7AA24D07-73E8-453F-9468-04CF27166365}'
    function FCreate(FHandle: TFmxObject; FPBPic, FBackPBPic: String; FLeft, FTop, FWidth, FHeight: Single; PbPicSentToBack: Boolean): TFmxObject;
    procedure Left(FLeft: Single);
    procedure Top(FTop: Single);
    procedure Value(const Current, Max: Integer);
    procedure Visible(FVisible: Boolean);
    procedure Enabled(FEnabled: Boolean);
    function GetLeft: Single;
    function GetTop: Single;
    function GetWidth: Single;
    function GetHeight: Single;
    function GetObject: LongInt;
    function Handle: TFmxObject;
  end;

(graphics are taken from Botva2 and CIU examples. credit goes to their creators.)



.