XE2 Main Menu in RDP fickers which can cause a endless loop and freeze the app.

[thebugger2000]

Run the application inside of a remote desktop connection (or Remote app if possible) This Windows 7 remote and WIndows 7 local. Create a new XE2 VCL Application Cyan Night style

object Form1: TForm1 Left = 0 Top = 0 ClientHeight = 658 ClientWidth = 827 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object MainMenu1: TMainMenu Left = 288 Top = 192 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' end object Open1: TMenuItem Caption = '&Open...' end object Save1: TMenuItem Caption = '&Save' end object SaveAs1: TMenuItem Caption = 'Save &As...' end object N2: TMenuItem Caption = '-' end object Print1: TMenuItem Caption = '&Print...' end object PrintSetup1: TMenuItem Caption = 'P&rint Setup...' end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' end end object Edit2: TMenuItem Caption = '&Edit' object Undo2: TMenuItem Caption = '&Undo' ShortCut = 16474 end object Repeat2: TMenuItem Caption = '&Repeat ' end object N13: TMenuItem Caption = '-' end object Cut2: TMenuItem Caption = 'Cu&t' ShortCut = 16472 end object Copy2: TMenuItem Caption = '&Copy' ShortCut = 16451 end object Paste2: TMenuItem Caption = '&Paste' ShortCut = 16470 end object PasteSpecial2: TMenuItem Caption = 'Paste &Special...' end object N12: TMenuItem Caption = '-' end object Find2: TMenuItem Caption = '&Find...' end object Replace2: TMenuItem Caption = 'R&eplace...' end object GoTo2: TMenuItem Caption = '&Go To...' end object N11: TMenuItem Caption = '-' end object Links2: TMenuItem Caption = 'Lin&ks...' end object Object2: TMenuItem Caption = '&Object' end end object Window2: TMenuItem Caption = '&Window' object NewWindow2: TMenuItem Caption = '&New Window' end object Tile2: TMenuItem Caption = '&Tile' end object Cascade2: TMenuItem Caption = '&Cascade' end object ArrangeAll2: TMenuItem Caption = '&Arrange All' end object N14: TMenuItem Caption = '-' end object Hide2: TMenuItem Caption = '&Hide' end object Show2: TMenuItem Caption = '&Show...' end object Edit1: TMenuItem Caption = '&Edit' object Undo1: TMenuItem Caption = '&Undo' ShortCut = 16474 end object Repeat1: TMenuItem Caption = '&Repeat ' end object N5: TMenuItem Caption = '-' end object Cut1: TMenuItem Caption = 'Cu&t' ShortCut = 16472 end object Copy1: TMenuItem Caption = '&Copy' ShortCut = 16451 end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 16470 end object PasteSpecial1: TMenuItem Caption = 'Paste &Special...' end object N4: TMenuItem Caption = '-' end object Find1: TMenuItem Caption = '&Find...' end object Replace1: TMenuItem Caption = 'R&eplace...' end object GoTo1: TMenuItem Caption = '&Go To...' end object N3: TMenuItem Caption = '-' end object Links1: TMenuItem Caption = 'Lin&ks...' end object Object1: TMenuItem Caption = '&Object' end end end object Help2: TMenuItem Caption = '&Help' object Contents2: TMenuItem Caption = '&Contents' end object Index1: TMenuItem Caption = '&Index' end object Commands1: TMenuItem Caption = 'Co&mmands' end object Procedures1: TMenuItem Caption = '&Procedures' end object Keyboard1: TMenuItem Caption = '&Keyboard' end object SearchforHelpOn2: TMenuItem Caption = '&Search for Help On' end object Tutorial1: TMenuItem Caption = '&Tutorial' end object HowtoUseHelp2: TMenuItem Caption = '&How to Use Help' end object About2: TMenuItem Caption = '&About...' end end end object ActionList1: TActionList Left = 552 Top = 240 end end

unit StyleMainMenuTest;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Styles.Utils.Menus, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ActnList, Vcl.Menus;

type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; New1: TMenuItem; Open1: TMenuItem; Save1: TMenuItem; SaveAs1: TMenuItem; Print1: TMenuItem; PrintSetup1: TMenuItem; Exit1: TMenuItem; N1: TMenuItem; N2: TMenuItem; Edit2: TMenuItem; Undo2: TMenuItem; Repeat2: TMenuItem; Cut2: TMenuItem; Copy2: TMenuItem; Paste2: TMenuItem; PasteSpecial2: TMenuItem; Find2: TMenuItem; Replace2: TMenuItem; GoTo2: TMenuItem; Links2: TMenuItem; Object2: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; Window2: TMenuItem; NewWindow2: TMenuItem; Tile2: TMenuItem; Cascade2: TMenuItem; ArrangeAll2: TMenuItem; Hide2: TMenuItem; Show2: TMenuItem; N14: TMenuItem; Help2: TMenuItem; Contents2: TMenuItem; Index1: TMenuItem; Commands1: TMenuItem; Procedures1: TMenuItem; Keyboard1: TMenuItem; SearchforHelpOn2: TMenuItem; Tutorial1: TMenuItem; HowtoUseHelp2: TMenuItem; About2: TMenuItem; ActionList1: TActionList; Edit1: TMenuItem; Undo1: TMenuItem; Repeat1: TMenuItem; Cut1: TMenuItem; Copy1: TMenuItem; Paste1: TMenuItem; PasteSpecial1: TMenuItem; Find1: TMenuItem; Replace1: TMenuItem; GoTo1: TMenuItem; Links1: TMenuItem; Object1: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

end.