[BLACKFIRE69]

Originally Posted by Fak Eid

No issues. Completely understandable. I'll just rewrite my code again. Can you please implement 4, 5 and 7 (optional, if possible).

Originally Posted by Fak Eid

Hi @Blackfire69,

3. Functionality to have FImgSlideShow or FFormImgSlide inside FRectangle (not HWND)

1. 'FImgSlideshow' requires its parent as 'HWND' because it's originally based on a VCL component.
2. You can create a 'FFormImgSlide' on an 'FRectangle' because its parent's type requires 'TFMXObject'.

Originally Posted by Fak Eid

4. A variable on ProgressCallback to fetch the total disk size extracted in case of multiple disks. I tried doing (Installation % * Size) div 100 but it is just workaround. (Picture 2 & 3 for reference)

the callback function already has too many parameters, so i'll add two new functions instead.

function ISArcExGetTotalSizeMBOfAllDisks: Integer;
  --> Uncompressed (Original) size of all the disks (in MB).

function ISArcExGetExtractedSizeMBOfAllDisks: Integer;
  --> Currently extracted size of all the disks (in MB).

Example:

function ProgressCallback(...): longword;
var
  S: WideString;
begin
  ...

  // Extra: Titlebar Caption
  S := 'Total Extraction:  ' + IntToStr(ISArcExGetExtractedSizeMBOfAllDisks) + 
       '  MB  /  ' + IntToStr(ISArcExGetTotalSizeMBOfAllDisks) + '  MB';

  WizardForm.Caption := S;

  Result := ISArcExCancel;
end;

Stats:

data1.bf  ==  914 MB
data2.bf  ==  764 MB
data3.bf  ==  613 MB

Total == 2,291 MB

Originally Posted by Fak Eid

5. In some cases, the CpuUsage.Name gives value seperated by Tabs. Any way to remove that? Like:
Processor: { Tab Space } AMD Ryzen 9

  Something := Trim(CpuUsage.Name);

Originally Posted by Fak Eid

7. FCombineText: if have 0 Tab space must get the width of Text 1 and Text 2 should start after some space

To use spaces instead of tab spaces, use a 'Negative' value for 'Tabs'.

• Positive values for Tabs:
  • 1 = One Tab
  • 2 = Two Tabs
  • 3 = Three Tabs
  • etc.
  
  
• Negative values for Tabs:
  • -1 = One Space
  • -2 = Two Spaces
  • -3 = Three Spaces
  • etc.

{ ACombineText }
ACombineText.FCreate(FMXForm.Handle, 50, 80, 'The Module Name:', 'FMXInno.dll', -3, False);

ACombineText.Text1Setting('Segoe UI SemiBold', 16, ALBlack, False);
ACombineText.Text2Setting('Segoe UI', 16, ALRed, False);
ACombineText.Text1ShadowSetting(ALBlack, 0.2, 0.2);
ACombineText.Text2ShadowSetting(ALRed, 0.1, 0.6);

.