minior bug fix

yangyxd · May 28, 2020 · e95c408 · e95c408
1 parent b310b42
commit e95c408
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/source/UI.Base.pas b/source/UI.Base.pas
@@ -6940,6 +6940,7 @@ procedure TViewBorder.Assign(Source: TPersistent);
     FBrush.OnChanged := nil;
     FBrush.Assign(TViewBorder(Source).FBrush);
     FBrush.OnChanged := DoGradientChanged;
+    FLines := TViewBorder(Source).FLines;
     FOnChanged := SaveChange;
     FColor.OnChanged := SaveChange;
     if Assigned(FOnChanged) then