FileForums - FMXInno - Windows Fluent Design Installer UI for Inno

Page 5 of 16

« First

Last »

Show 40 post(s) from this thread on one page

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - FMXInno - Windows Fluent Design Installer UI for Inno (https://fileforums.com/showthread.php?t=104852)

nordi

26-02-2023 22:22

Hi @audiofeel,

i have played a bit with your Installer (Atomic Hearts) and created my own style. All goes well when the Installer is directly on any harddrive...
When I create an ISO with the Installer, mount it and start the Setup.exe, then it only hanging in the background/taskbar and I only can kill it over taskmanager.
(> same with your provided original on my PC)

My Info:
- Win11-2022 using
- my Script has only other Images and more Redist Icons.
- ISO made with ImageBurn / Mounted with Win11 directly

Do you get the same behavier ?! perhaps already any solution ;-)

(Edit: Same for me with the provided CorePack)

BLACKFIRE69

04-03-2023 17:13

Quote:

Originally Posted by audiofeel (Post 500356)

Ok, hello everyone, who will help? how do I transfer the value from the "FTrackBar" to the "Volume" of the music?

that is, to put it simply, to make a volume control
I tried to do this

Code:

procedure TrackbarOnChange(Sender: TObject);

begin

  MusicObj.SetVolume(VolTrackbar.GetValue);

end;

Inno says... not right
thank you in advance.

Code:

procedure Trackbar1OnChange(Sender: TObject);

begin

  MusicObj.SetVolume(Round(Trackbar_Regular.GetValue));

end;

but why?

Code:

IXBass :

procedure SetVolume(Const Vol: Integer);





FTrackBar :

function GetValue: Single;

auaksa

04-03-2023 17:41

@BLACKFIRE69

thx for ur replay my msg :)

BLACKFIRE69

05-03-2023 06:02

Quote:

Originally Posted by audiofeel (Post 500362)

Everything is OK, it's working. I may have one more question? Not very smooth volume control, in fact, it disappears already on half of the trackbar.

yes, volume control is neither gradual nor smooth. i agree.
the volume range is (-10,000 to 0).

DSBVOLUME_MAX := 0;
DSBVOLUME_MIN := -10,000

For More Info

i don't know how to do smooth control tho.
what i'm doing is simply just set the value as below. :p

Code:

Vol := (InputVolPct - 100) * 100;

DirectSoundBuffer.SetVolume(Vol)

if anyone knows a better way let me know.

Cesar82

05-03-2023 07:17

1 Attachment(s)

Quote:

Originally Posted by BLACKFIRE69 (Post 500368)

Code:

Vol := (InputVolPct - 100) * 100;

DirectSoundBuffer.SetVolume(Vol)

if anyone knows a better way let me know.

This makes changing the volume a little smoother.
I hope it helps you!

BLACKFIRE69

05-03-2023 22:47

FMXInno v1.0.0.2 - Updates

Quote:

Originally Posted by Cesar82 (Post 500371)

This makes changing the volume a little smoother.
I hope it helps you!

this could work..

FMXInno Updates:

Code:

What's new:



 * Updated Music Plugin.

 * Updated Skia.

   - Skia Graphic Library   v107.0.0 --> v107.1.1

   - sk4d.dll   v4.0.2 --> v4.1.1



 * Compiled in RadStudio 11.3.

(the first post has also been updated)

.

BLACKFIRE69

08-03-2023 08:45

FMXInno v1.0.0.2 - Updates

Quote:

Originally Posted by audiofeel (Post 500375)

Animation broke, could you bring back the animation? I understand that you can live without animation, but still it was better with it.

first of all i apologize.
it's my responsibility to check that everything is working fine before sharing the new update. but i didn't.

custom page animations seem to not work properly with the latest version of RadStudio(v11.3). so i went back and recompiled the DLL with the previous version(v11.2 + Patch 01). so this might work.

Quote:

Originally Posted by audiofeel (Post 500386)

Hello again to everyone who helps with the combobox? (drive letter), does not work normally (you will understand where and how at startup and test)

let's see...

guys, could you check this DLL before updating the first post?

FMXInno - Updates

Code:

* Updated Video Player Volume Function.

* Added new properties/functions for FEdit.

  --Password(FPassword: Boolean) 

  --FilterChar(FFilterStr: WideString) 

  --DisableFocusEffect(FDisable: Boolean) 

  --MaxLength(FLength: Integer) 

  --HitTest(FEnable: Boolean) 

  --Caret(FColor: TAlphaColor FInterval: Integer FWidth: Word) 

  --CheckSpelling(FCheck: Boolean) 

  --CaretShow(FShow: Boolean) 

  --SelectAll 

  --SelectWord 

  --SelStart(FValue: Integer) 

  --SelLength(FValue: Integer) 

  --GetSelText: Widestring 

  --SelectionFillColor(FColor: TAlphaColor) 

  --SelectionFillImage(FImage: WideString) 

  --SelectionFillGradient(FColor1, FColor2: IntegerFStyle: TGradientStyle) 

  --SelectionFillGradientLinearAngle(FAngle: Single) 

  --SelectionFillGradientRadialAngle(FAngle: Single) 

  --OnTyping(FEvent: TNotifyEvent) 

  --OnValidate(FEvent: TValidateTextEvent) 

  --OnValidating(FEvent: TValidateTextEvent) 

  --OnEnter(FEvent: TNotifyEvent) 

  --OnExit(FEvent: TNotifyEvent)

BLACKFIRE69

08-03-2023 09:17

Quote:

Originally Posted by audiofeel (Post 500399)

Thank you for taking the time. The folder name is duplicated in "DirBrowseForm". I believe that the culprit of this is "ChangeDirectory". This is an old bug, I have never written to you about it, but I just did not use this procedure. Everything else seems fine at first glance. But I could be wrong.

try this...

BLACKFIRE69

08-03-2023 09:55

FMXInno v1.0.0.2 - Updates

the first post has been updated. check it out!

BLACKFIRE69

08-03-2023 17:45

Quote:

Originally Posted by audiofeel (Post 500314)

All projects written using "FMXInno" do not run on flash drives, card readers, sd cards, nor do they run on external hard drives and SSDs. also if they are inside the .iso file

this is a minor fix. everything works ok in my tests. but i need you guys to check this further...

Tihiy_Don

09-03-2023 02:21

Good afternoon! You have made adjustments to the shared library, please make adjustments for the library under Windows 7.

BLACKFIRE69

09-03-2023 03:29

Quote:

Originally Posted by Tihiy_Don (Post 500407)

Good afternoon! You have made adjustments to the shared library, please make adjustments for the library under Windows 7.

it may not possible to have blurred effects on Windows 7. but other features should work, although i haven't tested it once.

Tihiy_Don

09-03-2023 03:34

Quote:

Originally Posted by BLACKFIRE69 (Post 500409)

it may not possible to have blurred effects on Windows 7. but other features should work, although i haven't tested it once.

I have no goal to get all sorts of effects, the main thing is to work from Windows 7 to Windows 11. I would appreciate it if you updated the library.

BLACKFIRE69

09-03-2023 03:37

FMXInno v1.0.0.2 - Updates

FMXInno - Quality Updates

What's New:

Code:

* Fixed the initialization failure when the Setup.exe is in external driver, USB or ISO files.

* Updated external plugins.

Check out the first post...

BLACKFIRE69

10-03-2023 06:11

FMXInno Power Plan

Quote:

Originally Posted by audiofeel (Post 500418)

The "High performance required" power plan (if it can't be turned on or you don't know how... and to hell with it).

by using this simple tool, we could exempt the user from it. ;)

FMXInno-PowerPlan.exe:

Code:

USAGE:

   FMXInnoPowerPlan.exe [/Switch]



SWITCH:

   /Enable  = Enable FMXInno PowerPlan.

   /Disable = Disable FMXInno PowerPlan.

checkout the Test.iss for more details...

.

nordi

10-03-2023 22:30

@blackfire: Thanks for the final solution to the external media problem.
@audiofeel : Thanks to the first attempts to solve the problem.

This project is really great. :-)

BLACKFIRE69

12-03-2023 13:47

Quote:

Originally Posted by audiofeel (Post 500434)

"FEdit" doesn't want to hide and show up as desired, What's wrong? Who understands what? Correct it.
Everything is fine with the "FCheckbox". With "edit" no. the code is the same.

why don't you try this way?

.

BLACKFIRE69

14-03-2023 02:34

Quote:

Originally Posted by audiofeel (Post 500472)

A lightweight version of the "METRO" script. Without Autorun and tiles in the form of tiles.
FMXInno + IsArcEx
This is a demo version (demonstration of the capabilities of the dynamic library FMXInno) do not use it for its intended purpose. Only for Windows 10-11
-----------------------
Minor update. Changed the animation effect (I spied UWPTiles here).

added some functions to ExitForm, now it's 100% customizable.

Code:

procedure YesBtnVisible(FVisible: Boolean); 

procedure NoBtnVisible(FVisible: Boolean);

procedure Msg1Visible(FVisible: Boolean);

procedure Msg2Visible(FVisible: Boolean);

Code:

Example:  New Buttons



  ExitForm.YesBtnVisible(False);

  ExitForm.NoBtnVisible(False);



  NewExitBtn[1].FCreate(ExitForm.Handle, ExitForm.GetWidth - NSX(310), ExitForm.GetHeight - NSY(70), 'Yes', False);

  NewExitBtn[1].BackColor(ALPaleturquoise);

  NewExitBtn[1].OnClick(@CommonOnClick);



  NewExitBtn[2].FCreate(ExitForm.Handle, ExitForm.GetWidth - NSX(200), ExitForm.GetHeight - NSY(70), 'No', False);

  NewExitBtn[2].BackColor(ALPaleturquoise);

  NewExitBtn[2].OnClick(@CommonOnClick);

BLACKFIRE69

15-03-2023 05:24

Quote:

Originally Posted by audiofeel (Post 500478)

@BLACKFIRE69 Have you tried to make "Plugin\FluentAPI" on the standard "SelectLanguageForm"?
some kind of crap turns out :D:D

yes, unless you set the background color to null anyway.

.

BLACKFIRE69

15-03-2023 07:11

FMXInno v1.0.0.2 - Updates

Quote:

Originally Posted by audiofeel (Post 499880)

Quote:

Originally Posted by BLACKFIRE69 (Post 499876)

FMXInno - Dev

Code:

* Fully customizable UWP Tiles was a feature in the version v.1.0.0.3



* it's the only feature which supported by its predecessor, FMXInno v1.0.0.2



* if you are interested, i can add this feature on request.

Of course it's interesting. Version 1.0.0.3 is needed

sorry bro, i didn't see that...

FMXInno - Cumulative Update

Code:

* Added UWP Tiles.

three examples are attached.

Example1: An example with default settings.
Example2: i'm gonna show you how to create your own custom tiles.
Example3: A more customized example.

.

BLACKFIRE69

15-03-2023 08:17

Quote:

Originally Posted by audiofeel (Post 500484)

@BLACKFIRE69
I have no words, great job. It remains only to find an idea to implement it all (and the ideas have run out). Of course, the low feedback is depressing, each post is downloaded at least 50 times and there is no feedback.

yes, one of the reasons why i gave up on this whole project. it leads to lack of motivation. :(

and @audiofeel,
you always appreciate my works. so thank you very much. :)

BLACKFIRE69

15-03-2023 08:42

Quote:

Originally Posted by audiofeel (Post 500487)

I found one oddity, if you click on the tile not with the left mouse button, as it should be, but with the right, and not just once, but a lot, then the tile shifts down to the lower right corner.
here is an example in the screenshot :o

Fixed! ;)

.

BLACKFIRE69

16-03-2023 03:23

FMXInno v1.0.0.2

Hi,

anyone interesting in creating custom components for FMXInno (like FUWPTiles, FToggleCheckBox, FNotification, etc.) is welcome,
and you'll get proper credit for doing so...

On FMXInno i called blueprints for custom components like the unreal engine(except the visual scripting part). :p

,

BLACKFIRE69

16-03-2023 08:31

FMXInno v1.0.0.2 - Updates

Update Available!

Code:

* The latest update is in the first post.

* Those who don't have the latest final release go and download it!

BLACKFIRE69

18-03-2023 06:12

FMXInno v1.0.0.2 - Updates

Quote:

Originally Posted by BLACKFIRE69 (Post 500499)

Update Available!

Code:

* The latest update is in the first post.

* Those who don't have the latest final release go and download it!

One More Thing

Code:

* Added rating stars.

BLACKFIRE69

20-03-2023 07:18

Quote:

Originally Posted by audiofeel (Post 500533)

@BLACKFIRE69.
I found a small bug. If the user chose "solid color" instead of wallpaper, there will be an error. Culprit = "GetDesktopImgColorFMX", "FUserInfo" - "function Wallpaper: WideString"

this could be more helpful.

Code:

* Added new functions.

  - GetDesktopSolidColorVCL

  - GetDesktopSolidColorFMX

  - DesktopImgExist

Code:

Example:



if DesktopImgExist then

   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopImgColorVCL, False, 0.4, 0)

else

   FMXForm.FCreateFluentColor(WizardForm.Handle, GetDesktopSolidColorVCL, False, 0.4, 0);

BLACKFIRE69

20-03-2023 07:28

Quote:

Originally Posted by audiofeel (Post 500522)

@BLACKFIRE69
Hi. In all your demo examples, etc., the size of the game being installed does not change when additional options are selected, such as additional language packs and optional packages. And he probably has to change. In the standard version, everything is easier with this, just added the desired size to the component and it automatically added itself. Don't you think to automate it somehow? as in the installer from "GOG"

search for the word Updated23320 to find the changes.

.

Behnam2018

22-03-2023 09:00

2 Attachment(s)

New Seutp

Masquerade

22-03-2023 09:26

Quote:

Originally Posted by audiofeel (Post 500557)

Wow! Cool installer. Who made it? And is it possible to repeat it? that's the question

Yes, an incredible job :p :D

BLACKFIRE69

22-03-2023 10:40

FMXInno v1.0.0.2

Quote:

Originally Posted by audiofeel (Post 500475)

@BLACKFIRE69: Mr... Is it possible to change the volume with the mouse wheel? (you point the pointer at the button, turn the wheel and the volume changes) As in the latest Win11 builds. A non-interfering SetHint appears at the top with numbers showing the level.
Sorry for my english, you all already felt a slight Welsh accent
Here , as if it is possible

Added OnMouseWheel event for FMXForm and Trackbar. let me know if you need OnMouseWheel event for other components as well.

.

Behnam2018

22-03-2023 22:43

I thank and apologize to all my friends

made BY KaOs Repack

Masquerade

22-03-2023 23:28

Quote:

Originally Posted by Behnam2018 (Post 500567)

made BY KaOs Repack

No, made by audiofeel, as written in credits, and thanks to BLACKFIRE69 for the IsArcEx and FMXInno libraries!

BLACKFIRE69

24-03-2023 07:38

FMXInno v1.0.0.2 - Updates

Code:

* Now almost all components are ready to work with FXPacker and FXStream.

BLACKFIRE69

27-03-2023 11:15

FMXInno - Custom Fonts

Quote:

Originally Posted by audiofeel (Post 500563)

Here, a little higher, a user under the nickname Behnam2018 posted a screenshot with the installer. An experienced eye will notice that the fonts that should be displayed are not displayed there. Most likely, Behnam2018 is installed "Windows7". On it, with the "temporary" installation of fonts, small problems sometimes arise. As a temporary solution, I propose this.

Code:

function InitializeSetup(): Boolean;

var

  ResultCode: Integer;

begin

  if not FontExists('My Font') then

  begin

    ExtractTemporaryFile('MyFont.ttf');

    ExtractTemporaryFile('FontReg.exe');

    Exec(ExpandConstant('{tmp}\FontReg.exe'), '/copy', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

  end;





  Result:= True;

end;

https://code.kliu.org/misc/fontreg/

could you test this?

Code:

function InitializeSetup(): Boolean;

begin

{ Font }

  ExtractTemporaryFile('{#MyFont1}');

  ExtractTemporaryFile('{#MyFont2}');



  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));

  InstallFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));

{ Font }



  FMXInnoInit;



  Result := True;

end;



procedure DeinitializeSetup();

begin

{ Font }

  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont1}'));

  DeleteFMXFont(ExpandConstant('{tmp}\{#MyFont2}'));

{ Font }



  FMXInnoShutDown;

end;





procedure FMXDesigning;

begin

  { FMX Blank Form }

  FMXForm.FCreateBlankForm(WizardForm.Handle, ALCrimson, '');

  FMXForm.SetCursor(ExtractAndLoad('Dark2.ani'));

    // Font

  InvalidateFMXFont;



  ....



end;

BLACKFIRE69

27-03-2023 12:29

Quote:

Originally Posted by audiofeel (Post 500593)

I have no way to test this on Windows 7. On Windows 11, everything is fine.

DeleteFMXFont function is not needed, you can remove it.

BLACKFIRE69

27-03-2023 13:14

Quote:

Originally Posted by audiofeel (Post 500596)

If you run and cancel the installation several times, this happens (I realized this by increasing the speed of the cooler). I can make a mistake, but nothing was launched except the installation

oops...

Razor12911

27-03-2023 13:57

2 Attachment(s)

Win 7, works fine on win 10 though.

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

BLACKFIRE69

27-03-2023 16:17

Quote:

Originally Posted by Razor12911 (Post 500599)

edit: multiple instances of taskkill.exe have been running in background, noticed 30 mins later and they've been eating cpu this whole time.

does it happen even after executing DeleteFMXFont??

BLACKFIRE69

27-03-2023 23:24

Quote:

Originally Posted by audiofeel (Post 500602)

@BLACKFIRE69
I found another oddity or feature. On FMXForm.FCreateImageForm does
not display VideoPlayer. Is it possible to implement it?

the video player appears to be invisible when the form is layered. and i haven't been able to find a fix for it so far. sorry,

BLACKFIRE69

28-03-2023 07:18

FMXInno v1.0.0.2 - Updates

What's new:

Code:

* Merged ISArcEx into FMXInno.

  - need to be tested to make sure everything is ok.



* Added new function FXMathExp (which parses math expressions).

  - function FXMathExp(Exp: WideString): Double;

  - it's different from the Calc function in MFT.

Code:

----------ISArcEx----------:



>> remove the following lines highlighted in red from your current script.





[Files]

// External

Source: ".\Unpack\English.ini"; DestDir: {tmp}; Flags: dontcopy

//Source: ".\Unpack\Russian.ini"; DestDir: {tmp}; Flags: dontcopy

Source: ".\Unpack\arc.ini"; DestDir: {tmp}; Flags: dontcopy

Source: ".\Unpack\unarc.dll"; DestDir: {tmp}; Flags: dontcopy

Source: ".\Unpack\ISArcEx.dll"; DestDir: {tmp}; Flags: dontcopy





[Code]



{ ISArcEx v0.4 }

var

  ISArcExDiskCount: Integer;

  ISArcExCancel: integer;

  ISArcExError: boolean;

  ISArcDiskAddingSuccess: boolean;



type

  TCallback = function(OverallPct, CurrentPct, DiskTotalMB, DiskExtractedMB: Integer; DiskName, CurrentFile, TimeStr1, TimeStr2, TimeStr3, Speed: WideString): LongWord;



function ISArcExInit(WinHandle: Longint; TimeFormat: Integer; Callback: TCallback): Boolean; external 'ISArcExInit@files:FMXInno.dll stdcall';

function ISArcExAddDisks(Inputfile, Password, OutputPath: Widestring): Boolean; external 'ISArcExAddDisks@files:FMXInno.dll stdcall';

function ISArcExExtract(DiskNumber: Integer; CfgFile, WorkPath: Widestring): Boolean; external 'ISArcExExtract@files:FMXInno.dll stdcall';

function SuspendProc: Boolean; external 'SuspendProc@files:FMXInno.dll stdcall';

function ResumeProc: Boolean; external 'ResumeProc@files:FMXInno.dll stdcall';

procedure ISArcExStop; external 'ISArcExStop@files:FMXInno.dll stdcall';

procedure ISArcExCleanUp; external 'ISArcExCleanUp@files:FMXInno.dll stdcall';

function ChangeLanguage(Language: Widestring): boolean; external 'ChangeLanguage@files:FMXInno.dll stdcall';

function Exec2(filename, Param: WideString; Show: Boolean): Boolean; external 'Exec2@files:FMXInno.dll stdcall';

{ - End - }

Code:

----------FXMathExp---------:



var

  Exp, Ans: String;



function InitializeSetup(): Boolean;

begin

  Exp := 'Sin(Pi/6) + ATan(1) * (Pow(7*2,2) - (Fact(4) - Floor(8.46))) / Pi + Sqrt(Abs(-553 + Sqrt(9) * LogN(2, 2) / 2^2))';



  Ans := Format('%0.2n', [FXMathExp(Exp)]);  // Ans = 69.00

  

  MsgBox('answer: ' + Ans, mbInformation, MB_OK);

  result:= False;

end;

Code:

Numeric Operators:

x + y, x - y, x * y, x / y, x % y (or Mod), 

x ^ y [Power], x \ y (or Div)



Comparison Operators:

x > y, x < y, x >= y, x <= y, x = y, x <> y, 

!x (not), x & y (and), x | y (or), x xor y



Logical operators:

& (and), | (or), xor, ! (not)



Logical Functions:

iff(e, x, y) -> iff(10 > 3, 1, 0) = 1

isnumber('x')-> isnumber('25') = 1



Bitwise operations:

x && y (band), x || y (bor), !!x (bnot), 

x bxor y, x >> y (shr), x << y (shl)

Code:

Statistical Functions:

max             -> max(2, 4.87, 0.24, 10.0, 11)

min             -> min(3, 4, 7.4, 11.0)

sum             -> sum(0.25, 4.0, 11, 8)

avg             -> avg(7, 3, 5)

count        -> count(x,y,z,...)

stddev       -> stddev(x,y,z,...)        - standard deviation (unbiased)

stddevp      -> stddevp(x1,x2,...)        - standard deviation (biased)

sumofsquares -> sumofsquares(x,y,...)        - sum of passed values squares

variance     -> variance(x,y,...)         - variance (unbiased)

variancep    -> variancep(x,y,...)        - variance (biased)



String Functions:

number         -> number("+835xyz") = 835, number("2e2") = 200

length(s) - length of the string.

pos(t, s) - returns the index value of the first character of t that occurs in s.

hex(s)           - returns numeric value for hexadecimal string.



Sign of a number:

sign        -> sign(-5) = -1, sign(5) = 1, sign(0) = 0

Code:

Predefined Constants:

Pi        = 3.1415926535897932385

e        = 2.71828182845905

True        = 1

False        = 0



Exponent of 10:

e        -> 1e+3 or le3 = 1000 



Trigonometric, hyperbolic and invert functions:

sin(x), cos(x), tan(x), asin(x), acos(x), atan(x), 

cosh(x), sinh(x), tanh(x), 

asinh(x), acosh(x), atanh(x), sinD(x), cosD(x), tanD(x),

RadToDeg(x), DegToRad(x)



Exponential and logarithmic functions:

log(x), lg(x) (log base 10), ln(x), LogN(x, y), exp(x), 

sqrt(x), sqr(x), Pow(x, y), Ldexp(x, y), LnXP1(x)



Numeric and factional part of number:

abs        -> abs(-24)

Int        -> Int(1.951) = 1

frac        -> Frac(12.75) = 0.75

ceil        -> Ceil(-2.8) = -2, Ceil(2.8) = 3

floor        -> Floor(-2.8) = -3, Floor(2.8) = 2

Round        -> Round(1234567, -3) = 1235000, Round(1.235, 2) = 1.24

Trunc        -> Trunc(1234567, -3) = 1234000, Trunc(1.235, 2) = 1.23

Fact        -> Fact(4) = 24  - Factorial



Random number generator:

rnd, randomize

All times are GMT -7. The time now is 21:30.

Page 5 of 16

« First

Last »

Show 40 post(s) from this thread on one page