Bladeren bron

* Make sure fpdoc can parse through classes

git-svn-id: trunk@10771 -
michael 17 jaren geleden
bovenliggende
commit
2109a8b611
1 gewijzigde bestanden met toevoegingen van 3 en 0 verwijderingen
  1. 3 0
      rtl/objpas/classes/classesh.inc

+ 3 - 0
rtl/objpas/classes/classesh.inc

@@ -1535,7 +1535,10 @@ type
     //!!!!   Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): Integer; stdcall;
   public
     //!! Moved temporary
+    // fpdoc doesn't handle this yet :(
+{$ifndef fpdocsystem}
     function IInterfaceComponentReference.GetComponent=iicrgetcomponent;
+{$endif}    
     procedure WriteState(Writer: TWriter); virtual;
     constructor Create(AOwner: TComponent); virtual;
     procedure BeforeDestruction; override;