Преглед изворни кода

* Made image support optional

git-svn-id: trunk@11161 -
michael пре 17 година
родитељ
комит
67fe053e3c
1 измењених фајлова са 7 додато и 1 уклоњено
  1. 7 1
      utils/fpdoc/dwriter.pp

+ 7 - 1
utils/fpdoc/dwriter.pp

@@ -105,7 +105,7 @@ type
     procedure DescrEndItalic; virtual; abstract;
     procedure DescrBeginEmph; virtual; abstract;
     procedure DescrEndEmph; virtual; abstract;
-    procedure DescrWriteImageEl(const AFileName, ACaption,ALinkName : DOMString); virtual; abstract;
+    procedure DescrWriteImageEl(const AFileName, ACaption,ALinkName : DOMString); virtual; 
     procedure DescrWriteFileEl(const AText: DOMString); virtual; abstract;
     procedure DescrWriteKeywordEl(const AText: DOMString); virtual; abstract;
     procedure DescrWriteVarEl(const AText: DOMString); virtual; abstract;
@@ -364,6 +364,12 @@ begin
     end;
 end;
 
+Procedure TFPDocWriter.DescrWriteImageEl(const AFileName, ACaption,ALinkName : DOMString); 
+
+begin
+  system.writeln(ClassName,': No support for images yet: ',AFileName,' (caption: "',ACaption,'")');
+end;
+
 { ---------------------------------------------------------------------
   Generic documentation node conversion
   ---------------------------------------------------------------------}