paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Disable copy/paste of TAction in Object Inspector tree because it does not work for some reason. Issue #19530.

Browse Source 
git-svn-id: trunk@65354 -
This commit is contained in:
michl 2021-07-03 08:31:39 +00:00
parent ac430af68a
commit 5a21cedcbb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/objectinspector.pp
View File

@ -33,7 +33,8 @@ uses
Classes, SysUtils, Types, TypInfo, StrUtils, math, Classes, SysUtils, Types, TypInfo, StrUtils, math,
// LCL // LCL
LCLPlatformDef, InterfaceBase, LCLType, LCLIntf, Forms, Buttons, Graphics, LCLPlatformDef, InterfaceBase, LCLType, LCLIntf, Forms, Buttons, Graphics,
StdCtrls, Controls, ComCtrls, ExtCtrls, Menus, Dialogs, Themes, LMessages, ImgList, StdCtrls, Controls, ComCtrls, ExtCtrls, Menus, Dialogs, Themes, LMessages,
ImgList, ActnList,
// LazControls // LazControls
{$IFnDEF UseOINormalCheckBox} CheckBoxThemed, {$ENDIF} {$IFnDEF UseOINormalCheckBox} CheckBoxThemed, {$ENDIF}
TreeFilterEdit, ListFilterEdit, TreeFilterEdit, ListFilterEdit,
@ -5889,8 +5890,9 @@ begin
if Selection[i] is TComponent then if Selection[i] is TComponent then
begin begin
CanBeDeleted := True; CanBeDeleted := True;
// ToDo: Figure out why TMenuItem cannot be copy / pasted in OI, // ToDo: Figure out why TMenuItem or TAction cannot be copy / pasted in OI,
if not (Selection[i] is TMenuItem) then // then fix it. if not (Selection[i] is TMenuItem) and
not (Selection[i] is TAction) then // then fix it.
CanBeCopyPasted := True; CanBeCopyPasted := True;
end; end;
CanChangeClass := (Selection.Count = 1) and (Selection[0] is TComponent) CanChangeClass := (Selection.Count = 1) and (Selection[0] is TComponent)