paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 02:19:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ShellCtrls: Change TShellListView/TShellTreeView.ReadOnly to be true by default.

Browse Source
This commit is contained in:
wp_xyz 2024-01-29 14:45:34 +01:00
parent 723cc5ea3c
commit 9035cf4f5d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/shellctrls.pas
View File

@ -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;