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

Designer: ToDo item for disabling ViewLFM menu item for virtual units. How to do it?

Browse Source 
git-svn-id: trunk@38801 -
This commit is contained in:
juha 2012-09-23 20:00:31 +00:00
parent 35994bb452
commit dde19a64cc
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
designer/designer.pp
View File

@ -43,7 +43,7 @@ uses
ClipBrd, TypInfo, contnrs,
// IDEIntf
IDEDialogs, PropEdits, PropEditUtils, ComponentEditors, MenuIntf, IDEImagesIntf,
FormEditingIntf, ComponentReg,
FormEditingIntf, ComponentReg, //MainBase,
// IDE
LazarusIDEStrConsts, EnvironmentOpts, IDECommands,
NonControlDesigner, FrameDesigner, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg,
@ -3413,8 +3413,6 @@ begin
Images := IDEImages.Images_16;
end;
end;
// assign the root TMenuItem to the registered menu root.
// This will automatically create all registered items
{$IFDEF VerboseMenuIntf}
@ -3471,7 +3469,9 @@ var
MultiCompsAreSelected: boolean;
OneControlSelected: Boolean;
SelectionVisible: Boolean;
//ActiveSourceEditor: TSourceEditor;
//ActiveUnitInfo: TUnitInfo;
procedure UpdateChangeParentMenu;
var
Candidates: TFPList;
@ -3526,7 +3526,7 @@ var
begin
ControlSelIsNotEmpty:=(ControlSelection.Count>0)
and (ControlSelection.SelectionForm=Form);
and (ControlSelection.SelectionForm=Form);
LookupRootIsSelected:=ControlSelection.LookupRootSelected;
OnlyNonVisualsAreSelected := ControlSelection.OnlyNonVisualPersistentsSelected;
SelectionVisible:=not ControlSelection.OnlyInvisiblePersistentsSelected;
@ -3557,6 +3557,9 @@ begin
DesignerMenuDeleteSelection.Enabled := CompsAreSelected;
DesignerMenuChangeClass.Enabled := CompsAreSelected and (ControlSelection.Count = 1);
// ToDo: Disable ViewLFM menu item for virtual units. There is no form file yet.
//MainIDE.GetUnitWithPersistent(FLookupRoot, ActiveSourceEditor, ActiveUnitInfo);
//DesignerMenuViewLFM.Enabled := not ActiveUnitInfo.IsVirtual;
UpdateChangeParentMenu;
DesignerMenuSnapToGridOption.Checked := EnvironmentOptions.SnapToGrid;