fixup for #178, only array items don't need a name

2017-08-08 05:57:55 +02:00 · 2017-08-08 05:57:55 +02:00 · 493b1fbdc5
parent 66b51e8577
commit 493b1fbdc5
1 changed files with 2 additions and 2 deletions
--- a/src/ce_dubprojeditor.pas
+++ b/src/ce_dubprojeditor.pas
@ -221,8 +221,8 @@ begin
      1: tpe := TJSONtype.jtObject;
      else tpe := TJSONtype.jtString;
    end;
-    if (tpe in [jtObject, jtString]) and (fEdName.Text = '') then
-      dlgOkError('This property requires a name')
+    if fEdName.Enabled and (fEdName.Text = '') then
+      dlgOkError('New properties require a name')
    else
    begin
      fEvent(fEdName.Text, tpe);