FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

Originally Posted by audiofeel

If we take your script as a basis and add FComboColorBox activation to it when you activate the FComboColorBox for the first time, it does not appear where it was intended Why??

I think the problem is in the arrangement.

[hitman797]

The design is 100 percent complete..

[audiofeel]

Originally Posted by hitman797

The design is 100 percent complete..

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

[hitman797]

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.

[audiofeel]

Originally Posted by hitman797

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

gorgeous

[audiofeel]

@BLACKFIRE69
Show an example of how to change the color of objects on the fly, as in the example below? FReactangle(FillColor.Stroke.Color). I can't do it with FColorbox.I can't do it. The color changes if you only touch the object.

var
  UIColour: array of TAlphaColor = [$B93A4955, $FF202B2F, $FFC0233C];
procedure TForm1.ComboColorBox1Change(Sender: TObject);
var
  I, J: Integer;
begin
  if ComboColorBox1 = Sender then
    J := 0;
  if ComboColorBox2 = Sender then
    J := 1;
  if ComboColorBox3 = Sender then
    J := 2;
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[I] is TShape) then
    begin
      if TShape(Components[I]).TagString = J.ToString then
        TShape(Components[I]).Fill.Color := TComboColorBox(Sender).Color;
      if TShape(Components[I]).TagString = (J + Length(UIColour)).ToString then
        TShape(Components[I]).Stroke.Color := TComboColorBox(Sender).Color;
    end;
    UIColour[J] := TComboColorBox(Sender).Color;
  end;
end;

[hitman797]

Originally Posted by audiofeel

@BLACKFIRE69
Show an example of how to change the color of objects on the fly, as in the example below? FReactangle(FillColor.Stroke.Color). I can't do it with FColorbox.I can't do it. The color changes if you only touch the object.

var
  UIColour: array of TAlphaColor = [$B93A4955, $FF202B2F, $FFC0233C];
procedure TForm1.ComboColorBox1Change(Sender: TObject);
var
  I, J: Integer;
begin
  if ComboColorBox1 = Sender then
    J := 0;
  if ComboColorBox2 = Sender then
    J := 1;
  if ComboColorBox3 = Sender then
    J := 2;
  for I := 0 to ComponentCount - 1 do
  begin
    if (Components[I] is TShape) then
    begin
      if TShape(Components[I]).TagString = J.ToString then
        TShape(Components[I]).Fill.Color := TComboColorBox(Sender).Color;
      if TShape(Components[I]).TagString = (J + Length(UIColour)).ToString then
        TShape(Components[I]).Stroke.Color := TComboColorBox(Sender).Color;
    end;
    UIColour[J] := TComboColorBox(Sender).Color;
  end;
end;

see this, change the color of objects on the fly.

FMXColorAnimation[1].StopAtCurrent;
FMXColorAnimation[1].SetColors(FMXComboColorBox[2].GetColor, FMXComboColorBox[1].GetColor);
FMXColorAnimation[1].Start;

FMXArc[2].StrokeColor(FMXComboColorBox[3].GetColor);
FMXCircle[5].StrokeColor(FMXComboColorBox[3].GetColor);
FMXRectangle[87].FillColor(FMXComboColorBox[3].GetColor);

[hitman797]

add Finished Page.

//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]

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

[hitman797]

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

[audiofeel]

when the installation really goes into error, the animation of the last page does not seem very successful, but it is better than without it.

[hitman797]

Originally Posted by audiofeel

when the installation really goes into error, the animation of the last page does not seem very successful, but it is better than without it.

move all the objects in the FMXTabItem[11] to FMXTabItem[4].

FMXTabItem[11] in FMXLayer3D[2].
FMXTabItem[4] in FMXLayer3D[1].

[audiofeel]

Originally Posted by hitman797

move all the objects in the FMXTabItem[11] to FMXTabItem[4].

FMXTabItem[11] in FMXLayer3D[2].
FMXTabItem[4] in FMXLayer3D[1].

I. very interesting, but nothing is clear
-------
II. above in the posts you wrote that you may need to rearrange the procedures and then the ColorBox will appear where necessary. I finally found this place. you need to Align(Right); remove to the end.
-------
III. you need to think something about calculating the size of the components. we are not on the components page. probably do something like that. I don't know...

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then  sum3:=sum3+TCheckBox(Sender).Tag/100 else
sum3:=sum3-TCheckBox(Sender).Tag/100;
end;

[hitman797]

Originally Posted by audiofeel

I. very interesting, but nothing is clear
-------
II. above in the posts you wrote that you may need to rearrange the procedures and then the ColorBox will appear where necessary. I finally found this place. you need to Align(Right); remove to the end.
-------
III. you need to think something about calculating the size of the components. we are not on the components page. probably do something like that. I don't know...

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if TCheckBox(Sender).Checked then  sum3:=sum3+TCheckBox(Sender).Tag/100 else
sum3:=sum3-TCheckBox(Sender).Tag/100;
end;

[Component0]
Name=Core files
Size=30000

[Component1]
Name=Need For Speed Underground
Size=30000

[Component2]
Name=Need For Speed Underground 2
Size=30000

[Component3]
Name=Need For Speed Most Wanted 05'
Size=30000

[Component4]
Name=Need For Speed Carbon
Size=30000

[Component5]
Name=Need For Speed Pro Street
Size=30000

[Component6]
Name=Need For Speed Undercover
Size=30000

[Component7]
Name=Need For Speed Shift
Size=30000

[Component8]
Name=Need For Speed Hot Pursuit
Size=30000

[Component9]
Name=Need For Speed The Run
Size=30000

[Component10]
Name=Need For Speed Shift 2 Unleashed
Size=30000

[Component10]
Name=Need For Speed Most Wanted 12'
Size=30000

[Component11]
Name=Need For Speed Rivals
Size=30000

[Component12]
Name=Need For Speed 15'
Size=30000

function GetIniBool(const Section, Key: String; const Default: Boolean; const Filename: String): Boolean;
function GetIniInt(const Section, Key: String; const Default, Min, Max: Longint; const Filename: String): Longint;
function GetIniString(const Section, Key, Default, Filename: String): String;

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

[BLACKFIRE69]

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;

{ 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';