fixed queued update

src/fresnelcontrols.pas

@@ -332,6 +332,7 @@ begin
   FCaption:=AValue;
   FMinCaption:='';
   FLabelStates:=FLabelStates-[flsMinCaptionValid,flsMinWidthValid,flsSizeValid];
+  DomChanged;
 end;
 
 function TCustomFresnelLabel.GetMinWidthIntrinsicContentBox: TFresnelLength;

src/fresnellclcontrols.pas

@@ -351,13 +351,17 @@ end;
 
 procedure TCustomFresnelForm.OnQueuedLayout(Data: PtrInt);
 begin
-  ApplyCSS;
-  //Layouter.WriteLayoutTree;
-  Layouter.Apply(Self);
-  if Designer<>nil then
-    Designer.InvalidateRect(Self,Bounds(0,0,ceil(Width),ceil(Height)),false)
-  else
-    Form.Invalidate;
+  try
+    ApplyCSS;
+    //Layouter.WriteLayoutTree;
+    Layouter.Apply(Self);
+    if Designer<>nil then
+      Designer.InvalidateRect(Self,Bounds(0,0,ceil(Width),ceil(Height)),false)
+    else
+      Form.Invalidate;
+  finally
+    FLayoutQueued:=false;
+  end;
 end;
 
 procedure TCustomFresnelForm.ProcessResource;