paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 08:53:48 +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

6
lcl/shellctrls.pas
View File

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