From 9035cf4f5d1950c48f339b2163dc6f4e19c6da0d Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Mon, 29 Jan 2024 14:45:34 +0100
Subject: [PATCH] LCL/ShellCtrls: Change TShellListView/TShellTreeView.ReadOnly
 to be true by default.

---
 lcl/shellctrls.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index faf1008f21..0ce27a797e 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -175,7 +175,7 @@ type
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
-    property ReadOnly;
+    property ReadOnly default True;
     property RightClickSelect;
     property Root;
     property RowSelect;
@@ -346,7 +346,7 @@ type
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
-    property ReadOnly;
+    property ReadOnly default True;
     property RowSelect;
     property ScrollBars;
     property ShowColumnHeaders;
@@ -775,6 +775,7 @@ begin
   {$ELSE}
   FFindOptions := [foFindExpands];
   {$ENDIF}
+  Options := Options + [tvoReadOnly];
 
   // Initial property values
   FObjectTypes:= [otFolders];
@@ -1799,6 +1800,7 @@ begin
   ObjectTypes := [otNonFolders];
   FMaskCaseSensitivity := mcsPlatformDefault;
   FAutoSizeColumns := true;
+  ReadOnly := true;
 
   Self.Columns.Add;
   Self.Columns.Add;