Browse Source

Fix LoadFromJSON BCButton

lainz 5 years ago
parent
commit
5bfa49ca1b
1 changed files with 4 additions and 0 deletions
  1. 4 0
      bcbutton.pas

+ 4 - 0
bcbutton.pas

@@ -1334,6 +1334,10 @@ begin
     bgracolor := StrToBGRA(AValue.AsString);
     bgracolor := StrToBGRA(AValue.AsString);
     SetPropValue(AObject, Info, BGRAToColor(bgracolor));
     SetPropValue(AObject, Info, BGRAToColor(bgracolor));
   end;
   end;
+
+  // fix to don't assign null values
+  if AValue.JSONType = jtNULL then
+    Handled := True;
 end;
 end;
 
 
 procedure TCustomBCButton.OnStreamProperty(Sender: TObject; AObject: TObject;
 procedure TCustomBCButton.OnStreamProperty(Sender: TObject; AObject: TObject;