From 050d90f6aeaaeae73461851ef4c0fea1f6e69a12 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 14 Jul 2008 13:31:59 +0000
Subject: * Applied patch from Vladimir, removing all memory leaks from UI
 Designer.

---
 examples/apps/uidesigner/uidesigner.lpr | 5 +++--
 examples/apps/uidesigner/vfdwidgets.pas | 6 ++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

(limited to 'examples/apps')

diff --git a/examples/apps/uidesigner/uidesigner.lpr b/examples/apps/uidesigner/uidesigner.lpr
index 9104bed5..9b75daaa 100644
--- a/examples/apps/uidesigner/uidesigner.lpr
+++ b/examples/apps/uidesigner/uidesigner.lpr
@@ -25,8 +25,7 @@
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, fpgfx, vfdmain, vfdresizer, vfdforms,
   vfdfile, newformdesigner, vfdwidgets, vfdformparser, vfdeditors,
-  vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid,
-  fpgui_toolkit;
+  vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid;
 
 
 procedure MainProc;
@@ -45,6 +44,8 @@ procedure MainProc;
     fpgApplication.MainForm := frmMain;
     fpgApplication.Run;
     
+    PropList.Free;
+    
   finally
     maindsgn.Free;
   end;
diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas
index fb41337f..099cf4c5 100644
--- a/examples/apps/uidesigner/vfdwidgets.pas
+++ b/examples/apps/uidesigner/vfdwidgets.pas
@@ -24,6 +24,7 @@ interface
 uses
   SysUtils,
   Classes,
+  contnrs,
   vfdwidgetclass,
   vfdprops,
   typinfo;
@@ -65,7 +66,7 @@ implementation
 
 var
   FVFDFormWidget: TVFDWidgetClass;
-  FVFDWidgets: TList;
+  FVFDWidgets: TObjectList;
 
 function VFDFormWidget: TVFDWidgetClass;
 begin
@@ -442,10 +443,11 @@ procedure RegisterWidgets;
 
 
 initialization
-    FVFDWidgets := TList.Create;
+    FVFDWidgets := TObjectList.Create;
 
 finalization
     FVFDWidgets.Free;
+    FVFDFormWidget.Free;
     
 end.
 
-- 
cgit v1.2.3-54-g00ecf