#751
|
||||
|
||||
FMXInno features
HI, @BLACKFIRE69, can you add Radiant Shapes to the FMXInno.
|
The Following 4 Users Say Thank You to hitman797 For This Useful Post: | ||
Sponsored Links |
#752
|
|||
|
|||
Auto Update Directory Space on Directory Edit
Code for Edit Box
Code:
Page2Edit.FCreate(Page2.Handle); Page2Edit.SetBounds(NSSX(100), NSSY(190), NSSX(520), NSSY(35)); Page2Edit.FontSetting('{#FontName}', VCLFontSizeToFMX2(13), ALGainsBoro); Page2Edit.CanFocus(True); Page2Edit.Enabled(True); Page2Edit.Text(MinimizePathName(WizardForm.DirEdit.Text, WizardForm.DirEdit.Font, WizardForm.DirEdit.Width)); Page2Edit.OnTyping(@BrowseEditOnChange); Logic for procedure Code:
procedure BrowseEditOnChange(Sender: TObject); var PrevDrive, CurrentDrive: String; begin PrevDrive := ExtractFileDrive(WizardForm.DirEdit.Text); CurrentDrive := ExtractFileDrive(Page2Edit.GetText); // Set the installation path to the edited text value WizardForm.DirEdit.Text := Page2Edit.GetText; if PrevDrive <> CurrentDrive then DirUpdateProc(nil); end; Code:
procedure DirUpdateProc(Sender: TObject); begin DiskUsage.SetDir(WizardForm.DirEdit.Text); SelectDirLabel[3].Text('Total Space - ' + MbOrTb(DiskUsage.TotalSpace, 1) + #13 + 'Available Space - '+ MbOrTb(DiskUsage.FreeSpace, 1) + #13 + 'Repack Size - ' + MbOrTb({#RepackSize}, 1)); if Round(DiskUsage.FreeSpace) > StrToInt('{#RequiredSpace}') then begin WizardBtn[4].Enabled(True); //Install Button enabled if there is space end else begin WizardBtn[4].Enabled(False); //Install Button disabled if no space ShowMessage('Not Enough Space', 'Selected Directory does not have required space. Please select a different directory location.'); end; end; |
The Following 7 Users Say Thank You to Fak Eid For This Useful Post: | ||
ADMIRAL (07-03-2024), audiofeel (05-03-2024), Behnam2018 (05-03-2024), BLACKFIRE69 (05-03-2024), JIEXA MEDVED (18-03-2024), Lord.Freddy (05-03-2024), Tihiy_Don (06-03-2024) |
#753
|
|||
|
|||
Common Code to extract Data/Component Files
Declare a global variable DiskSkip in the top
Code:
var DiskSkip: Boolean; Code:
procedure CurStepChanged(CurStep: TSetupStep); var i: Integer; begin DiskSkip:= False; if CurStep = ssInstall then begin ISArcExCancel := 0; ISArcExDiskCount := 0; ISArcDiskAddingSuccess := False; ISArcExError := True; #include "Game/UnpackTools_Init.iss" { - ADDING DISKS: BEGIN -} repeat {< Main Archives >} #ifdef Data1 VerifyFileExist('Data-01.bin'); if DiskSkip then break; #endif #ifdef Data2 VerifyFileExist('Data-02.bin'); if DiskSkip then break; #endif {< Components >} #ifdef Component1 if Checkbox[8].ISChecked then VerifyFileExist('selective-english.bin'); #endif #ifdef Component2 if Checkbox[9].ISChecked then VerifyFileExist('selective-bonus.bin'); #endif until true; { - ADDING DISKS: END -} ISArcExStop; if ISArcExError then ShowMessage('Installation was interrupted', 'Either the installation has been cancelled by the user,' +#13+ 'or the files are corrupted.'); end else if not (ISArcDiskAddingSuccess) and (DiskSkip) then ShowMessage('Installation is corrupted', 'Required disks could not be located.'); Common procedure to handle all Data files Code:
procedure VerifyFileExist(FilePath: WideString); var sPath, sFile: WideString; sExt: String; begin sPAth := AddBackslash(ExpandConstant('{src}')); if FileExists(sPAth + FilePath) then begin ISArcDiskAddingSuccess:= ISArcExAddDisks(sPAth + FilePath, '{#DiskPassword}', ExpandConstant('{app}')); if not ISArcDiskAddingSuccess then begin DiskSkip:= True; Exit; end; ISArcExDiskCount := ISArcExDiskCount + 1; end else begin ShowMessage('Setup Needs the Next Disk', 'Please browse Disk: [ ' + FilePath + ' ] after closing this prompt'#13#10'If this disk can be found in another folder, browse to the correct path.'); sExt:= ExtractFileExt(FilePath); StringChange(sExt, '.', ''); if OpenFileModern(FMXForm.HandleHWND, sExt, FilePath, sPAth, 'Please specify the location of the next disk', sFile) then begin sPAth := ExtractFilePath(sFile); ISArcDiskAddingSuccess:= ISArcExAddDisks(sPAth + FilePath, '{#DiskPassword}', ExpandConstant('{app}')); if not ISArcDiskAddingSuccess then begin DiskSkip:= True; Exit; end; ISArcExDiskCount := ISArcExDiskCount + 1; end else begin ISArcDiskAddingSuccess := False; DiskSkip:= True; Exit; end; end; end; |
The Following 4 Users Say Thank You to Fak Eid For This Useful Post: | ||
#754
|
|||
|
|||
Issue with FCustomFluentWindow
Hi @BlackFire,
I have identified that in 1080p the Form doesn't pop-up at the center of the screen, it is slightly to the left. This is not happening with everyone. Another issue with FCustomFluentWindow is if once triggered it keeps on popping-up repeatedly and cannot be closed. Code:
MessageForm.FCreate(FMXForm.HandleHWND, True, False, 0.56, 0); Code:
MessageForm.FCreateBlankForm(FMXForm.HandleHWND, ALBlack, ''); I've created two videos associated to this. Copy-paste the link after 'youtube.com/' as I'm unable to post the link because they get automatically parsed. Code:
watch?v=lKhINB7hyBY&ab_channel=FaKEid Code:
watch?v=xopBfI90T-g&ab_channel=FaKEid |
#755
|
||||
|
||||
Quote:
|
#756
|
|||
|
|||
Yes the issue is the resolution scale. In 100%, it comes completely in the center of the screen, but in 125%, it is slightly to the left.
I'm not using any custom theme file here. No code changes here, just the default template shared by @Blackfire for WPI Corepack and the issue is happening for FCustomFluentWindow for me. |
The Following User Says Thank You to Fak Eid For This Useful Post: | ||
Behnam2018 (08-03-2024) |
#757
|
||||
|
||||
FMXInno Dev
Hola everyone,
This is the FMXInno official development library, encompassing all features. my intention with this update is to address known issues so far. therefore, i need your assistance in testing it, especially in this development build. i intend to ensure the correct behavior of forms, including proper scaling and positioning. Code:
1. Note: This is in the development stage and not recommended for use in production. 2. Don't forget to share your feedback and feel free to report any bugs you discover. Quote:
Code:
Example: procedure FMXDesigning; begin {...} Page1.FCreate(FMXForm.Handle); Page1.Visible(False); {...} Page2.FCreate(FMXForm.Handle); Page2.Visible(False); {...} end; Quote:
Code:
* FMXInno Form Types: 1. Normal Form: -- This is just an FMX layer; you can create any FMX object over it. -- You can still see through and access every InnoSetup object as this is a layer. 2. Blank Form: -- A standard FMX form filled with a solid color or an image by default. 3. Fluent Form / Fluent Color Form / Fluent Null (no-color) Form: -- FMX forms that have enabled Windows Fluent (or Acrylic/Aero) effects by default. 4. Gradient Form: -- A standard FMX form filled with a gradient color by default. 5. Image Form: -- An FMX form based on an image (form has the same shape as the image). 6. Background image scrolling Form: -- An FMX form that has a scrolling image background according to mouse movements. Quote:
. Last edited by BLACKFIRE69; 11-05-2024 at 10:02. |
The Following 7 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
audiofeel (12-03-2024), Behnam2018 (12-03-2024), Cesar82 (12-03-2024), hitman797 (12-03-2024), Lord.Freddy (12-03-2024), ScOOt3r (12-03-2024), Tihiy_Don (12-03-2024) |
#758
|
||||
|
||||
@blackfire69
If you compile the script on Inno Setup version 6.2.2, start the installation and then cancel it, the uninstallation form moves to the upper left corner of the desktop. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
Behnam2018 (14-03-2024) |
#759
|
|||
|
|||
Help with Animation of FCustomPage
Can someone help me in animating this section down on the click of 'i' (info button) ? Check the gif:
Page[1]: FCustomPage; PageContent[1]: FRectangle; Code:
Page[1].FCreate(ShadowImg.Handle); Page[1].Visible(False); PageContent[1].FCreate(Page[1].Handle); PageContent[1].FillColor(HTMLColorStrToFMXColor('#1f2227')); PageContent[1].SetBounds(20, 70, 780, 150); PageContent[1].Opacity(0.85); PageContent[1].CornerStyle(2, 2, [tcTopLeft, tcTopRight, tcBottomLeft, tcBottomRight], ctRound); |
#760
|
||||
|
||||
Quote:
and all objects that you place on page animation must have = Align(Client, Center, Left, Right, Bottom...etc) Because it doesn’t just move around the form, but changes ITS size. you can also try placing this object on a FScrollBox Code:
Page1.Height(0); Page1.AnimType(atInOut, 2, 0, False, False); Page1.AnimInterpolation(itBack); ............................. if Page1.GetHeight = 0 then begin Page1.AnimEnable(True); Page1.AnimSetValues(0, 180); end else begin Page1.AnimEnable(True); Page1.AnimSetValues(180, 0); end; Last edited by audiofeel; 16-03-2024 at 08:47. |
The Following User Says Thank You to audiofeel For This Useful Post: | ||
Fak Eid (15-03-2024) |
#761
|
|||
|
|||
Issue resurfaced with FCreateBlankForm
Hi @Blackfire
The earlier issue with FCreateBlankForm, where it loads with a blank image before load, has resurfaced. When running for the first time it is for more time, it subsequently gets faster (depending upon SSD/HDD, I suppose). Can you please look into it? I'm not sure if there is already a fix for it, as I lost track of some recent changes in FMXInno. If there is a fix, let me know. Image and gif added for review. |
#762
|
||||
|
||||
Quote:
Code:
procedure InitializeWizard(); begin FMXForm.Show; end; |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
Behnam2018 (15-03-2024) |
#763
|
||||
|
||||
Quote:
|
The Following User Says Thank You to audiofeel For This Useful Post: | ||
hitman797 (15-03-2024) |
#764
|
||||
|
||||
FMXInno - Cumulative Update
FMXInno: Cumulative Update - [2024-Mar-15]
What's New: Code:
* Merged FMXInno Dev into this. * Updated ISArcEx to the latest version. * Made some improvements and bug fixes. * This update addresses most of the previous issues. * Added Radiant Shapes. * Introduced new properties to classes. * WinTitleBar will now display the application icon by default. * Not compressed by default. - No Exe compressor or file reduction tricks were used. * Implemented new functions. Quote:
. Last edited by BLACKFIRE69; 14-07-2024 at 03:18. |
#765
|
||||
|
||||
Quote:
Last edited by audiofeel; 16-03-2024 at 08:47. |
The Following 2 Users Say Thank You to audiofeel For This Useful Post: | ||
Behnam2018 (16-03-2024), Fak Eid (01-04-2024) |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Windows Fluent Effects Standalone API - InnoSetup / VCL / FXM | BLACKFIRE69 | Conversion Tutorials | 0 | 15-11-2023 18:35 |
Windows Phone Installer similar to razor12911's original design? | Kitsune1982 | Conversion Tutorials | 0 | 02-07-2020 14:04 |
INDEX - Conversion Tutorial Index | Razor12911 | Conversion Tutorials | 5 | 11-06-2020 03:05 |
Frequently Asked Questions | Joe Forster/STA | PC Games - Frequently Asked Questions | 0 | 29-11-2005 10:48 |