paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 65354 #5a21cedcbb from trunk:

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

git-svn-id: branches/fixes_2_2@65370 -
This commit is contained in:
maxim 2021-07-04 21:35:18 +00:00
parent cd197341b0
commit 5962f85864
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)