paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 23:38:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazde: disable editing of module and elements trees

Browse Source 
git-svn-id: trunk@23309 -
This commit is contained in:
paul 2009-12-28 10:09:12 +00:00
parent e6cdb4a0ee
commit c9568c610d
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
doceditor/lazde.lpi
View File

@ -45,6 +45,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="MakeSkelForm"/> <ComponentName Value="MakeSkelForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="fmMakeskel"/> <UnitName Value="fmMakeskel"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
@ -63,6 +64,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="BuildForm"/> <ComponentName Value="BuildForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmBuild"/> <UnitName Value="frmBuild"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -70,6 +72,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ExampleForm"/> <ComponentName Value="ExampleForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmExample"/> <UnitName Value="FrmExample"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
@ -77,6 +80,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="LinkForm"/> <ComponentName Value="LinkForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmLink"/> <UnitName Value="FrmLink"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -84,6 +88,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmMain"/> <UnitName Value="FrmMain"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -91,6 +96,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="MakeSkelForm"/> <ComponentName Value="MakeSkelForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmMakeSkel"/> <UnitName Value="FrmMakeSkel"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
@ -119,6 +125,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="TableForm"/> <ComponentName Value="TableForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmTable"/> <UnitName Value="frmTable"/>
</Unit13> </Unit13>
<Unit14> <Unit14>

2
doceditor/pkeditor.pp
View File

@ -295,6 +295,7 @@ begin
Images:=FImageList; Images:=FImageList;
OnChange:=@ModuleChange; OnChange:=@ModuleChange;
OnChanging:=@ModuleChanging; OnChanging:=@ModuleChanging;
ReadOnly:=True;
end; end;
FSplitter:=TSplitter.Create(Self); FSplitter:=TSplitter.Create(Self);
With FSplitter do With FSplitter do
@ -327,6 +328,7 @@ begin
Images:=FImageList; Images:=FImageList;
OnChange:=@ElementChange; OnChange:=@ElementChange;
OnChanging:=@ElementChanging; OnChanging:=@ElementChanging;
ReadOnly:=True;
end; end;
PEMenu:=TPopupMenu.Create(Self); PEMenu:=TPopupMenu.Create(Self);
FERenameMenu:=NewMenuItem(SMenuRename,@MenuRenameClick); FERenameMenu:=NewMenuItem(SMenuRename,@MenuRenameClick);