diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-21 22:32:03 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-21 22:32:03 +0100 |
commit | c9e914e4f5a51d1b712755507ca6ae1b571428b6 (patch) | |
tree | dc276fbb80fc0a6152fe81087453af7b0b4faf03 | |
parent | 30485d4e9e96fb755bc31ef795e998449d4055dc (diff) | |
download | fpGUI-c9e914e4f5a51d1b712755507ca6ae1b571428b6.tar.xz |
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.
-rw-r--r-- | src/gui/fpg_memo.pas | 9 |
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; |