CodeTools trips over System.UITypes

Original Reporter info from Mantis: Bart @flyingsheep

• Reporter name: Bart Broersma

Description:

If a source file has System.UITypes in it's uses clause, CodeTools trip over it whenever it is invoked:

system.uitypes.pp(183,9) Error: Case only allowed in records

Steps to reproduce:

| Indicates the position of the Caret:

{$mode objfpc}{$H+}

uses
    Classes, SysUtils, System.UITypes;

begin
  writeln(|
end.

After writing the opening bracket for writeln(), CodeTools just trip.

Mantis conversion info:

• Mantis ID: 38957
• OS: Windows
• OS Build: 10
• Build: r65166
• Platform: i386
• Version: 2.1 (SVN)
• Fixed in revision: r65275 (#57339c6e)