diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-14 13:31:59 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-14 13:31:59 +0000 |
| commit | 050d90f6aeaaeae73461851ef4c0fea1f6e69a12 (patch) | |
| tree | 2aded9ba95b3a849e990d82bae91caf5f07501c2 /examples | |
| parent | b17a9f64a983fa86def54aa66edcd5edcd556790 (diff) | |
| download | fpGUI-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.lpr | 5 | ||||
| -rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 6 |
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. |