codetools: fixed error position

git-svn-id: trunk@26802 -

components/codetools/pascalparsertool.pas

@@ -705,6 +705,7 @@ procedure TPascalParserTool.BuildSubTreeForClass(ClassNode: TCodeTreeNode);
 
   procedure RaiseClassDescInvalid;
   begin
+    MoveCursorToNodeStart(ClassNode);
     RaiseException('[TPascalParserTool.BuildSubTreeForClass] ClassNode.Desc='
                    +ClassNode.DescAsString,true);
   end;