DiskSpan GUI

[Anonymous0000]

Originally Posted by Cesar82

Updated DiskSpan GUI to v2.0.2.1 in the first post.

- Changed DiskSpan GUI interface to a more compact size.
  >> Now allows you to use the DiskSpan GUI at lower resolutions or higher magnification scales without cropping the interface.
- Added support for including a header image in the DiskSpan GUI (to spruce things up).
  >> Supports adding an image named "Header.<ext>" with extensions ".png" or ".jpg" or ".bmp" or ".gif" (without animation) inside the "Resources" folder.
  >> Some options can be configured in DEVELOPER mode or by manually editing the [HeaderSettings] section of the "Resources\DSG_Settings.ini" file generated after the first run of the DiskSpan GUI.
- Added new option to create list of instaled files during the instalation (only to compatibles installers).
- Added XTool BMS plugin "Alan Wake 2".
- Added XTool plugin "Ghost Of Tsushima".
- Updated XTool precompressor from v0.8.7 to v0.8.9
- Updated LZMA SDK compressor from v23.01 to v24.07 (2024-06-19).
- Updated 7-Zip compressor from v23.01 to v24.07 (2024-06-19).
- Updated UnRAR.exe/UnRAR.dll decompressor from v7.00 to v7.01 (DLL 7.1.100.1230).
- Updated CmdOutEx.dll library (internal) to v1.0.0.2 build 240429. 
- Updated DiskSpan GUI database to version 1.0.9.0 (Thanks to KaktoR).
  >> Now with 428 game presets and 31 collection presets (64-bits).
  >> Now with 37 game presets and 8 collection presets (32-bits).
- Fixed create/delete files from SETTINGS folder on add/edit DSG_External.ini file.
- Fixed some minor bugs.

There's an error when opening up x64 developer mode: DiskSpan_GUI v2.0.2.1 (x64).7z

looks like exe naming error

[mausschieber]

Originally Posted by Anonymous0000

There's an error when opening up x64 developer mode: DiskSpan_GUI v2.0.2.1 (x64).7z

looks like exe naming error

it's not really an error rename DiskSpan_GUI_64.exe to DiskSpan_GUI.exe
then it works

[Cesar82]

Originally Posted by Anonymous0000

There's an error when opening up x64 developer mode: DiskSpan_GUI v2.0.2.1 (x64).7z

looks like exe naming error

Download fixed bat files HERE and replace.

[demon964]

after update i can create components and install with Light Installer Script (LIS) - DiskSpan_GUI ?

[Cesar82]

Originally Posted by demon964

after update i can create components and install with Light Installer Script (LIS) - DiskSpan_GUI ?

Using components as additional items with only one game will require waiting for the next LIS update. I will update this weekend. Only the CIU has been updated so far for the latest DSG changes.

[Lord.Freddy]

Hi Cesar82,
I recently created a form in Inno Setup that works with any DPI using a custom scaling function. I’m sharing this with you because I noticed you’re experiencing issues with the correct scaling of "DiskSpanGUI" across different DPI settings, and I believe my solution could help.
Below, you'll find a simple form that demonstrates the difference between default scaling and custom scaling. Please give it a try, and let me know if it works for you!

[Cesar82]

Originally Posted by Lord.Freddy

Hi Cesar82,
I recently created a form in Inno Setup that works with any DPI using a custom scaling function. I’m sharing this with you because I noticed you’re experiencing issues with the correct scaling of "DiskSpanGUI" across different DPI settings, and I believe my solution could help.
Below, you'll find a simple form that demonstrates the difference between default scaling and custom scaling. Please give it a try, and let me know if it works for you!

Thanks for the support...
I've already tested something with custom scale but it doesn't work. It just makes DSG slower than if I use ScaleX and ScaleY to create all the forms.

It's not that.
The problem is that the DSG was the size of the screen and when applying the 150% scale, for example, it highlights the HEIGHT size of the monitor and is not drawn larger than the monitor's resolution.
The same happens with your script, see the attached video.

[Lord.Freddy]

Originally Posted by Cesar82

Thanks for the support...
I've already tested something with custom scale but it doesn't work. It just makes DSG slower than if I use ScaleX and ScaleY to create all the forms.

It's not that.
The problem is that the DSG was the size of the screen and when applying the 150% scale, for example, it highlights the HEIGHT size of the monitor and is not drawn larger than the monitor's resolution.
The same happens with your script, see the attached video.

How about this?, This works perfectly for me.

#define DEBUG 0

[Setup]
AppName=SimpleForm
AppVerName=SimpleForm
CreateAppDir=no
OutputDir=.\
OutputBaseFilename=SimpleForm_CustomScale
[/Setup]

#Include AddBackslash(SourcePath) + "Module\ISSystemInfoModule.iss"

[_Code]
const
  DEFAULT_DPI = 96; // Default DPI (96 DPI is 100%)

function ScaleFontSize(Value: Integer): Integer;
var
  CurrentDPI: Integer;
begin
  CurrentDPI := GetDisplayVerticalDPI;
  Result := Round((((DEFAULT_DPI * 100) div CurrentDPI) * Value) div 100);
end;

function GetTextWidth(aText: String; aFont: TFont): Integer;
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Canvas.Font.Assign(aFont);
    Result := Bmp.Canvas.TextWidth(aText);
  finally
    Bmp.Free;
  end;
end;

function GetTextHeight(aText: String; aFont: TFont): Integer;
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Canvas.Font.Assign(aFont);
    Result := Bmp.Canvas.TextHeight(aText);
  finally
    Bmp.Free;
  end;
end;

function InitializeSetup: Boolean;
var
  SF: TSetupForm;
  SFP: TPanel;
begin
  SF := CreateCustomForm;
  with SF do
  begin
    ClientWidth := 1000;
    ClientHeight := 1350;
    Position := poDesktopCenter;
    Caption := 'CustomScale';
    BorderStyle := bsSingle;
    BorderIcons := [biSystemMenu, biMinimize];
    SFP := TPanel.Create(SF);
    with SFP do
    begin
      Parent := SF;
      Align := alClient;
      BevelInner := bvNone;
      BevelOuter := bvNone;
      Caption := 'Simple Form';
      Font.Style := [fsBold];
      Font.Size := ScaleFontSize(26);
      TabOrder := 0;
    end;
    with TLabel.Create(SF) do
    begin
      Parent := SFP;
      AutoSize := False;
      Caption := 'Simple Form';
      Font.Style := [fsBold];
      Font.Size := ScaleFontSize(99);
      Width := GetTextWidth(Caption, Font);
      Height := GetTextHeight(Caption, Font);
      Left := 10;
      Top := SF.ClientHeight - Height - Left;
      Transparent := False;
      Color := clYellow;      
    end;
    ShowModal;
  end;
  Result := False;
end;
[_/Code]

#if DEBUG
  #expr SaveToFile(AddBackslash(SourcePath) + "SimpleForm_PREPROCESSED.iss")
#endif