paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-01 04:27:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: make component treeview readonly

Browse Source 
git-svn-id: trunk@18373 -
This commit is contained in:
paul 2009-01-21 10:02:55 +00:00
parent def590b362
commit a860666c47
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/componenttreeview.pas
View File

@ -254,7 +254,7 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
DragMode := dmAutomatic; DragMode := dmAutomatic;
FComponentList:=TBackupComponentList.Create; FComponentList:=TBackupComponentList.Create;
Options:=Options+[tvoAllowMultiselect,tvoAutoItemHeight,tvoKeepCollapsedNodes]; Options := Options + [tvoAllowMultiselect, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly];
FImageList := TImageList.Create(nil); FImageList := TImageList.Create(nil);
FImageList.AddLazarusResource('oi_form'); FImageList.AddLazarusResource('oi_form');
FImageList.AddLazarusResource('oi_comp'); FImageList.AddLazarusResource('oi_comp');