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.

1 files changed, 1 insertions, 1 deletions

diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index 74499d3b..5966865b 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -819,13 +819,13 @@ begin
   begin
     frmProperties.lstProps.ReleaseEditor;
     PropList.Clear;
+    PropList.Widget := wg;
     for n := 0 to wgc.PropertyCount-1 do
     begin
       PropList.AddItem(wgc.GetProperty(n));
       if UpperCase(wgc.GetProperty(n).Name) = UpperCase(lastPropName) then
         i := n;
     end;
-    PropList.Widget := wg;
     frmProperties.lstProps.Update;
     if i > -1 then
       frmProperties.lstProps.FocusItem := i;