--- Merging r15426 into '.':

U    packages/chm/src/chmfilewriter.pas

# revisions: 15426
------------------------------------------------------------------------
r15426 | marco | 2010-06-13 17:12:27 +0200 (Sun, 13 Jun 2010) | 2 lines
Changed paths:
   M /trunk/packages/chm/src/chmfilewriter.pas

 * made several functions virtual.

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15427 -

packages/chm/src/chmfilewriter.pas

@@ -53,11 +53,11 @@ type
     function GetData(const DataName: String; out PathInChm: String; out FileName: String; var Stream: TStream): Boolean;
     procedure LastFileAdded(Sender: TObject);
   public
-    constructor Create;
+    constructor Create; virtual;
     destructor Destroy; override;
-    procedure LoadFromFile(AFileName: String);
-    procedure SaveToFile(AFileName: String);
-    procedure WriteChm(AOutStream: TStream);
+    procedure LoadFromFile(AFileName: String); virtual;
+    procedure SaveToFile(AFileName: String); virtual;
+    procedure WriteChm(AOutStream: TStream); virtual;
     function ProjectDir: String;
     procedure AddFileWithContext(contextid:integer;filename:ansistring;contextname:ansistring='');
     // though stored in the project file, it is only there for the program that uses the unit