memo: removes unnecessary code. The Memo field was just a reference.

This also fixes a strange "lost pointer reference" issue under Windows. Not sure what
FPC is doing there.

1 files changed, 1 insertions, 8 deletions

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index 60bade4d..c96555c1 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -176,10 +176,9 @@ type
   // custom stringlist that will notify the memo of item changes
   TfpgMemoStrings = class(TStringList)
   protected
-    Memo: TfpgMemo;
+    Memo: TfpgMemo;  { this is just a reference }
   public
     constructor Create(AMemo: TfpgMemo); reintroduce;
-    destructor  Destroy; override;
     function    Add(const s: String): Integer; override;
     procedure   Clear; override;
     procedure   Delete(Index: Integer); override;
@@ -194,12 +193,6 @@ begin
   Memo := AMemo;
 end;
 
-destructor TfpgMemoStrings.Destroy;
-begin
-  Memo := nil;
-  inherited Destroy;
-end;
-
 function TfpgMemoStrings.Add(const s: String): Integer;
 begin
   Memo.BeginUpdate;