TOcrivistEdit: procedure Clear now frees FOCRData

ygb8745 · May 11, 2014 · e6c9962 · e6c9962
1 parent 77ca96e
commit e6c9962
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/OcrivistData.pas b/OcrivistData.pas
@@ -706,7 +706,7 @@ destructor TOcrivistPage.Destroy;
 var
   c: Integer;
 begin
-  if Assigned(FOCRData) then FOCRData.Free;
+//  if Assigned(FOCRData) then FOCRData.Free; //This is now done in TOcrivistEdit.Clear;
   if Assigned(FThumbnail) then FThumbnail.Free;
   inherited Destroy;
 end;

diff --git a/ocreditor.pas b/ocreditor.pas
@@ -49,6 +49,7 @@   TOcrivistEdit = class( TSynMemo )
     procedure MergeLeft;
     procedure MergeRight;
     procedure Spellcheck;
+    procedure Clear;
     procedure HighlightToken( aline, aword: Integer );
     property OCRData: TTesseractPage read FOCRData write SetOCRData;
     property Text: string read GetText;
@@ -413,6 +414,13 @@ procedure TOcrivistEdit.Spellcheck;
   end;
 end;
 
+procedure TOcrivistEdit.Clear;
+begin
+  inherited Clear;
+  FOCRData.Free;
+  FOCRData := nil;
+end;
+
 procedure TOcrivistEdit.HighlightToken ( aline, aword: Integer ) ;
 var
   charoffset: Integer;