paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +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,
// LCL
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
{$IFnDEF UseOINormalCheckBox} CheckBoxThemed, {$ENDIF}
TreeFilterEdit, ListFilterEdit,
@ -5889,8 +5890,9 @@ begin
if Selection[i] is TComponent then
begin
CanBeDeleted := True;
// ToDo: Figure out why TMenuItem cannot be copy / pasted in OI,
if not (Selection[i] is TMenuItem) then // then fix it.
// ToDo: Figure out why TMenuItem or TAction cannot be copy / pasted in OI,
if not (Selection[i] is TMenuItem) and
not (Selection[i] is TAction) then // then fix it.
CanBeCopyPasted := True;
end;
CanChangeClass := (Selection.Count = 1) and (Selection[0] is TComponent)