paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: Disable ViewLFM menu item for virtual units

Browse Source 
git-svn-id: trunk@38817 -
This commit is contained in:
juha 2012-09-24 20:58:10 +00:00
parent 9a487a2e50
commit 6b90fc2348
2 changed files with 28 additions and 20 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, //MainBase,
FormEditingIntf, ComponentReg,
// IDE
LazarusIDEStrConsts, EnvironmentOpts, IDECommands,
NonControlDesigner, FrameDesigner, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg,
@ -399,6 +399,8 @@ procedure RegisterStandardDesignerMenuItems;
implementation
uses SourceFileManager;
type
TCustomFormAccess = class(TCustomForm);
TControlAccess = class(TControl);
@ -3469,8 +3471,6 @@ var
MultiCompsAreSelected: boolean;
OneControlSelected: Boolean;
SelectionVisible: Boolean;
//ActiveSourceEditor: TSourceEditor;
//ActiveUnitInfo: TUnitInfo;
procedure UpdateChangeParentMenu;
var
@ -3555,11 +3555,10 @@ begin
DesignerMenuCopy.Enabled := CanCopy;
DesignerMenuPaste.Enabled := CanPaste;
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;
// Disable ViewLFM menu item for virtual units. There is no form file yet.
DesignerMenuViewLFM.Enabled := not SourceFileMgr.DesignerUnitIsVirtual(FLookupRoot);
UpdateChangeParentMenu;
DesignerMenuSnapToGridOption.Checked := EnvironmentOptions.SnapToGrid;

35
ide/sourcefilemanager.pas
View File

@ -149,8 +149,6 @@ type
CloseFlags: TCloseFlags; out Component: TComponent): TModalResult;
// methods for 'close unit'
procedure FreeDesigner(AnUnitInfo: TUnitInfo; ADesigner: TDesigner;
AFreeComponent: boolean);
function CloseUnitComponent(AnUnitInfo: TUnitInfo; Flags: TCloseFlags): TModalResult;
function CloseDependingUnitComponents(AnUnitInfo: TUnitInfo;
Flags: TCloseFlags): TModalResult;
@ -177,6 +175,8 @@ type
function ReplaceUnitUse(OldFilename, OldUnitName,
NewFilename, NewUnitName: string;
IgnoreErrors, Quiet, Confirm: boolean): TModalResult;
// related to Designer
function DesignerUnitIsVirtual(aLookupRoot: TComponent): Boolean;
end;
@ -4642,16 +4642,17 @@ begin
Result:=LoadCodeBuffer(ACodeBuffer,AFilename,Flags,ShowAbort);
end;
procedure TLazSourceFileManager.FreeDesigner(AnUnitInfo: TUnitInfo;
ADesigner: TDesigner; AFreeComponent: boolean);
begin
AnUnitInfo.LoadedDesigner:=false;
ADesigner.PrepareFreeDesigner(AFreeComponent);
ADesigner.FinalizeFreeDesigner;
end;
function TLazSourceFileManager.CloseUnitComponent(AnUnitInfo: TUnitInfo;
Flags: TCloseFlags): TModalResult;
var
OldDesigner: TDesigner;
procedure FreeDesigner(AFreeComponent: boolean);
begin
AnUnitInfo.LoadedDesigner:=false;
OldDesigner.PrepareFreeDesigner(AFreeComponent);
OldDesigner.FinalizeFreeDesigner;
end;
procedure FreeUnusedComponents;
var
@ -4673,7 +4674,6 @@ function TLazSourceFileManager.CloseUnitComponent(AnUnitInfo: TUnitInfo;
var
AForm: TCustomForm;
OldDesigner: TDesigner;
LookupRoot: TComponent;
ComponentStillUsed: Boolean;
begin
@ -4746,14 +4746,14 @@ begin
{$IFDEF VerboseIDEMultiForm}
DebugLn(['TLazSourceFileManager.CloseUnitComponent hiding component and freeing designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
{$ENDIF}
FreeDesigner(AnUnitInfo, OldDesigner, false);
FreeDesigner(false);
end else begin
// free designer and design form
{$IFDEF VerboseIDEMultiForm}
DebugLn(['TLazSourceFileManager.CloseUnitComponent freeing component and designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
{$ENDIF}
try
FreeDesigner(AnUnitInfo, OldDesigner, true);
FreeDesigner(true);
finally
AnUnitInfo.Component:=nil;
end;
@ -5702,6 +5702,15 @@ begin
Result:=mrOk;
end;
function TLazSourceFileManager.DesignerUnitIsVirtual(aLookupRoot: TComponent): Boolean;
var
ActiveSourceEditor: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
begin
Assert(Assigned(aLookupRoot),'SourceFileMgr.DesignerUnitIsVirtual: aLookupRoot is not assigned');
MainIDE.GetUnitWithPersistent(aLookupRoot, ActiveSourceEditor, ActiveUnitInfo);
Result := ActiveUnitInfo.IsVirtual;
end;
finalization
SourceFileMgrSingleton.Free;