[FMX Render] Avoid draw empty round rect

Co-Authored-By: Paulo César Botelho Barbosa <16469061+paulocesarbot@users.noreply.github.com>
skia4delphi · Dec 7, 2024 · 78c847e · 78c847e
1 parent d630212
commit 78c847e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Source/FMX/FMX.Skia.Canvas.pas b/Source/FMX/FMX.Skia.Canvas.pas
@@ -2101,6 +2101,8 @@ procedure TSkCanvasCustom.DoDrawRoundRect(const ARect: TRectF; const XRadius, YR
   LRoundRect: ISkRoundRect;
   LRoundRectRadii: TSkRoundRectRadii;
 begin
+  if IsZero(ARect.Width) or IsZero(ARect.Height) then
+    Exit;
   if (ACornerType <> TCornerType.Round) or
     (not InRange(XRadius, 0, ARect.Width / 2)) or (not InRange(YRadius, 0, ARect.Height / 2)) then
   begin
@@ -2196,6 +2198,8 @@ procedure TSkCanvasCustom.DoFillRoundRect(const ARect: TRectF; const XRadius, YR
   LRoundRect: ISkRoundRect;
   LRoundRectRadii: TSkRoundRectRadii;
 begin
+  if IsZero(ARect.Width) or IsZero(ARect.Height) then
+    Exit;
   if (ACornerType <> TCornerType.Round) or
     (not InRange(XRadius, 0, ARect.Width / 2)) or (not InRange(YRadius, 0, ARect.Height / 2)) then
   begin