From 48f86f1a749429e7ad4196efa68fba6129a022de Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 7 May 2021 07:08:03 +0000
Subject: [PATCH] RxFPC: fix rxclock on gtk3

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8007 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxcontrols/rxclock.pas | 28 ++++++++++++++++++----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/components/rx/trunk/rxcontrols/rxclock.pas b/components/rx/trunk/rxcontrols/rxclock.pas
index e8f732c6f..5a16e8914 100644
--- a/components/rx/trunk/rxcontrols/rxclock.pas
+++ b/components/rx/trunk/rxcontrols/rxclock.pas
@@ -254,12 +254,18 @@ end;
 
 function VertEquiv(l: Integer): Integer;
 begin
-  VertEquiv := Longint(l) * AspectV div AspectH;
+  if AspectH<>0 then
+    VertEquiv := Longint(l) * AspectV div AspectH
+  else
+    Result:=Longint(l) * AspectV;
 end;
 
 function HorzEquiv(l: Integer): Integer;
 begin
-  HorzEquiv := Longint(l) * AspectH div AspectV;
+  if AspectV<>0 then
+    HorzEquiv := Longint(l) * AspectH div AspectV
+  else
+    HorzEquiv := Longint(l) * AspectH;
 end;
 
 function LightColor(Color: TColor): TColor;
@@ -302,8 +308,17 @@ begin
   finally
     ReleaseDC(0, DC);
   end;
-  AspectV := (Longint(VRes) * MmPerDm) div Longint(vSize);
-  AspectH := (Longint(HRes) * MmPerDm) div Longint(hSize);
+
+  if vSize<>0 then
+    AspectV := (Longint(VRes) * MmPerDm) div Longint(vSize)
+  else
+    AspectV := (Longint(VRes) * MmPerDm) {div Longint(vSize)};
+
+  if hSize<>0 then
+    AspectH := (Longint(HRes) * MmPerDm) div Longint(hSize)
+  else
+    AspectH := (Longint(HRes) * MmPerDm) {div Longint(hSize)};
+
   CircleTab := PPointArray(@ClockData);
   for Pos := 0 to HandPositions - 1 do
     CircleTab^[Pos].Y := VertEquiv(CircleTab^[Pos].Y);
@@ -673,7 +688,10 @@ var
   SaveBrush, SavePen: TColor;
   MinDots: Boolean;
 begin
-  DotWidth := (MaxDotWidth * Longint(FClockRect.Right - FClockRect.Left)) div HRes;
+  if HRes<>0 then
+    DotWidth := (MaxDotWidth * Longint(FClockRect.Right - FClockRect.Left)) div HRes
+  else
+    DotWidth := (MaxDotWidth * Longint(FClockRect.Right - FClockRect.Left));
   DotHeight := VertEquiv(DotWidth);
   if DotHeight < MinDotHeight then DotHeight := MinDotHeight;
   if DotWidth < MinDotWidth then DotWidth := MinDotWidth;