源代码高亮扩展的颜色有点小问题 - CnPack IDE 专家包（CnWizards） - CnPack Forum

hq200306

灌水科科长

UID 67758
Digest Posts 0
Credits 106
Posts 36
点点分 106
Reading Access 10
Registered 2012-12-1
Status Offline

Post at 2012-12-1 13:09 Profile | Blog | P.M.

源代码高亮扩展的颜色有点小问题

下面代码的第二个except的颜色不对

procedure TForm19.SpeedButton11Click(Sender: TObject);
begin
  try

  except
on E: Exception do
begin
   try

   except
      on E: Exception do
      begin

      end;
   end;
end;
  end;
end;

[ 本帖最后由 hq200306 于 2012-12-5 10:46 编辑 ]

Image Attachment: 高亮颜色1.GIF (2012-12-5 10:46, 21.95 K)

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

#2

Post at 2012-12-4 14:11 Profile | Blog | P.M.

请问您使用的CnWizards是什么版本？在我们最新的每日构建版里，效果如附件。

每日构建版下载地址：http://www.cnpack.org/downbuilds.php

Image Attachment: 未命名.jpg (2012-12-4 14:11, 16.46 K)

hq200306

灌水科科长

UID 67758
Digest Posts 0
Credits 106
Posts 36
点点分 106
Reading Access 10
Registered 2012-12-1
Status Offline

#3

Post at 2012-12-5 10:48 Profile | Blog | P.M.

测试环境winXp,delphi xe,cnpack 0.9.9.637

我试了两台机,Win Xp,新装的D2007,DXE,DXE3,cnpack 637版效果还是一样，第二个except的颜色不对,而且光标到excpet上不会亮显(变黄)

[ 本帖最后由 hq200306 于 2012-12-5 11:00 编辑 ]

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

#4

Post at 2012-12-5 14:12 Profile | Blog | P.M.

比较奇怪。是否代码中出问题的except前面有全角空格或是其他特殊字符？

我从本帖复制的代码，一切正常。在D5/D7/XE3下用637，均没有您说的现象。

hzzsn520

普通灌水员

UID 67597
Digest Posts 0
Credits 60
Posts 20
点点分 60
Reading Access 10
Registered 2012-6-25
Status Offline

#5

Post at 2012-12-5 23:47 Profile | Blog | P.M.

确实存在.
XE3 + win7 x64

Image Attachment: [1] QQ截图20121205234533.jpg (2012-12-5 23:47, 15.17 K)

hzzsn520

普通灌水员

UID 67597
Digest Posts 0
Credits 60
Posts 20
点点分 60
Reading Access 10
Registered 2012-6-25
Status Offline

#6

Post at 2012-12-5 23:53 Profile | Blog | P.M.

如果不加begin end; 显示正常

[Copy to clipboard]

CODE:

begin
  try
  except
on E: Exception do
   try
      // ...
   except
      try
      // ...
      except
      on E: Exception do
         try
            // ...
         except

         end;
      end;
   end;
  end;
end;