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

hitman797 · #1 21-09-2023, 06:10

Developer suggestions:
Hi BLACKFIRE69, thank you for making example for 3D animation.
I really appreciate the work you bring to this forum thank you.

Feature of the FMXInno plugin:
GridLayout: TGridLayout;

ComboColorBox: TComboColorBox;

ListBox: TListBox;

hitman797 · #2 22-09-2023, 08:22

Form:

Code:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

GridLayout:

Code:

FMXGridLayout[1].FCreate(FMXTabItem[3].Handle);
FMXGridLayout[1].Align(Client);
FMXGridLayout[1].ItemHeight(168);
FMXGridLayout[1].ItemWidth(224);
FMXGridLayout[1].Orientation(Horizontal);
FMXGridLayout[1].Margins(91, 72, 91, 72);
FMXGridLayout[1].Height(336);
FMXGridLayout[1].Width(672);

ComboColorBox:

Code:

FMXComboColorBox[1].FCreate(FMXLayout[3].Handle);
FMXComboColorBox[1].Align(Client);
FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].FillColor(ALWhite);
FMXComboColorBox[1].Margins(0, 8, 0, 8);
FMXComboColorBox[1].Height(24);
FMXComboColorBox[1].Width(48);
FMXComboColorBox[1].OnChange(@OnChange);

Layer3D:

Code:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

Code:

FMXLayout[1].Position(X, Y);

Rectangle:

Code:

FMXRectangle[1].Position(X, Y);

Label:

Code:

FMXLabel[1].Position(X, Y);

BLACKFIRE69 · #3 22-09-2023, 17:14

Following classes have been added.

Code:

* Standard:
  - TListBox

* Layout:
  - TGridLayout
  - TFlowLayout
  - TScaledLayout

* Colors:
  - TComboColorBox

.

hitman797 · #4 22-09-2023, 18:21

Quote:

Originally Posted by BLACKFIRE69

Following classes have been added.

Code:

* Standard:
  - TListBox

* Layout:
  - TGridLayout
  - TFlowLayout
  - TScaledLayout

* Colors:
  - TComboColorBox

.

@BLACKFIRE69,
Thanks for the update, great job, we can complete the installer.
Some suggestions:
Form:

Code:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

Code:

FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].GetObject;

Layer3D:

Code:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

Code:

FMXLayout[1].Position(X, Y);

Rectangle:

Code:

FMXRectangle[1].Position(X, Y);

Label:

Code:

FMXLabel[1].Position(X, Y);

BLACKFIRE69 · #5 23-09-2023, 04:11

FMXInno Updates - [2023-Sep-23]

Code:

* Added a quality update to the first post. Please check it out.

Quote:

Originally Posted by hitman797

@BLACKFIRE69,
Thanks for the update, great job, we can complete the installer.
Some suggestions:
Form:

Code:

FMXForm[1].FormShow(@FormShow);
FMXForm[1].FormCreate(@FormCreate);
FMXForm[1].FormKeyDown(@FormKeyDown);

ComboColorBox:

Code:

FMXComboColorBox[1].CanFocus(False);
FMXComboColorBox[1].GetObject;

Layer3D:

Code:

FMXLayer3D[1].StyleLookup('backgroundstyle');

Layout:

Code:

FMXLayout[1].Position(X, Y);

Rectangle:

Code:

FMXRectangle[1].Position(X, Y);

Label:

Code:

FMXLabel[1].Position(X, Y);

done.

hitman797 · #6 23-09-2023, 11:28

Thanks Gift 2024 3 Page done.

hitman797 · #7 24-09-2023, 08:00

Quote:

Originally Posted by audiofeel

why don't you resort to this form? more like the original

four pages done thank you @audiofeel for the advice.

hitman797 · #8 24-09-2023, 13:46

The design is 100 percent complete..

hitman797 · #9 24-09-2023, 16:00

Quote:

Originally Posted by audiofeel

great job. nerves of steel. there is no completion page. I once did something similar...

Thank you @audiofeel, the animation and color has been added.

hitman797 · #10 25-09-2023, 15:52

add Finished Page.

Code:

//FMXTabItem[10].IsSelected(True);
//FMXLabel[12].Text('Start installation');
//FMXLabel[13].Text(#$E184);
FMXTabItem[11].IsSelected(True);
FMXLabel[12].Text('Finished');
FMXLabel[13].Text(#$E10A);

fix FMXRectangle[90]

Code:

FMXRectangle[90].CornerStyle(10, 10, [tcTopLeft, tcTopRight, tcBottomLeft, tcBottomRight], ctRound);

hitman797 · #11 25-09-2023, 16:27

if you change all the ctRound with ctInnerRound.
this what lock like.

hitman797 · #12 26-09-2023, 08:15

Developer suggestions:
Hi @BLACKFIRE69, can you add this class to FMXInno.
thank you.

Feature of the FMXInno plugin:
TMemIniFile = class(TCustomIniFile)

MemIniFile:= TMemIniFile.Create('setup.ini');

TRegistry = class(TObject)

Registry:= TRegistry.Create(KEY_READ);

function GetIniString(Section, Key, Default: string; Ini: TMemIniFile): string;
function GetIniBoolean(Section, Key: string; Default: Boolean;
Ini: TMemIniFile): Boolean;
function GetIniFloat(Section, Key: string; Default: Single;
Ini: TMemIniFile): Single;
function GetIniInteger(Section, Key: string; Default: Integer;
Ini: TMemIniFile): Integer;
function GetIniColor(Section, Key: string; Default: TAlphaColor;
Ini: TMemIniFile): TAlphaColor;

procedure SetIniString(Section, Key, Default: string; Ini: TMemIniFile): string;
procedure SetIniBoolean(Section, Key: string; Default: Boolean;
Ini: TMemIniFile): Boolean;
procedure SetIniFloat(Section, Key: string; Default: Single;
Ini: TMemIniFile): Single;
procedure SetIniInteger(Section, Key: string; Default: Integer;
Ini: TMemIniFile): Integer;
procedure SetIniColor(Section, Key: string; Default: TAlphaColor;
Ini: TMemIniFile): TAlphaColor;

BLACKFIRE69 · #13 26-09-2023, 11:07

Quote:

Originally Posted by hitman797

Developer suggestions:
Hi @BLACKFIRE69, can you add this class to FMXInno.
thank you.

Feature of the FMXInno plugin:
TMemIniFile = class(TCustomIniFile)

MemIniFile:= TMemIniFile.Create('setup.ini');

TRegistry = class(TObject)

Registry:= TRegistry.Create(KEY_READ);

function GetIniString(Section, Key, Default: string; Ini: TMemIniFile): string;
function GetIniBoolean(Section, Key: string; Default: Boolean;
Ini: TMemIniFile): Boolean;
function GetIniFloat(Section, Key: string; Default: Single;
Ini: TMemIniFile): Single;
function GetIniInteger(Section, Key: string; Default: Integer;
Ini: TMemIniFile): Integer;
function GetIniColor(Section, Key: string; Default: TAlphaColor;
Ini: TMemIniFile): TAlphaColor;

procedure SetIniString(Section, Key, Default: string; Ini: TMemIniFile): string;
procedure SetIniBoolean(Section, Key: string; Default: Boolean;
Ini: TMemIniFile): Boolean;
procedure SetIniFloat(Section, Key: string; Default: Single;
Ini: TMemIniFile): Single;
procedure SetIniInteger(Section, Key: string; Default: Integer;
Ini: TMemIniFile): Integer;
procedure SetIniColor(Section, Key: string; Default: TAlphaColor;
Ini: TMemIniFile): TAlphaColor;

Code:

{ Ini }
function ReadIniStr(const Section, Key, Default, FileName: WideString): WideString;
  external 'ReadIniStr@files:FMXInno.dll stdcall delayload';
function WriteIniStr(const Section, Key, Value, FileName: WideString): Boolean;
  external 'WriteIniStr@files:FMXInno.dll stdcall delayload';


{ ReadReg }
function pReadRegStr(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): WideString;
  external 'pReadRegStr@files:FMXInno.dll stdcall delayload';
function pReadRegInt(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Integer;
  external 'pReadRegInt@files:FMXInno.dll stdcall delayload';
function pReadRegBool(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Boolean;
  external 'pReadRegBool@files:FMXInno.dll stdcall delayload';
function pReadRegDouble(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Double;
  external 'pReadRegDouble@files:FMXInno.dll stdcall delayload';

hitman797 · #14 26-09-2023, 13:15

Quote:

Originally Posted by BLACKFIRE69

Code:

{ Ini }
function ReadIniStr(const Section, Key, Default, FileName: WideString): WideString;
  external 'ReadIniStr@files:FMXInno.dll stdcall delayload';
function WriteIniStr(const Section, Key, Value, FileName: WideString): Boolean;
  external 'WriteIniStr@files:FMXInno.dll stdcall delayload';


{ ReadReg }
function pReadRegStr(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): WideString;
  external 'pReadRegStr@files:FMXInno.dll stdcall delayload';
function pReadRegInt(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Integer;
  external 'pReadRegInt@files:FMXInno.dll stdcall delayload';
function pReadRegBool(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Boolean;
  external 'pReadRegBool@files:FMXInno.dll stdcall delayload';
function pReadRegDouble(const RootKey: Integer; const Key, Name: WideString; CreateNew: Boolean): Double;
  external 'pReadRegDouble@files:FMXInno.dll stdcall delayload';

Thank you for the replay.

hitman797 · #15 26-09-2023, 17:13

Quote:

Originally Posted by audiofeel

does not work. most likely, this will not work in TAG.

done with Timer.
press Ctrl + D to show color combo box.

Code:

  FMXBass: array [1..2] of IXBass;
  FMXCPU: array [1..2] of FCpuUsage;
  FMXRAM: array [1..2] of FRamUsage;
  FMXDISK: array [1..2] of FDiskUsage;
  FMXGPU: array [1..2] of FGPUInfo;
  FMXINFO: array [1..2] of FOSInfo;

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

The Following 3 Users Say Thank You to hitman797 For This Useful Post:
audiofeel (21-09-2023), Behnam2018 (21-09-2023), BLACKFIRE69 (21-09-2023)

The Following User Says Thank You to hitman797 For This Useful Post:
Masquerade (22-09-2023)

The Following 3 Users Say Thank You to BLACKFIRE69 For This Useful Post:
audiofeel (22-09-2023), hitman797 (22-09-2023), Tihiy_Don (25-09-2023)

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

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

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

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

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

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

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

The Following 3 Users Say Thank You to hitman797 For This Useful Post:
ADMIRAL (28-09-2023), audiofeel (26-09-2023), BLACKFIRE69 (27-09-2023)