diff --git a/installer/MMS_Installer.exe b/installer/MMS_Installer.exe index db21437..262b791 100644 Binary files a/installer/MMS_Installer.exe and b/installer/MMS_Installer.exe differ diff --git a/installer/UnitfrmMain.dfm b/installer/UnitfrmMain.dfm index 91ff1dc..14b183c 100644 --- a/installer/UnitfrmMain.dfm +++ b/installer/UnitfrmMain.dfm @@ -11109,6 +11109,7 @@ object frmMain: TfrmMain OnCollapsing = trvDirectoriesCollapsing OnExpanding = trvDirectoriesExpanding OnExpanded = trvDirectoriesExpanded + OnMouseDown = trvDirectoriesMouseDown end end object pnlOS: TPanel diff --git a/installer/UnitfrmMain.pas b/installer/UnitfrmMain.pas index ac1128a..6a89ded 100644 --- a/installer/UnitfrmMain.pas +++ b/installer/UnitfrmMain.pas @@ -122,6 +122,8 @@ type procedure trvDirectoriesCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); procedure trvModsClick(Sender: TObject); + procedure trvDirectoriesMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private OldProgress: Integer; CurrProgress: Integer; @@ -684,4 +686,15 @@ begin cmdNext.Enabled := False; end; +procedure TfrmMain.trvDirectoriesMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var Node: TTreeNode; +begin + Node := trvDirectories.GetNodeAt(X, Y); + if (Assigned(Node)) then begin + if (Node.DisplayRect(True).Right < X) then + trvDirectories.Selected := nil; + end; +end; + end.