Finish implementation of ComAlias.

Author: comintern

Rubberduck.Parsing/ComReflection/ComAlias.cs

@@ -1,34 +1,45 @@
 using System;
-using System.Collections.Generic;
 using System.Diagnostics;
-using System.Linq;
 using System.Runtime.InteropServices;
 using System.Runtime.InteropServices.ComTypes;
-using System.Security.Permissions;
-using System.Text;
-using System.Threading.Tasks;
 using TYPEATTR = System.Runtime.InteropServices.ComTypes.TYPEATTR;
+using TYPEFLAGS = System.Runtime.InteropServices.ComTypes.TYPEFLAGS;
 
 namespace Rubberduck.Parsing.ComReflection
 {
+    [DebuggerDisplay("{Name} As {TypeName}")]
     public class ComAlias : ComBase
     {
-        public VarEnum VarType { get; set; }
-
-        public string TypeName { get; set; }
+        public VarEnum VarType { get; private set; }
+        public string TypeName { get; private set; }
+        public bool IsHidden { get; private set; }
+        public bool IsRestricted { get; private set; }
 
         public ComAlias(ITypeLib typeLib, ITypeInfo info, int index, TYPEATTR attributes) : base(typeLib, index)
         {
             Index = index;
             Documentation = new ComDocumentation(typeLib, index);
+            Guid = attributes.guid;
             VarType = (VarEnum)attributes.tdescAlias.vt;
+            IsHidden = attributes.wTypeFlags.HasFlag(TYPEFLAGS.TYPEFLAG_FHIDDEN);
+            IsRestricted = attributes.wTypeFlags.HasFlag(TYPEFLAGS.TYPEFLAG_FRESTRICTED);
+            
+            if (Name.Equals("LONG_PTR"))
+            {
+                TypeName = "LongPtr";
+                return;                
+            }
+          
             if (ComVariant.TypeNames.ContainsKey(VarType))
             {
                 TypeName = ComVariant.TypeNames[VarType];
             }
             else if (VarType == VarEnum.VT_USERDEFINED)
             {
-                //?
+                ITypeInfo refType;
+                info.GetRefTypeInfo((int)attributes.tdescAlias.lpValue, out refType);
+                var doc = new ComDocumentation(refType, -1);
+                TypeName = doc.Name;
             }
             else
             {

Rubberduck.Parsing/ComReflection/ComDocumentation.cs

@@ -36,7 +36,7 @@ private void LoadDocumentation(ITypeLib typeLib, ITypeInfo info, int index)
             }
 
             //See http://chat.stackexchange.com/transcript/message/30119269#30119269
-            Name = name.Equals("LONG_PTR") ? "LongPtr" : name;
+            Name = name;
             DocString = docString;
             HelpContext = helpContext;
             HelpFile = helpFile;            

Rubberduck.Parsing/ComReflection/ComProject.cs

@@ -125,7 +125,6 @@ private void LoadModules(ITypeLib typeLibrary)
                             _classes.Add(coclass as ComCoClass);
                             if (type != null) KnownTypes.TryAdd(typeAttributes.guid, coclass);
                             break;
-                        case TYPEKIND.TKIND_ALIAS:
                         case TYPEKIND.TKIND_DISPATCH:
                         case TYPEKIND.TKIND_INTERFACE:
                             var intface = type ?? new ComInterface(typeLibrary, info, typeAttributes, index);
@@ -141,11 +140,10 @@ private void LoadModules(ITypeLib typeLibrary)
                             _modules.Add(module as ComModule);
                             if (type != null) KnownTypes.TryAdd(typeAttributes.guid, module);
                             break;
-                        //case TYPEKIND.TKIND_ALIAS:
-                        //    //TKIND_ALIAS does not appear to be a supported member type in VBA - cache it internally to use the aliased type.
-                        //    var alias = new ComAlias(typeLibrary, info, index, typeAttributes);
-                        //    _aliases.Add(alias);
-                        //    break;
+                        case TYPEKIND.TKIND_ALIAS:
+                            var alias = new ComAlias(typeLibrary, info, index, typeAttributes);
+                            _aliases.Add(alias);
+                            break;
                         case TYPEKIND.TKIND_UNION:
                             //TKIND_UNION is not a supported member type in VBA.
                             break;