Improvements: screen change modes and fixes

Author: r57zone

HMDAssistant/Unit1.dfm

@@ -1,6 +1,6 @@
 object Main: TMain
-  Left = 192
-  Top = 125
+  Left = 193
+  Top = 126
   Width = 336
   Height = 279
   Caption = 'HMD assistant'
@@ -54,9 +54,27 @@ object Main: TMain
         OnClick = EditConfigBtnClick
       end
     end
+    object ModesDisplayBtn: TMenuItem
+      Caption = #1056#1077#1078#1080#1084#1099' '#1101#1082#1088#1072#1085#1086#1074
+      object ExtendedBtn: TMenuItem
+        Caption = #1056#1072#1089#1096#1080#1088#1077#1085#1085#1099#1081
+        OnClick = ExtendedBtnClick
+      end
+      object CloneBtn: TMenuItem
+        Caption = #1055#1086#1074#1090#1086#1088#1103#1102#1097#1080#1081#1089#1103
+        OnClick = CloneBtnClick
+      end
+    end
     object N2: TMenuItem
       Caption = '-'
     end
+    object AboutBtn: TMenuItem
+      Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077'...'
+      OnClick = AboutBtnClick
+    end
+    object N4: TMenuItem
+      Caption = '-'
+    end
     object CloseBtn: TMenuItem
       Caption = #1042#1099#1093#1086#1076
       OnClick = CloseBtnClick

HMDAssistant/Unit1.pas

@@ -6,6 +6,15 @@ interface
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Menus, ShellAPI, IniFiles, XPMan;
 
+type
+  TDISPLAYCONFIG_PATH_INFO = record
+  end;
+  PDISPLAYCONFIG_PATH_INFO = ^TDISPLAYCONFIG_PATH_INFO;
+
+  TDISPLAYCONFIG_MODE_INFO = record
+  end;
+  PDISPLAYCONFIG_MODE_INFO = ^TDISPLAYCONFIG_MODE_INFO;
+
 type
   TMain = class(TForm)
     PopupMenu1: TPopupMenu;
@@ -22,6 +31,11 @@   TMain = class(TForm)
     N5: TMenuItem;
     N0x01: TMenuItem;
     XPManifest1: TXPManifest;
+    ModesDisplayBtn: TMenuItem;
+    ExtendedBtn: TMenuItem;
+    CloneBtn: TMenuItem;
+    AboutBtn: TMenuItem;
+    N4: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure CloseBtnClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -30,6 +44,9 @@   TMain = class(TForm)
     procedure MaxResBtnClick(Sender: TObject);
     procedure LowResBtnClick(Sender: TObject);
     procedure EditConfigBtnClick(Sender: TObject);
+    procedure CloneBtnClick(Sender: TObject);
+    procedure ExtendedBtnClick(Sender: TObject);
+    procedure AboutBtnClick(Sender: TObject);
   private
     procedure DefaultHandler(var Message); override;
     procedure SetResolution(Res: string);
@@ -48,14 +65,20 @@   TMain = class(TForm)
   ConfigPath, EditorPath: string;
   HMDMonitor: integer;
   MaxResolution, MiddleResolution, LowResolution: string;
-  CloseSteamVRAfterTurnOff: boolean;
+  ActivateExtendedMode, SetMaxResolution, CloneModeAfterTurnOff, CloseSteamVRAfterTurnOff: boolean;
 
-  IDS_RUN, IDS_STOP, IDS_CHANGE_RES: string;
+  IDS_RUN, IDS_STOP, IDS_CHANGE_RES, ID_ABOUT_TITLE, ID_LAST_UPDATE: string;
 
 implementation
 
 {$R *.dfm}
 
+const
+SDC_TOPOLOGY_CLONE = $00000002;
+SDC_TOPOLOGY_EXTEND = $00000004;
+SDC_APPLY = $00000080;
+function SetDisplayConfig(numPathArrayElements: integer; pathArray: PDISPLAYCONFIG_PATH_INFO; numModeInfoArrayElements: integer; modeInfoArray: PDISPLAYCONFIG_MODE_INFO; flags: integer): longint; stdcall; external 'user32.dll'; // taken from https://github.com/CMCHTPC/WindowsAPI/blob/master/Units/Win32.WinUser.pas
+
 procedure Tray(ActInd: integer);  //1 - Add, 2 - Update, 3 - Remove
 var
   NIM: TNotifyIconData;
@@ -114,6 +137,9 @@ procedure TMain.FormCreate(Sender: TObject);
   MaxResBtn.Caption:=MaxResolution;
   MiddleResBtn.Caption:=MiddleResolution;
   LowResBtn.Caption:=LowResolution;
+  SetMaxResolution:=Ini.ReadBool('Main', 'SetMaxResolution', false);
+  ActivateExtendedMode:=Ini.ReadBool('Main', 'ActivateExtendedMode', false);
+  CloneModeAfterTurnOff:=Ini.ReadBool('Main', 'CloneModeAfterTurnOff', false);
   CloseSteamVRAfterTurnOff:=Ini.ReadBool('Main', 'CloseSteamVRAfterTurnOff', true);
   Ini.Free;
   WM_TASKBARCREATED:=RegisterWindowMessage('TaskbarCreated');
@@ -129,13 +155,21 @@ procedure TMain.FormCreate(Sender: TObject);
     IDS_RUN:='Âêëþ÷èòü';
     IDS_STOP:='Âûêëþ÷èòü';
     IDS_CHANGE_RES:='Ðàçðåøåíèå èçìåíåíî íà';
+    ID_ABOUT_TITLE:='Î ïðîãðàììå...';
+    ID_LAST_UPDATE:='Ïîñëåäíåå îáíîâëåíèå:';
   end else begin
     IDS_RUN:='Turn on';
     IDS_STOP:='Turn off';
     RunStopBtn.Caption:=IDS_RUN;
     ResolutionsBtn.Caption:='Resolutions';
     SetupBtn.Caption:='Options';
+    ModesDisplayBtn.Caption:='Display modes';
+    ExtendedBtn.Caption:='Extended';
+    CloneBtn.Caption:='Clone';
     EditConfigBtn.Caption:='Edit';
+    ID_ABOUT_TITLE:='About...';
+    AboutBtn.Caption:=ID_ABOUT_TITLE;
+    ID_LAST_UPDATE:='Last update:';
     CloseBtn.Caption:='Exit';
     IDS_CHANGE_RES:='Resolution changed to';
   end;
@@ -173,10 +207,16 @@ procedure TMain.RunStopBtnClick(Sender: TObject);
   if EnabledIcon = false then begin
     EnabledIcon:=true;
     RunStopBtn.Caption:=IDS_STOP;
-    ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'MultiMonitorTool.exe'), PChar('/enable \\.\DISPLAY' + IntToStr(HMDMonitor)), nil, SW_HIDE)
+    ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'MultiMonitorTool.exe'), PChar('/enable \\.\DISPLAY' + IntToStr(HMDMonitor)), nil, SW_HIDE);
+    if ActivateExtendedMode then
+      ExtendedBtn.Click;
+    if SetMaxResolution then
+      ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'MultiMonitorTool.exe'), PChar('/setmax  \\.\DISPLAY' + IntToStr(HMDMonitor)), nil, SW_HIDE);
   end else begin
     EnabledIcon:=false;
     RunStopBtn.Caption:=IDS_RUN;
+    if CloneModeAfterTurnOff then
+      CloneBtn.Click;
     ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'MultiMonitorTool.exe'), PChar('/disable \\.\DISPLAY' + IntToStr(HMDMonitor)), nil, SW_HIDE);
     if CloseSteamVRAfterTurnOff then begin
       WinExec('taskkill /f /im vrserver.exe', SW_HIDE);
@@ -241,4 +281,22 @@ procedure TMain.SetResolution(Res: string);
   Application.MessageBox(PChar(IDS_CHANGE_RES + ' "' + Res + '".'), PChar(Caption), MB_ICONINFORMATION);
 end;
 
+procedure TMain.CloneBtnClick(Sender: TObject);
+begin
+  SetDisplayConfig(0, nil, 0, nil, SDC_TOPOLOGY_CLONE or SDC_APPLY);
+end;
+
+procedure TMain.ExtendedBtnClick(Sender: TObject);
+begin
+  SetDisplayConfig(0, nil, 0, nil, SDC_TOPOLOGY_EXTEND or SDC_APPLY);
+end;
+
+procedure TMain.AboutBtnClick(Sender: TObject);
+begin
+  Application.MessageBox(PChar(Main.Caption + ' 1.2' + #13#10 +
+  ID_LAST_UPDATE + ' 19.10.2022' + #13#10 +
+  'https://r57zone.github.io' + #13#10 +
+  '[email protected]'), PChar(ID_ABOUT_TITLE), MB_ICONINFORMATION);
+end;
+
 end.