paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +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"/>
<ComponentName Value="MakeSkelForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="fmMakeskel"/>
</Unit2>
<Unit3>
@ -63,6 +64,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="BuildForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmBuild"/>
</Unit5>
<Unit6>
@ -70,6 +72,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="ExampleForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmExample"/>
</Unit6>
<Unit7>
@ -77,6 +80,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="LinkForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmLink"/>
</Unit7>
<Unit8>
@ -84,6 +88,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmMain"/>
</Unit8>
<Unit9>
@ -91,6 +96,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="MakeSkelForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmMakeSkel"/>
</Unit9>
<Unit10>
@ -119,6 +125,7 @@
<IsPartOfProject Value="True"/>
<ComponentName Value="TableForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmTable"/>
</Unit13>
<Unit14>

2
doceditor/pkeditor.pp
View File

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