From 0015151c63faa593f59e1f32fd7150270a556bce Mon Sep 17 00:00:00 2001 From: hnb Date: Sun, 3 Jan 2016 23:40:03 +0000 Subject: [PATCH] Bug fix for memory leak for USE_GENERICS_COLLECTIONS version. git-svn-id: trunk@51179 - --- .../sparta/dockedformeditor/source/sparta_fakecustom.pas | 4 ---- components/sparta/dockedformeditor/source/sparta_mainide.pas | 4 ---- 2 files changed, 8 deletions(-) diff --git a/components/sparta/dockedformeditor/source/sparta_fakecustom.pas b/components/sparta/dockedformeditor/source/sparta_fakecustom.pas index febaf4fb1a..01bc3b1d6f 100644 --- a/components/sparta/dockedformeditor/source/sparta_fakecustom.pas +++ b/components/sparta/dockedformeditor/source/sparta_fakecustom.pas @@ -27,11 +27,7 @@ uses type { TDesignedFormImpl } -{$IFDEF USE_GENERICS_COLLECTIONS} - TDesignedFormImpl = class(TSingletonImplementation, IDesignedRealFormHelper, IDesignedForm) -{$ELSE} TDesignedFormImpl = class(TComponent, IDesignedRealFormHelper, IDesignedForm) -{$ENDIF} private FOwner: TForm; FDesignedRealForm: IDesignedRealForm; diff --git a/components/sparta/dockedformeditor/source/sparta_mainide.pas b/components/sparta/dockedformeditor/source/sparta_mainide.pas index 1d084b3d22..f2fea3ba16 100644 --- a/components/sparta/dockedformeditor/source/sparta_mainide.pas +++ b/components/sparta/dockedformeditor/source/sparta_mainide.pas @@ -34,11 +34,7 @@ const type { TDesignFormData } -{$IFDEF USE_GENERICS_COLLECTIONS} - TDesignFormData = class(TSingletonImplementation, IDesignedForm) -{$ELSE} TDesignFormData = class(TComponent, IDesignedForm) -{$ENDIF} private FWndMethod: TWndMethod;