summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-07-14 13:31:59 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-07-14 13:31:59 +0000
commit050d90f6aeaaeae73461851ef4c0fea1f6e69a12 (patch)
tree2aded9ba95b3a849e990d82bae91caf5f07501c2 /examples
parentb17a9f64a983fa86def54aa66edcd5edcd556790 (diff)
downloadfpGUI-050d90f6aeaaeae73461851ef4c0fea1f6e69a12.tar.xz
* Applied patch from Vladimir, removing all memory leaks from UI Designer.
Diffstat (limited to 'examples')
-rw-r--r--examples/apps/uidesigner/uidesigner.lpr5
-rw-r--r--examples/apps/uidesigner/vfdwidgets.pas6
2 files changed, 7 insertions, 4 deletions
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 @@ uses
{$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 @@ begin
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 @@ uses
var
FVFDFormWidget: TVFDWidgetClass;
- FVFDWidgets: TList;
+ FVFDWidgets: TObjectList;
function VFDFormWidget: TVFDWidgetClass;
begin
@@ -442,10 +443,11 @@ end;
initialization
- FVFDWidgets := TList.Create;
+ FVFDWidgets := TObjectList.Create;
finalization
FVFDWidgets.Free;
+ FVFDFormWidget.Free;
end.