paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: add TComponentEditorDesigner CanCopy method similar to CanPaste

Browse Source 
git-svn-id: trunk@35966 -
This commit is contained in:
paul 2012-03-14 07:24:37 +00:00
parent 694635da21
commit 519194cb6c
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
designer/designer.pp
View File

@ -261,6 +261,7 @@ type
procedure SelectOnlyThisComponent(AComponent: TComponent); override; procedure SelectOnlyThisComponent(AComponent: TComponent); override;
function CopySelection: boolean; override; function CopySelection: boolean; override;
function CutSelection: boolean; override; function CutSelection: boolean; override;
function CanCopy: Boolean; override;
function CanPaste: Boolean; override; function CanPaste: Boolean; override;
function PasteSelection(PasteFlags: TComponentPasteSelectionFlags): boolean; override; function PasteSelection(PasteFlags: TComponentPasteSelectionFlags): boolean; override;
function DeleteSelection: boolean; override; function DeleteSelection: boolean; override;
@ -1370,11 +1371,19 @@ begin
Result := DoCopySelectionToClipboard and DoDeleteSelectedPersistents; Result := DoCopySelectionToClipboard and DoDeleteSelectedPersistents;
end; end;
function TDesigner.CanCopy: Boolean;
begin
Result := (ControlSelection.Count > 0) and
(ControlSelection.SelectionForm = Form) and
not ControlSelection.OnlyInvisiblePersistentsSelected and
not ControlSelection.LookupRootSelected;
end;
function TDesigner.CanPaste: Boolean; function TDesigner.CanPaste: Boolean;
begin begin
Result:=(Form<>nil) Result:= Assigned(Form) and
and (FLookupRoot<>nil) Assigned(FLookupRoot) and
and (not (csDestroying in FLookupRoot.ComponentState)); not (csDestroying in FLookupRoot.ComponentState);
end; end;
function TDesigner.PasteSelection( function TDesigner.PasteSelection(
@ -3593,8 +3602,8 @@ begin
DesignerMenuOrderForwardOne.Enabled := OneControlSelected and not OnlyNonVisualsAreSelected; DesignerMenuOrderForwardOne.Enabled := OneControlSelected and not OnlyNonVisualsAreSelected;
DesignerMenuOrderBackOne.Enabled := OneControlSelected and not OnlyNonVisualsAreSelected; DesignerMenuOrderBackOne.Enabled := OneControlSelected and not OnlyNonVisualsAreSelected;
DesignerMenuCut.Enabled := CompsAreSelected; DesignerMenuCut.Enabled := CanCopy;
DesignerMenuCopy.Enabled := CompsAreSelected; DesignerMenuCopy.Enabled := CanCopy;
DesignerMenuPaste.Enabled := CanPaste; DesignerMenuPaste.Enabled := CanPaste;
DesignerMenuDeleteSelection.Enabled := CompsAreSelected; DesignerMenuDeleteSelection.Enabled := CompsAreSelected;

3
ideintf/componenteditors.pas
View File

@ -58,7 +58,8 @@ type
procedure Modified; override; procedure Modified; override;
function CopySelection: boolean; virtual; abstract; function CopySelection: boolean; virtual; abstract;
function CutSelection: boolean; virtual; abstract; function CutSelection: boolean; virtual; abstract;
function CanPaste: boolean; virtual; abstract; function CanCopy: Boolean; virtual; abstract;
function CanPaste: Boolean; virtual; abstract;
function PasteSelection(Flags: TComponentPasteSelectionFlags): boolean; virtual; abstract; function PasteSelection(Flags: TComponentPasteSelectionFlags): boolean; virtual; abstract;
function DeleteSelection: boolean; virtual; abstract; function DeleteSelection: boolean; virtual; abstract;
function CopySelectionToStream(s: TStream): boolean; virtual; abstract; function CopySelectionToStream(s: TStream): boolean; virtual; abstract;