소스 검색

* IFragmentClient is now alias to IHTMLClient

Michaël Van Canneyt 3 년 전
부모
커밋
326b571d8d
1개의 변경된 파일2개의 추가작업 그리고 9개의 파일을 삭제
  1. 2 9
      packages/htmlfragment/htmlfragment.pas

+ 2 - 9
packages/htmlfragment/htmlfragment.pas

@@ -6,20 +6,13 @@ unit htmlfragment;
 interface
 
 uses
-  {$ifdef pas2js} web,{$endif} Classes, SysUtils;
+  {$ifdef pas2js} web,{$endif} Classes, SysUtils, Rtl.HTMLUtils;
 
 Type
   TCustomHTMLFragment = class;
 
   { TFragmentHandler }
-    IRendered = Interface
-    Procedure HTMLAvailable;
-  end;
-
-  IFragmentClient = Interface ['{984EDD58-4F93-40BA-A757-06AC293D11F9}']
-    Procedure HTMLLoaded;
-    Procedure HTMLRendered;
-  end;
+  IFragmentClient = Rtl.HTMLUtils.IHTMLClient;
 
 
   TFragmentHandler = Class(TObject)