summaryrefslogtreecommitdiff
path: root/uidesigner/newformdesigner.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2010-10-03 21:54:14 +0200
committerGraeme Geldenhuys <graemeg@gmail.com>2010-10-03 21:54:14 +0200
commit42fd9a1e64bcbeda87e5c72ffd91fefdc0549ca3 (patch)
tree10f0d117dc389bd5c8b5c1726a4d9d279f13e4f8 /uidesigner/newformdesigner.pas
parent8d22b0a1795e7dd5b0128d45e546ebfe3cb3d1c8 (diff)
downloadfpGUI-42fd9a1e64bcbeda87e5c72ffd91fefdc0549ca3.tar.xz
uidesigner handling multiple forms bug fix.
When creating multiple forms in a single unit, the uidesigner overwrote the last selected form's name to be the same as the newly created form. This patch fixes that bug.
Diffstat (limited to 'uidesigner/newformdesigner.pas')
-rw-r--r--uidesigner/newformdesigner.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas
index dd930dee..0243ec46 100644
--- a/uidesigner/newformdesigner.pas
+++ b/uidesigner/newformdesigner.pas
@@ -717,6 +717,7 @@ end;
procedure TPropertyList.Clear;
begin
FList.Clear;
+ Widget := nil;
end;
constructor TPropertyList.Create;