#244 Cannot paste components with additional source editor open

[Ian Barker]

GExperts Bug Report

Description:
This bug is also documented at QC Embarcadero here: https://quality.embarcadero.com/browse/RSP-33592

Bug: FMX Projects : cannot paste components with additional source editor open

Steps to reproduce:

1. Create a new blank multidevice app.
2. Drop a button on the form.
3. Right click the title of the tabpage of the form designer and select new edit window.
4. Select the button and press CTRL + c
5. Click on the form (design view) to be sure that has focus.
6. Press CTRL + v (using keys, NOT mouse/right click/paste)
7. The textual representation of the botton gets pasted in the source code editor instead of a duplicate of the button on the form in the design view.

Expected behavior:

1. A second button with the name "Button2" should be created on the form.
2. No "object" / textual representation of the button should appear in the code editor window.

Evidence of bug origin:

1. If you disable or uninstall GExperts the correct expected behavior happens.

IDE Version: Delphi 10.42 Enterprise. Windows 10 (probably not relevant which version).

Bug Details:
The bug is reproducible 100% of the time
The bug occurs on multiple machines

Steps:

1. Create a new blank multidevice app.
2. Drop a button on the form.
3. Right click the title of the tabpage of the form designer and select new edit window.
4. Select the button and press CTRL + c
5. Click on the form (design view) to be sure that has focus.
6. Press CTRL + v
7. The textual representation of the botton gets pasted in the source code editor instead of a duplicate of the button on the form in the design view.

Configuration:
OS: Windows 10 (1903) (kernel 10.0.19041 build 804)
GExperts: GExpertsRS104.dll 1.3.18.3442 from 2/21/2021 3:10:20 PM
IDE: ideRS104U1
ComCtl32: <unknown></unknown>

Installed Experts:
$(BDS)\Bin\Scooter.BeyondCompare.Expert.dll = Beyond Compare IDE Package
C:\Program Files (x86)\GExperts for RAD Studio 10.4\GExpertsRS104.dll = GExperts

Installed Packages:
__Embarcadero Metropolis UI Live Tile Standard Components = $(BDSBIN)\dclMetropolisUILiveTile270.bpl
Embarcadero DBExpress DataSnap Common Design package = $(BDSBIN)\dclDataSnapCommon270.bpl
Embarcadero Database Components = $(BDSBIN)\dcldb270.bpl
Embarcadero Standard Components = $(BDSBIN)\dclstd270.bpl
Embarcadero Common Design Resources = $(BDSBIN)\dclcommon270.bpl
Embarcadero Unit Testing IDE Package = $(BDSBIN)\DUnitXIDEExpert270.bpl
Embarcadero Experts Creators Components = $(BDSBIN)\ExpertsCreators270.bpl
Embarcadero XML Components = $(BDSBIN)\dclxml270.bpl
Embarcadero Git Integration = $(BDSBIN)\gitide270.bpl
Embarcadero Mercurial Integration = $(BDSBIN)\hgide270.bpl
Embarcadero Subversion Integration = $(BDSBIN)\svnide270.bpl
Embarcadero LiveBindings Components = $(BDSBIN)\dclbindcomp270.bpl
Embarcadero Experts UI Components = $(BDSBIN)\ExpertsUI270.bpl
Embarcadero LiveBindings Components FireMonkey = $(BDSBIN)\dclbindcompfmx270.bpl
Embarcadero - RTL Component Editors = $(BDSBIN)\dclrtl270.bpl
Embarcadero - Tethering Component Editors = $(BDSBIN)\dcltethering270.bpl
Embarcadero ActionBar Components = $(BDSBIN)\dclact270.bpl
Embarcadero Editor Emacs Enhancements = $(BDSBIN)\dclemacsedit270.bpl
Embarcadero Markup Language Wizards = $(BDSBIN)\dclmlwiz270.bpl
Embarcadero QuickEdit Designer 2.0 = $(BDSBIN)\dclQuickEdit270.bpl
Embarcadero ShareContract Components = $(BDSBIN)\dclshare270.bpl
Embarcadero WinX Controls = $(BDSBIN)\dclwinx270.bpl
Embarcadero Sample Debugger Visualizers = $(BDSBIN)\samplevisualizers270.bpl
Embarcadero Control Panel Applet Package = $(BDSBIN)\applet270.bpl
Embarcadero Usertility Analytics Component = $(BDSBIN)\dclappanalytics270.bpl
Embarcadero LiveBindings Components VCL = $(BDSBIN)\dclbindcompvcl270.bpl
Embarcadero MyBase DataAccess Components = $(BDSBIN)\dclmid270.bpl
Embarcadero Internet Components = $(BDSBIN)\dclnet270.bpl
Embarcadero VCL Database Components = $(BDSBIN)\dclvcldb270.bpl
Embarcadero Sample Components = $(BDSBIN)\dclsmp270.bpl
Embarcadero Editor Script Enhancements = $(BDSBIN)\dclsmpedit270.bpl
Embarcadero Touch Components = $(BDSBIN)\dcltouch270.bpl
Embarcadero Mobile Wizard Help = $(BDSBIN)\MobileWizardExpert270.bpl
Data Explorer Reusable Services = $(BDSBIN)\DataExplorerService270.bpl
Embarcadero Driver Components = $(BDSBIN)\dclDBXDrivers270.bpl
Embarcadero Intro Driver Components = $(BDSBIN)\dclDBXDriversInt270.bpl
IP Abstraction Indy Implementation Design Time = $(BDSBIN)\dclIPIndyImpl270.bpl
Embarcadero REST-Backend Components = $(BDSBIN)\dclRESTBackendComponents270.bpl
Embarcadero REST-Library Components (Designtime) = $(BDSBIN)\dclRESTComponents270.bpl
Embarcadero dbExpress Components = $(BDSBIN)\dcldbx270.bpl
Embarcadero RAD Server Client Components = $(BDSBIN)\dclemsclient270.bpl
Embarcadero RAD Server Client FireDAC Components = $(BDSBIN)\dclemsclientfiredac270.bpl
Embarcadero Enterprise Driver Components = $(BDSBIN)\dclDBXDriversEnt270.bpl
FireDAC Data Explorer Integration = $(BDSBIN)\DataExplorerFireDACPlugin270.bpl
Embarcadero FireDAC Components = $(BDSBIN)\dclFireDAC270.bpl
LiveBinding Expression Components FireDac = $(BDSBIN)\dclBindCompFireDAC270.bpl
Embarcadero FMX FireDAC Components = $(BDSBIN)\dclFMXFireDAC270.bpl
DBExpress Data Explorer Integration = $(BDSBIN)\DataExplorerDBXPlugin270.bpl
DBExpress InterBase Data Explorer Integration = $(BDSBIN)\DataExplorerDBXPluginInt270.bpl
Embarcadero SOAP Components = $(BDSBIN)\dclsoap270.bpl
DBExpress Enterprise Data Explorer Integration = $(BDSBIN)\DataExplorerDBXPluginEnt270.bpl
Embarcadero DBExpress DataSnap Native Server Components = $(BDSBIN)\dclDataSnapNativeServer270.bpl
Embarcadero DBExpress DataSnap Server Components = $(BDSBIN)\dclDataSnapServer270.bpl
Embarcadero DataSnap FireDAC = $(BDSBIN)\dclDataSnapFireDAC270.bpl
Absolute Database - Design package = C:\comps\ComponentAce\AbsoluteDatabase\Lib\Delphi 10.4 and C++ Builder 10.4 (Sydney)\dclAbsDbd27.bpl
Absolute Database = C:\Windows\system32\vclAbsDbd27.bpl
Extra components for Alto Engine Product Line = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\alto_engine_components.bpl
Time Systems XE10 and highercomponents = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\TSComponents.bpl
TMS VCL UI Pack = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\TMSVCLUIPackPkgDXE13.bpl
(untitled) = C:\vms_share\TSActivationModules\bin\MAS_Components.bpl
TMS WEB Core Design time = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\TMSWEBCorePkgDEDXE13.bpl
TMS WEB Core Component Library = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\TMSWEBCorePkgLibDXE13.bpl
TMS WEB Core = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\TMSWEBCorePkgDXE13.bpl
Embarcadero Internet Server Wizards = $(BDSBIN)\dclnetwiz270.bpl
Embarcadero SimpleDataset Component (DBX) = $(BDSBIN)\dcldbxcds270.bpl
Embarcadero RAD Server Edge Components = $(BDSBIN)\dclemsedge270.bpl
Embarcadero RAD Server Wizards and Server Resources = $(BDSBIN)\dclemsserver270.bpl
Embarcadero Cloud management components = $(BDSBIN)\dclCloudService270.bpl
Embarcadero VCL FireDAC Components = $(BDSBIN)\dclVclFireDAC270.bpl
Embarcadero FireDAC Ext C\S Components = $(BDSBIN)\dclFireDACEntExt270.bpl
Embarcadero FMX Standard Components = $(BDSBIN)\dclfmxstd270.bpl
Embarcadero Style Designer Package = $(BDSBIN)\fmxstyledesigner270.bpl
Indy 10 Core Design Time = $(BDSBIN)\dclIndyCore270.bpl
Indy 10 Protocols Design Time = $(BDSBIN)\dclIndyProtocols270.bpl
Edge WebView2 Components = $(BDSBIN)\dcledge270.bpl
Embarcadero DataSnap Connection Components = $(BDSBIN)\dclmcn270.bpl
Embarcadero SOAP Midas Components = $(BDSBIN)\dclsoapmidas270.bpl
Embarcadero SOAP Server Components = $(BDSBIN)\dclsoapserver270.bpl
Embarcadero Internet DB Components = $(BDSBIN)\dclnetdb270.bpl
Embarcadero DBExpress DataSnap Client Components = $(BDSBIN)\dclDataSnapClient270.bpl
Embarcadero DBExpress DataSnap Native Client Components = $(BDSBIN)\dclDataSnapNativeClient270.bpl
Embarcadero DBExpress DataSnap Server Transport Components = $(BDSBIN)\dclDataSnapIndy10ServerTransport270.bpl
Embarcadero DBExpress DataSnap Provider Client Components = $(BDSBIN)\dclDataSnapProviderClient270.bpl
Embarcadero DBExpress DataSnap Web Broker Server Components = $(BDSBIN)\dclDataSnapWebBrokerServer270.bpl
Embarcadero FireDAC C\S Components = $(BDSBIN)\dclFireDACEnt270.bpl
Embarcadero XML Transform Provider Components = $(BDSBIN)\dcldsnapxml270.bpl
Embarcadero DataSnap Connector Components = $(BDSBIN)\dclDataSnapConnectors270.bpl
Embarcadero ADO DB Components = $(BDSBIN)\dclado270.bpl
Delphi 1.0 Compatibility Components = $(BDSBIN)\dcl31w270.bpl
Internet Explorer Components = $(BDSBIN)\dclie270.bpl
LiveBindings Expression Components DbExpress = $(BDSBIN)\dclbindcompdbx270.bpl
PostgreSQL Direct Access Components = C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\dclPostgresDAC27.bpl
Microsoft Office 2000 Sample Automation Server Wrapper Components = $(BDSBIN)\dcloffice2k270.bpl
Microsoft Office XP Sample Automation Server Wrapper Components = $(BDSBIN)\dclofficexp270.bpl

Installed IDE Packages:
Embarcadero GetIt Package = $(BDS)\Bin\GetIt270.bpl
Embarcadero Guided Tour Package = $(BDS)\Bin\GuidedTour270.bpl
Embarcadero IDE VCL Package = $(BDS)\Bin\IDEvcl270.bpl
Embarcadero Theme Package = $(BDS)\Bin\ModernTheme270.bpl
Embarcadero Theme Package = $(BDS)\Bin\darktheme270.bpl
Embarcadero Theme Package = $(BDS)\Bin\themeloader270.bpl
CodeQuery API Package = $(BDS)\bin\codequeryide270.bpl
Embarcadero Multi-Device Preview package = $(BDS)\Bin\MultidevicePreview270.bpl
Assembly Browser Package = $(BDS)\Bin\asmview270.bpl
(Untitled) = $(BDS)\Bin\dbkdebugide270.bpl
Delphi Win32 Platform = $(BDS)\Bin\delphiwin32270.bpl
.NET Core IDE Package = $(BDS)\Bin\dotnetcoreide270.bpl
(Untitled) = $(BDS)\bin\exceptiondiag270.bpl
__(Untitled) = $(BDS)\bin\fileexplorer270.bpl
(Untitled) = $(BDS)\bin\historyide270.bpl
HtmlHelp Viewer = $(BDS)\Bin\htmlhelp1270.bpl
__HtmlHelp Viewer = $(BDS)\Bin\htmlhelp2270.bpl
IDE File filters = $(BDS)\bin\idefilefilters270.bpl
Pluggable Tree View Package = $(BDS)\bin\plugview270.bpl
Value Data: Project and template library package = $(BDS)\Bin\projpageide270.bpl
Start Page IDE Package = $(BDS)\Bin\startpageide270.bpl
TypeLibrary Browser Package = $(BDS)\Bin\tlbview270.bpl
LSP feature = $(BDS)\Bin\IDELSP270.bpl
HtmlHelp Viewer = $(BDS)\Bin\comcore270.bpl
(Untitled) = $(BDS)\Bin\projecttargets270.bpl
.NET Core IDE Package = $(BDS)\Bin\vclmenudesigner270.bpl
Component Toolbar Package = $(BDS)\bin\comptoolbar270.bpl
Embarcadero Tracking System Package = $(BDS)\Bin\TrackingSystem270.bpl
(Untitled) = $(BDS)\Bin\android64debugide270.bpl
(Untitled) = $(BDS)\Bin\androiddebugide270.bpl
Delphi Android Platform = $(BDS)\Bin\delphiandroid270.bpl
(Untitled) = $(BDS)\Bin\gdbdebugcore270.bpl
(Untitled) = $(BDS)\Bin\gdbdebugide270.bpl
(Untitled) = $(BDS)\Bin\ios32debugide270.bpl
(Untitled) = $(BDS)\Bin\ios64debugide270.bpl
Embarcadero FireUI Live Preview Package = $(BDS)\Bin\LivePreview270.bpl
Embarcadero Mirror Package = $(BDS)\Bin\MirrorHub270.bpl
(Untitled) = $(BDS)\Bin\codetemplates270.bpl
Core IDE Pro Package = $(BDS)\bin\coreproide270.bpl
(Untitled) = $(BDS)\bin\dbkdebugproide270.bpl
(Untitled) = $(BDS)\Bin\profiledeployide270.bpl
(Untitled) = $(BDS)\Bin\profilemgride270.bpl
Embarcadero SDK Manager = $(BDS)\Bin\sdkmgride270.bpl
Core Refactoring Package = $(BDS)\bin\refactoride270.bpl
ToDo = $(BDS)\bin\todoide270.bpl
(Untitled) = $(BDS)\Bin\DataExplorerIDE270.bpl
Visualization IDE Service Package = $(BDS)\Bin\VisualizationServiceIDE270.bpl
Embarcadero Mobile Device Manager Package = $(BDS)\Bin\DeviceManager270.bpl
(Untitled) = $(BDS)\bin\htmide270.bpl
(Untitled) = $(BDS)\bin\mlcc270.bpl
(Untitled) = $(BDS)\Bin\iteidew32270.bpl
(Untitled) = $(BDS)\Bin\tgide270.bpl
(Untitled) = $(BDS)\Bin\macosx64debugide270.bpl
(Untitled) = $(BDS)\Bin\macosxdebugide270.bpl
Delphi iOS Platform = $(BDS)\Bin\delphiios270.bpl
(Untitled) = $(BDS)\Bin\linux64debugide270.bpl
Delphi Linux64 Platform = $(BDS)\Bin\delphilinux64270.bpl
Delphi OSX32 Platform = $(BDS)\Bin\delphiosx270.bpl
(Untitled) = $(BDS)\Bin\win64debugide270.bpl
Delphi Win64 Platform = $(BDS)\Bin\delphiwin64270.bpl
(Untitled) = $(BDS)\Bin\unittestide270.bpl
_(untitled) = $(BDS)\bin\getitide270.bpl

No data for Software\Embarcadero\BDS\21.0\GExperts-1.3\EnabledExperts

CPU:
# Processors: 16
Type: Intel 586 model 165 Stepping 5
Speed: 3043.82 MHz

Keyboard:
Type 0: IBM enhanced (101 or 102-key) keyboard with OEM FKeys
Layout: US (us) in KBDUS.DLL

Locale Info:
Number of Digits: '2'
Leading Zero: '0'
List Separators: ','
Grouping: '3;0'
Decimal Separator: '.'
Group Separator: ','
Monetary Grouping: '3;0'
Monetary Decimal Separator: '.'
Monetary Group Separator: ','

[Thomas Mueller]

It's the editor experts "Goto Previous Modification" and "Goto Next Modification" that causes this. Something with the way they insert their menu items into the editor popup menu.

Until I find a way to fix this, disable these experts and the problem goes away.

[Thomas Mueller]

Fixed in revision #3948 by disabling (commenting out) the Goto Previous/Next Modification editor experts.